Dar color a button

[Armando]

Hola Amigos:

Con que clase puedo darle color a un botón, agregar imagen?

Saludos

[karinha]

http://forums.fivetechsupport.com/viewt ... es#p160415

[Armando]

Karinha:

Gracias pero no me funciona.

Alguna sugerencia más?

Saludos

[karinha]

http://forums.fivetechsupport.com/viewt ... ad#p192318

Code: Select all

#Include "FiveWin.Ch"

//--------------------------//BOTONES DE DIFERENTES COLORES
Function Main()   //ColorBtns()

   LOCAL oDlg, oBtn1, oBtn2, oBtn3

   SkinButtons()

   DEFINE DIALOG oDlg FROM 5,5 TO 10,60 TITLE "BOTONES DE COLORES"

   @ 3,2    BTNBMP oBtn1 SIZE 50, 14 FILENAME "..\bitmaps\16x16\floppy.bmp" FLAT

   @ 3, 60  BTNBMP oBtn2 SIZE 50, 14 FILENAME "..\bitmaps\16x16\printer.bmp" FLAT

   @ 3, 120 BTNBMP oBtn3 SIZE 50, 14 FILENAME "..\bitmaps\16x16\prop.bmp" FLAT

   Color_oBot(oBtn1,"ORO")   // ouro

   Color_oBot(oBtn2,"PLATA") // prata

   Color_oBot(oBtn3,"AZUL")  // azul claro.

   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)

      elseif cColor = "AZUL"

        oBot:bClrGrad := { | lInvert | If( ! lInvert, { { 0.50,16776960,16777215 }, ;
                                                        { 0.50,16777215,16776960 } }, ;
                                                        { { 0.50,128,16777215 }, ;
                                                        { 0.50,16777215,128 } } ) }

        oBot:SetColor(0)

     endif

   ENDIF

Return nil
 

Saludos.

[karinha]

Saludos

[Armando]

Karinha:

Muito obrigado, agora vai bem,

diz respeito