FiveTech Software tech support forums

Code: Select all

#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