www.FiveTechSoft.com
https://forums.fivetechsupport.com/~fivetec1/forums/
https://forums.fivetechsupport.com/~fivetec1/forums/viewtopic.php?t=41410
Code: Select all | Expand
oRad:SetColor( nClrText, nClrPane )
oChk:SetColor( nClrText, nClrPane )Code: Select all | Expand
FUNCTION...
...
REDEFINE RADIO oRadMenu VAR nOpcaoRadio ID 201, 202 OF oDlg UPDATE ;
ON CHANGE( TROCA_INDICE( nOpcaoRadio, cAlias, oLbx ), ;
oLbx:GoTop(), oLbx:Refresh(), oLbx:SetFocus() )
oRadMenu:SetFont( oFnt )
oRadMenu:aItems[1]:cTooltip := "Por Nome "
oRadMenu:aItems[2]:cTooltip := "Por Codigo "
ACTIVATE DIALOG oDlg CENTERED ON INIT CTRLS_COLORS( oDlg )
RETURN NIL
// By Giovanny Vecchi
FUNCTION CTRLS_COLORS( f_oDlgContainer )
LOCAL lc_aCtrls := {}, lc_iFor := 0
LOCAL lc_aItemsRadio := {}
lc_aCtrls := f_oDlgContainer:aControls
FOR lc_iFor := 1 TO Len( lc_aCtrls )
IF ValType( lc_aCtrls[lc_iFor] ) == "O"
IF lc_aCtrls[lc_iFor]:ClassName() == "TRADIO"
aEval( lc_aCtrls[lc_iFor]:oRadMenu:aItems, ;
{|_oRadId|{ SetWindowTheme( _oRadId:hWnd, "", "" ), ;
_oRadId:SetColor( CLR_CYAN, CLR_WHITE ) } } )
ELSEIF lc_aCtrls[lc_iFor]:ClassName() == "TCHECKBOX"
// SetWindowTheme( lc_aCtrls[lc_iFor]:hWnd, "", "" )
// lc_aCtrls[lc_iFor]:SetColor( G_COLOR_SYS( 31 ), G_COLOR_SYS( 1 ) )
ENDIF
ENDIF
NEXT
RETURN NIL