Estou tentando trocar a cor do Texto do botão em ButtomBmp mais não funciona.
To fazendo assim:
oBtnCancel:nClrText := CLR_HRED
Ja tentei SetColor, SetTextColor(oBtnCancel:hDC,CLR_HRED) também não funciona.
Alguem tem outra solução ?
#Include "FiveWin.Ch"
//--------------------------//BOTONES DE DIFERENTES COLORES
Function Main() //ColorBtns()
local oDlg,oBt1,oBt2
SkinButtons()
DEFINE DIALOG oDlg FROM 5,5 TO 10,60 TITLE "BOTONES DE COLORES"
@ 3,2 BTNBMP oBt1 PROMPT "Un Color" SIZE 60,20 ACTION MsgInfo("Nada que hacer")
@ 3,80 BTNBMP oBt2 PROMPT "Otro Color" SIZE 60,20 ACTION oDlg:End()
Color_oBot(oBt1,"ORO") // ouro
Color_oBot(oBt2,"PLATA") // prata
ACTIVATE DIALOG oDlg Centered
Return nil
//------------------------------
Function Color_oBot(oBot,cColor)
DEFAULT cColor := NIL
IF !cColor = NIL
if cColor = "ORO"
oBot:bClrGrad = { | lMouseOver | If( ! lMouseOver,;
{ { 1.00,14481663,38075 }, ;
{ 1.00,38075,14481663 } }, ;
{ { 0.10,16777215,9363707 },;
{ 0.10,9363707,16777215 } } ) }
oBot:SetColor(0)
elseif cColor = "PLATA"
oBot:bClrGrad = { | lMouseOver | If( ! lMouseOver,;
{ { 0.30,12961221,16777215 },;
{ 0.30,16777215,12961221 } },;
{ { 0.10,9363707,16777215 },;
{ 0.10,16777215,9363707 } } ) }
oBot:SetColor(0)
endif
ENDIF
Return nil
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 109 guests