FiveTech Software tech support forums

TENGO ESO APLICADO ASI #include 'fivewin.ch' Function MainGoogle(oWnd) local oDlg, aGet[4], aBtn[2], oActiveX local cCity := space(100) local cCountry := "CL" local cStreet := space(100) local nNum := 0 If !IsInternet() MsgInfo("Ud. no posee Conección Activa ...

... MouseMove( nRow, nCol, nKeyFlags )' .\prg\TSBUTTON.PRG(1971) Error E0019 #error: 'Class "TSButton" not declared for method: NewGroup( aBtn, nTop, nLeft, aPrompt, oWnd, aResource, aFile, aSize, lP ixel, aAction, bWhen, bValid, nSpace, oFont, cMsg, cToolTip, nHelpId, cBorder, lCancel, ...

... <uVar1> ) ;; [ <uVarN> := If( <uVarN> == nil, <uValN>, <uVarN> ); ] function Main() LOCAL oBtnCancelJ LOCAL aBtnText:={"Incluir","Consultar","Modificar","Eliminar","Salir"} LOCAL aBtn :=ARRAY(LEN(aBtnText)) ...

... <uVar1> ) ;; [ <uVarN> := If( <uVarN> == nil, <uValN>, <uVarN> ); ] function Main() LOCAL oBtnCancelJ LOCAL aBtnText:={"Incluir","Inspec Métodos","Modificar","Insp. Data","Salir"} LOCAL aBtn :=ARRAY(LEN(aBtnText)) ...

... <uVar1> ) ;; [ <uVarN> := If( <uVarN> == nil, <uValN>, <uVarN> ); ] function Main() LOCAL oBtnCancelJ LOCAL aBtnText:={"Incluir","Inspector","Modificar","Eliminar","Salir"} LOCAL aBtn :=ARRAY(LEN(aBtnText)) ...

... <uVar1> ) ;; [ <uVarN> := If( <uVarN> == nil, <uValN>, <uVarN> ); ] function Main() LOCAL oBtnCancelJ LOCAL aBtnText:={"Incluir","Consultar","Modificar","Eliminar","Salir"} LOCAL aBtn :=ARRAY(LEN(aBtnText)) ...

... REDEFINE BTNBMP oBtn ID nID OF oDlg NOBORDER ; C:\Git\easyreport_n1\source\erfile.prg(556): REDEFINE BTNBMP aBtn[1] ID 151 OF oFld:aDialogs[i] RESOURCE "B_OPEN" UPDATE ; C:\Git\easyreport_n1\source\erfile.prg(564): REDEFINE BTNBMP aBtn[2] ID 152 ...

Creo que si usas una Var public que al hacer click en el boton tome el valor de la posicion del boton en el array, podrias saber que boton se presiono, algo como nBoton = aBtn[n] al momento de hacer click antes de ejecutar la accion, es una idea a vuelo de pajaro terrestre, saludos...

... fijense, si tengo esto me compila, crea el .EXE pero no corre y cuando lo ejecuto manual me dice que no es una aplicacion 32 REDEFINE BUTTONBMP aBtn[1] ID 201 OF oDlg ; // GUARDAR ACTION ( graba_certi( .t., aVar ), oDlg:End() ) ; BITMAP "SALVAR32" PROMPT "Guardar" REDEFINE ...

... GROUP oGroup[3] ; ROUND SIZE 85,48 ACTION (dStart:=date(),; dEnd:=date(),; oDateIn:refresh(),; oDateFin:refresh(),; Change_Rooms(oPanel,aBtn,nTotale_Rooms,dStart,dEnd,lNumbers)) oDateFin:bChange := {|| Change_Rooms(oPanel,aBtn,nTotale_Rooms,dStart,dEnd,lNumbers),SysRefresh() } oDateIn:bChange ...

Yo lo hago asi, saludos...

REDEFINE BTNBMP aBtn[1] ID 200 OF oDlg ;
action accion()
aBtn[1]:lBorder := .f.
aBtn[1]:lTransparent := .t.

Silvio,

You have to use that code from aBtn[ n ]:bPainted := { || ... }

Silvio,

I don't sure, but you can probe using this

aBtn[nBotone]:hBitmap1:hDC or

hDC := getDC( aBtn[nBotone]:hBitmap1 )

regards

Marcelo

WHEN i MAKE @ nY*numero, nx*numero IMAGE aBtn[nBotone] SIZE BMP_H,BMP_V OF oPanel FILENAME NIL PIXEL NOBORDER aBtn[nBotone]:LoadImage( , UMBRELLA_FREE ) aBtn[nBotone]:lTransparent := .T. IT IS OK WHEN i ADD THESE LINE IT CRASH AND NOT FOUND nBotone ...

i MADE : n:=123 hDC := aBtn[nBotone]:GETDC() SetTextColor( hDC,CLR_YELLOW) SetBkMode( hDC, 0 ) TextOut( hDC, 2, 4,str(n) ) aBtn[nBotone]:ReleaseDC() but I see for a second the number n with yellow color and then it hide...why ?