FiveTech Software tech support forums

... simbol "&P" parece que es reservado. @ 12, 20 GET lBtn1 PUSHBUTTON ; CAPTION " &P " ; COLOR cBtnClr ; STATE {|| nBtn := IsPressed( 1 ) } Para este Codigo pasa lo mismo los errores estan en esta linea @ fil-15,col+clpun GET oV800_1:&prk PICTURE opiun WHEN oV800_1:aContl[1]=5 ...

... := "32 x 32" oBtn[1]:lBorder := .F. // -------- set any clicked Button to a different BMP ------------ FUNCTION SET_BTNBMP( oBtn, nBtn ) LOCAL I I := 1 FOR I := 1 TO 10 // repaints all buttons to normal Images oBtn[I]:SetFile( oBtn[I]:cBmpFile1, oBtn[I]:cBmpFile2 ) NEXT // paints ...

Dear Otto:

Otto wrote:How do can I insert a number of buttons to a WINDOW with a variable name.

Try: aBtn[ nBtn ]:cTitle()
Or: aBtn[ nBtn ]:cCaption

Best regards.

Manuel Mercado Gómez.

... programa vuelva a ser funcionabel, he logrado minimizar, y va bien, pero el detener su ejecucion no he podido, lo hago asi: FUNCTION ALC4200(oItem,nBtn,oToolBar) DbCloseall() oWnd:Minimize() cVar:=Accesos(ProcName()) IF !cVar[1] RETURN NIL ENDIF WAITRUN("miprogexterno.exe",0) return nil a ver si ...

... } , "Salir", " Salir ") oToolBar : AddSeparator() oToolBar : AddButton( { || .t. } , "Excel", "Excel") AEval( oToolBar : aButtons, { | aBtn, nBtn| CAMBIA_EL_SIZE_DEL_BOTON( oToolBar : hWnd,; nBtn, nOr( 0x0010 ) ) } ) oReBar : InsertBand( oToolBar ) oWinH : Hide() Define Statusbar Prompt Alltrim( ...

Aqui te mando la función que hace lo que necesitas. En tu código lo manejas así. AEval( oToolBar : aButtons, { | aBtn, nBtn| CAMBIA_EL_SIZE_DEL_BOTON( oToolBar : hWnd, nBtn, nOr( 0x0010 ) ) } ) #pragma BEGINDUMP #include <windows.h> #include <commctrl.h> #include "hbapi.h" ...

... #INCLUDE "Vbox.ch" #INCLUDE "DtPicker.ch" #INCLUDE "Splitter.ch" #INCLUDE "dbcombo.ch" MEMVAR oWnd, oVarSys, oVarUsu FUNCTION PV2100(oItem,nBtn,oToolBar) .............. DEFINE DIALOG oDlg NAME "PV2100" COLOR nRGB(0,64,128),nRGB(0,64,128) ............. oDlg:bKeyDown := {|nK| if( ( nK == ...

jose luis,
yo habilito y deshabilito los botones de la toolbar en unas ocasiones con WHEN y otras asi: oToolBar:EnableButton( nBtn, .T. )
espero te sirva
salu2
paco