FiveTech Software tech support forums

... and I have the ability to display a menupopup like this MENU oMenu POPUP if oBrw:IsSelectedRow() MENUITEM "Deselect the current row" action DeSelect_One_array(oBrw) MENUITEM "Deselect everything" action oBrw:SelectRow( 0 ) MENUITEM "Prints the selected lines" action ...

... LABEL "MANTENIMIENTO" ; COLORS CLR_BLACK, CLR_HGREEN ; TOOLTIP { "Crear Nueva Valorización", "Mantenimiento" }; ACTION (valorizar(),MyRefresh()) DEFINE BUTTON OF oBar ; FILE op:png+"payment32.png" TOP ; PROMPT "Orden Pago" ; TOOLTIP { "Elaborar ...

In case, we want to take some action after the FWH's ErrorDialog() is executed, we can do like this: #include "fivewin.ch"function Main()   SetPostErrorAction( { |cLogFile, e| MyFunc( cLogFile, e ...

... BTNBMP aBtnBrow[3] ; RESOURCE "GRID_MNU", "", hBmp2, "" ; SIZE 15, 13 PIXEL FLAT NOROUND GDIP WHEN lMenu OF oDlg ; ACTION ::ShowPopUp( Contextual_Menu( Self,oBrw,oDbf,cIniUser,cSection,oDlg,aBtnBrow[4] ) ) Function Contextual_Menu( oBtn,oBrw,oDbf,cIniUser,cSection,oParent,oCont,lExport,lColConfig ...

... .... ENDMENU ACTIVATE POPUP oMenu OF oParent AT oBrw:nTop+nRow, oBrw:nLeft+nCol RETURN (NIL) and another on action Function MenuContextual(oControl,oBrw,oDbf,cIniUser,cSection,lExport,lColConfig,oParent,oCont ) .... ENDMENU return oMenu and another with btnbmp ...

... ]   DEFINE DIALOG oDlg SIZE 600,300 PIXEL TRUEPIXEL   @ 40, 40 BTNBMP aBtn[ 1 ] PROMPT "1" SIZE 100,40 PIXEL OF oDlg CENTER ACTION ::ShowPopUp()   aBtn[ 1 ]:oPopUp := PopupObject()   @ 40,180 BTNBMP aBtn[ 2 ] PROMPT "2" SIZE 100,40 ...

... must change color without shrinking and without making the typical movement of the button and when the button is pressed it must only call the action

Resolved with

local cAction:= aImg[5 ]
local bClick := &( "{|| " + cAction + "}" )

saw on fwh\samples\barsetup.prg

try

Code: Select all  Expand view

local bClick:= {|| &aImg[5 ] }
 

... ] } @ nRow, nCol BTNBMP oItem PROMPT aImg[ 1 ] ; FILE aImg[2 ] ; SIZE 72,96 PIXEL OF oPanel ; NOBORDER FLAT oItem:oCursor:= oCursorBtn oItem:baction:= (bClick) not eval the action

... on another dialog can delete the btnbmp these items are quick links to recall some application procedures, so each btnbmp is associated with an action to a Function. the final user can insert items from a Menu popup as this MENU oMenu POPUP     MENUITEM "Procedure1" ...

... quedo el codigo en discordia Function Materiales() local ...... DEFINE DIALOG oDlgMa RESOURCE "Material" DEFINE TIMER oTmr INTERVAL 50 ACTION (Fnct_Blinker(@oVeoRamo),oVeoRamo:Refresh()) REDEFINE GET oCodigo VAR nCodigo PICTURE "9999" ID Ma_Codigo OF oDlgMa when .f. //valid ...

... REDEFINE SAY oVeoRamo VAR cVeoRamo PICTURE "@K!" ID Ma_VeoRamo OF oDlgMa DEFINE TIMER oTmr INTERVAL 50 ACTION (Fnct_Blinker(@oVeoRamo),oVeoRamo:Refresh()) pasando el objeto porque no es publico sin tocar la funcion Fnct_Blinker y tampoco logro el parpadeo, ...

... "efectivo.bmp". he intentado de esta forma pero solo me cambia el CAPTION DEFINE BUTTON oBoton1 OF oBar FILE "Efectivo.bmp" ; ACTION (oBoton1:cCaption:='Cheque',oBoton1:FreeBitmaps(),oBoton1:LoadBitMaps("Cheque4.Bmp"),oBoton1:Paint(),oBoton1:refresh(),Cobros()) ; ...

... al oprimir un boton de una ButtonBar este cambie su archivo bmp. esta declarado asi: DEFINE BUTTON oBoton1 OF oBar FILE "Efectivo.bmp" ; ACTION Cobros() ; MESSAGE "Mantenimiento de Cobros"; PROMPT "Cobros" oBoton1:lTransparent = .t. necesito que al oprimirlo muestre ...