FiveTech Software tech support forums

... ii := 1, cNombre3 local ctol1:='', ctol2:='' DEFINE BUTTONBAR oBar OF oDlg SIZE 70,70 2007 _3d bottom for i = 1 to len(aAcciones) cNombre := 'oBot'+Alltrim(Str(i)) (cNombre22) := TBtnBmp():NewBar( ; ,; ,; (aacciones[i][1]),; ,; (aacciones[i][2]),; (aacciones[i][4]),; (aacciones[i][7]),; oBar,; ...

Con TSButtons podes usar el metod ChangeBitMap ChangeBitMap( anBmps, acBmps, lResource ) Por ejemplo oBot:ChangeBitMap( 1, "NUEVO",.T. ) Donde cambias la imagen principal del boton con el BITMAP de recurso de nombre "NUEVO" O si tenes definido mas de una ...

Si tiene el boton oBot pasado de la funcion, simplemente

Code: Select all  Expand view

oBtn:SetColor( CLR_WHITE, CLR_RED)
 

... interesante, quisiera aplicarlo para todo los BTNBMP de la app con una sola definición. Gracias. //------------------------------ Function Color_oBot(oBot,cColor) DEFAULT cColor := NIL IF !cColor = NIL if cColor = "ORO" oBot:bClrGrad = { | lMouseOver | If( ! lMouseOver,; { { 1.00,14481663,38075 ...

Cristobal tenia razon si funciona con tu indicacion, yo no me di cuenta que habia dejado dentro de mi funcion SeleccionMes() al final
una sentencia oBot:SetText(ladescripciondelmes(nMes)) que era la linea que producia el error y no era como yo suponia en la linea del Action

Gracias Doc!

Lo quieres ocultar y ver?
oBot:Hide()

oBot:Show()

... jllinas, Antonio: Aqui les dejo como hago para crearle un Menu Popup a TbuttonBmp, sin modificar la classe. Espero les sea de utilidad. FWH 7.12 oBot11 := TButtonBmp():New( 10, 45, "ButtonBmp con PoPup", oWnd:oWndClient, {|| PopButtonBmp(oBot11) }, 200,34,,, .F., .F., .F.,, .F.,,, .F., ...

... I think you think oBtn indicate the variable where the object will be saved with your first sample of #xcommand It's wrong, in this sample oBot is the variable that indicate <cPrompt> oBtn := "Hola" @ 1,1, xbutton oBtn

... <oBtn> := ] TxButton():New(<cPrompt>) then you can write @ 1,1 xButton @ 1,1 xButton "Hola" @ 1,1 xButton oBot prompt "Hola" and @ 1,1 xButton oBot prompt @ 1,1 xButton "hola" oBot prompt look the 2 last they are because [ <oBtn> PROMPT ] and [<cPrompt>] ...

... ID 551 OF oDMain CENTER BOTTOM COLOR CLR_AZUL TRANSPARENT FONT oFont[2] REDEFINE GSAY oGet[16] VAR aVar[16] ID 552 ... etc... * REDEFINE BITMAP oBot[1] NAME "IMPRIME" ID 451 OF oDMain TRANSPARENT <--- ES EL BOTON IMPRIMIR REDEFINE BITMAP oBot[2] NAME "SALIR" ID 452 OF oDMain TRANSPARENT <--- ...

... mi ejemplo: DEFINE DIALOG oDlS OF oWin FROM 100,100 TO 300,600 PIXEL COLOR 0,CLR_WHITE ; STYLE nOR(WS_POPUP,WS_VISIBLE,WS_BORDER ) @ 10,10 BUTTON oBot PROMPT "PINTAR" OF oDlS SIZE 100,12 PIXEL ACTION PintNeoFond(oDlS) ACTIVATE DIALOG oDlS RETURN NIL FUNCTION PintNeoFond(oWin) LOCAL hDc := oWin:GetDc() ...