Change text color and background of tRadio

[Giovany Vecchi]

I do like this:

Code: Select all  Expand view  RUN

 Redefine RADIO ::oRad760_DadosCobranca ;
    VAR ::oDs_ClientesEdit:COBRANCA ;
    ID 761,762,763,764  OF ::oFldDetalhes:aDialogs[1] ;
    Color G_COLOR_SYS(2),G_COLOR_SYS(1)
 

In this example, G_COLOR_SYS (2) is white and G_COLOR_SYS (1) is the background.
I can't change the colors of the text or the background of tRadio.
Already tried the Bj: nClrText: = also does not work. This also happens with CheckBox.
Would anyone know any method to make this possible?

[cnavarro]

As far as I know it is a problem to have active themes (also for checkboxes).
This may work although for me it has never been a good solution.

Code: Select all  Expand view  RUN

      SetWindowTheme( ::oRad760_DadosCobranca:hWnd, "", "" )
 

[Giovany Vecchi]

When executing I get the message:

Code: Select all  Expand view  RUN

Error description: Error BASE/1004  Message not found: TRADMENU:HWND

[cnavarro]

Sorry, try

Code: Select all  Expand view  RUN

SetWindowTheme( ::oRad760_DadosCobranca:aItems[ 3 ]:hWnd, "", "" )
 

[Giovany Vecchi]

Thanks, it worked.
I better change the tRadio class so I don't have to mess with the whole system.
I am creating a kind of Dark Theme, and if I could not change certain controls, it would not work.

Code: Select all  Expand view  RUN

 ::oDlgCadastro:bInit := <||
    AEval( lc_oSelf:oCliDetConta:oRad760_DadosCobranca:aItems,;
           {|_oRadSeq|SetWindowTheme( _oRadSeq:hWnd, "", "" )})
  Return nil
  > //cEnd
 

[cnavarro]

Ok, but I don't like the 3dlook style
Try using also this and tell me if it works with redefined controls

Code: Select all  Expand view  RUN

Ctl3DLook( <yourobjectcontrol>:hWnd, .F. )
 

[cnavarro]

Giovany, Your design is very good, congratulations

[Giovany Vecchi]

I thought the Set3DLook(.F.) function would solve this question

[Giovany Vecchi]

Giovany, Your design is very good, congratulations

Thank you Navarro. We have to show that Fivewin is beyond what we think we can do.

Via Activex Integration


Other controls

[cnavarro]

Giovany, Your design is very good, congratulations

Thank you Navarro. We have to show that Fivewin is beyond what we think we can do.

The limit is our imagination, without any doubt

I thought the Set3DLook(.F.) function would solve this question

Have you managed to solve the 3D effect?

[Giovany Vecchi]

Have you managed to solve the 3D effect?

I did not make it.
I noticed that even putting at the beginning of the program the option Set3dLook (.F.) OR .T., Does not change anything.