nClrText em ButtonBmp não funciona

[Giovany Vecchi]

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 ?

[karinha]

Use BTNBMP:


viewtopic.php?f=6&t=28630&p=160415&hilit=botones#p160415

Code: Select all  Expand view  RUN

#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
 

[cnavarro]

Try with this

viewtopic.php?f=6&t=12759#p210406