FiveTech Software tech support forums

... 11/13/2024 21:02:19: e:\ZERUS\zeruswin.exe -- PAL,1812467870,(b)TWINDOW:TWINDOW(603)->TMETROBTN:READIMAGE(0)->TMETROBTN:LOADBITMAPS(724)->TBTNBMP:NEW(468)->TMETROBTN:NEW(609)->TMETROPANEL:ADDBUTTON(455)->MAKEMETROPANEL(9586)->VALIDAUSER_X(9450)->VALIDAUSER(9429)->ZERUSMAIN(1219)->MAIN(17) ...

... 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()) ; MESSAGE "Mantenimiento de Cobros"; PROMPT "Cobros" ...

... el resultado es este: http://www.datanet.space/fw/toast2.jpg Ya habia probado colcando el recurso de esa manera y tambien con loadbitmaps(getrosources() ) pero no funcionó, la función arroja error. Application =========== Path and name: C:\ServiTec64\ServiTec64.exe (64 bits) ...

Has probado con el método :SetImages( i1, i2, i3, i4 ) Por otra parte creo que el metodo al que haces referencia se llama LoadBitmaps Pero, ojo, estaba pensando que mientras el ratón esté encima, lanzará el evento continuamente, no?. Si es así deberías utilizar una variable que avise ...

... ADD BUTTON oBtn36 GROUP oGr6 BITMAP "..\Sytem\Exit.bmp" ; SIZE 70, 50 PROMPT "Exit" MOSTLEFT round ; action oWnd:End() oBtn36:LoadBitmaps( ".\bitmaps\Exit1.png" ) // normal disabled : oBtn36:Disable() oBtn36:SetFile( ".\bitmaps\Disabled.bmp" ) // gray image ...

... Error BASE/1081 Argument error: + Args: [ 1] = N 20 [ 2] = U Stack Calls =========== Called from: .\source\classes\TTITLE.PRG => TTITLE:LOADBITMAPS( 653 ) Called from: testtitr.prg => MAIN( 30 ) #include "FiveWin.ch"#include "ttitle.ch"function Main()  ...

Silvio,

From samples\rbdesign.prg we do:

MENUITEM "Select bitmap..." ACTION ( oButton:LoadBitmaps( cGetFile( "*.bmp" ) ), oButton:Refresh() )

... "TOOLBAR_ON", "TOOLBAR_OFF" ) on rbtn class there is an error because before on method setfile you can call 2 files with ::LoadBitmaps( cBmpUpFile, cBmpDownFile ) then on METHOD LoadBitmaps( cName ) you can load one file I tried also with IIF(lHide, oApp():oToolButton:SetFile( ...

Mr. Rao, thanks for reply.
If I do ;
oVent:LoadBitMap( , aBmps[oBrw:nArrayAt] )
oVent:Refresh()
I Get this error Message not found TBTNBMP:LOADBITMAP.

But if I do oVent:LoadBitmaps( aBmps[oBrw:nArrayAt] ) , it works.

Thanks again.

... Error BASE/1081 Argument error: + Args: [ 1] = N 20 [ 2] = U Stack Calls =========== Called from: .\source\classes\TTITLE.PRG => TTITLE:LOADBITMAPS( 651 ) Using the same like from CODE @ 20, 20 TITLEIMG OF oTitle BITMAP c_path1 + "info.bmp" ; SIZE 96, 96 ANIMA; ACTION oDlgMain:End() ...

Maurizio,

It is fixed in FWH 16.08 to be published in a few days

Antonio ,
nothing new about function PALBMPNEW() ?

with MSVC to compile the function PALBMPNEW() I have to use
-ldflag=/FORCE:multiple
but I think the compiler takes that in the lib

Maurizio

Yes
Maurizio
www.nipeservice.com

Maurizio,

Did it solved your problem too ?

Antonio,
mine too

Maurizio