// Radio Buttons management sample - \SAMPLES\TESTRAD.PRG#include "FiveWin.ch"#include "Colores.ch"//----------------------------------------------------------------------------//function Main
() local oDlg,
oRadMenu, oBrush, oFont
local nOption :=
2 local nDTxtColor :=
192 SET _3DLOOK
ON DEFINE FONT oFont
NAME 'Arial' SIZE 0,
-12 DEFINE DIALOG oDlg
RESOURCE "Radios" REDEFINE RADIO oRadMenu VAR nOption
ID 110,
120,
130,
140,
150 OF oDlg ;
ON CHANGE MsgBeep
() AEval
( oRadMenu:
aItems,
{ |
oRadMenu |
oRadMenu:
lTransparent := .T., ;
oRadMenu:
SetFont( oFont
), ;
oRadMenu:
nClrText := nDTxtColor
} ) REDEFINE BUTTON ID 100 OF oDlg
ACTION oRadMenu:
GoNext() ;
WHEN nOption ==
3 REDEFINE BUTTON ID 102 OF oDlg
ACTION oRadMenu:
GoPrev() // Asi, funciona maestro Navarro. // By: Giovany Vecchi: // http://fivewin.com.br/index.php?/topic/ ... -funciona/ ACTIVATE DIALOG oDlg
CENTERED ON INIT( CTRLS_COLORS
( oDlg
), ;
oRadMenu:
aItems[ 1 ]:
SetText( "Hello" ) ) /* // no funciona
ON INIT( ChangeColors( oRadMenu ), ;
oRadMenu:aItems[ 1 ]:SetText( "Hello" ) )
*/ // ON INIT oRadMenu:aItems[ 1 ]:SetText( "Hello" ) SET _3DLOOK OFF
return nil// By: Giovany Vecchy. www.fivewin.com.brFUNCTION 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 NEXTRETURN NIL/*
Joao,
Tienes que hacerlo desde la claúsula ON INIT del diálogo:
ACTIVATE DIALOG oDlgInd ON INIT ChangeColors( oRadMenu )
...
*/FUNCTION ChangeColors
( oRadMenu ) oRadMenu:
aItems[1]:
SetColor( CLR_CYAN, CLR_WHITE
) oRadMenu:
aItems[2]:
SetColor( CLR_CYAN, CLR_WHITE
) oRadMenu:
aItems[3]:
SetColor( CLR_CYAN, CLR_WHITE
) oRadMenu:
aItems[4]:
SetColor( CLR_CYAN, CLR_WHITE
) oRadMenu:
aItems[5]:
SetColor( CLR_CYAN, CLR_WHITE
)RETURN( .T.
)/*
regards, saludos
Antonio Linares
www.fivetechsoft.com
*///----------------------------------------------------------------------------//procedure AppSys
// XBase++ requirementreturn//----------------------------------------------------------------------------//FUNCTION G_COLOR_SYS
( f_nTpObj
) LOCAL cColorRet := nRgb
( 0,
0,
0 ) LOCAL nColorFundo := nRgb
( 255,
255,
255 ), ;
nColorStaticText := nRgb
( 255,
255,
255 ), ;
nColorTxtBtnNormal := nRgb
( 255,
255,
255 ), ;
nColorTxtBtnOver := nRgb
( 255,
255,
255 ) , ;
nColorTxtBtnDisable := CLR_CYAN
LOCAL nColorTxtRadioCheckBox := CLR_WHITE
LOCAL nTheme :=
1 DEFAULT f_nTpObj :=
1 // 1-Fundo // 2-Static Text // 3-Say Text caracter // 4-Say Fundo IF nTheme ==
1 // escuro medio nColorFundo := nRgb
( 111,
141,
160 ) // ta usando 01 // nColorFundo := nRgb(45,54,76) // ta usando // nColorFundo := CLR_VSTIT nColorStaticText := nRgb
( 255,
255,
255 ) // 02 nColorTxtBtnNormal := nRgb
( 255,
255,
255 ) nColorTxtBtnOver := CLR_WHITE
//nRgb(255,255,255) nColorTxtBtnDisable := CLR_HGRAY
nColorTxtRadioCheckBox := METRO_AZUL6
ELSEIF nTheme ==
2 // windows 10 2019 nColorFundo := CLR_VSWIN
nColorStaticText := nRgb
( 0,
0,
0 ) nColorTxtBtnNormal := nRgb
( 0,
0,
0 ) nColorTxtBtnOver := nRgb
( 0,
0,
0 ) nColorTxtBtnDisable := CLR_CYAN
nColorTxtRadioCheckBox := METRO_AZUL6
ENDIF IF f_nTpObj ==
1 // Fundo cColorRet := nRgb
( 121,
151,
170 ) // ta usando // cColorRet := nRgb(53,63,89) // Avast 01 // cColorRet := nRgb(45,54,76) // Avast 02 cColorRet := nColorFundo
ELSEIF f_nTpObj ==
2 // Static Text cColorRet := nColorStaticText
// nRgb(255,255,255) ELSEIF f_nTpObj ==
3 // Say Text caracter cColorRet := nRgb
( 0,
0,
0 ) ELSEIF f_nTpObj ==
4 // Say Fundo cColorRet := METRO_AZUL14
///nRgb(0,0,0) ELSEIF f_nTpObj ==
10 // Buttom Fundo normal cColorRet :=
{ { 100,nColorFundo,nColorFundo
} } //nRgb(121,151,170) // Este é igual o fundo de tela // cColorRet := {{0.3,nRgb(05,05,05),nRgb(71,71,71)},; // {0.7,nRgb(61,61,61),nRgb(0,0,0)} } ELSEIF f_nTpObj ==
11 // Buttom Fundo Over mouse cColorRet :=
{ { 100,SetBrightColor
( nColorFundo,
18 ),;
SetBrightColor
( nColorFundo,
18 ) } } //nRgb(121,151,170) // Este é igual o fundo de tela ELSEIF f_nTpObj ==
12 // Buttom Fundo disable cColorRet :=
{ { 100,nColorFundo,nColorFundo
} } //nRgb(121,151,170) // Este é igual o fundo de tela ELSEIF f_nTpObj ==
13 // Buttom Texto Normal cColorRet := nColorTxtBtnNormal
ELSEIF f_nTpObj ==
14 // Buttom Texto OVER cColorRet := nColorTxtBtnOver
ELSEIF f_nTpObj ==
15 // Buttom Texto Disable cColorRet := nColorTxtBtnDisable
ELSEIF f_nTpObj ==
16 // Buttom Border Normal cColorRet := nColorTxtBtnNormal
//nRgb(255,255,255) ELSEIF f_nTpObj ==
17 // Buttom Border over cColorRet := nColorTxtBtnOver
//nRgb(255,255,255) ELSEIF f_nTpObj ==
31 // Radio ou CheckBox cColorRet := nColorTxtRadioCheckBox
ENDIFRETURN cColorRet
FUNCTION SetBrightColor
( f_nColorRgb, f_nPercent
) LOCAL nColorRgbReturn :=
0 LOCAL nRgbRed, nRgbGreen, nRgbBlue
nRgbRed := nRgbRed
( f_nColorRgb
) nRgbGreen := nRgbGreen
( f_nColorRgb
) nRgbBlue := nRgbBlue
( f_nColorRgb
) IF nRgbRed >
0 nRgbRed := Int
( nRgbRed +
( (nRgbRed/
100 ) * f_nPercent
) ) IF nRgbRed >
255 nRgbRed :=
255 ENDIF ENDIF IF nRgbGreen >
0 nRgbGreen := Int
( nRgbGreen +
( (nRgbGreen/
100 ) * f_nPercent
) ) IF nRgbGreen >
255 nRgbGreen :=
255 ENDIF ENDIF IF nRgbBlue >
0 nRgbBlue := Int
( nRgbBlue +
( (nRgbBlue/
100 ) * f_nPercent
) ) IF nRgbBlue >
255 nRgbBlue :=
255 ENDIF ENDIF nColorRgbReturn := nRgb
( nRgbRed, nRgbGreen, nRgbBlue
)RETURN nColorRgbReturn
// Muchas gracias, many thanks, obrigado, Giovany Vecchi. www.fivewin.com.br 
