FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Imagen en TBTNBMP
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Imagen en TBTNBMP
Posted: Sun Dec 31, 2017 09:00 PM

Saludos, amigos.
Usando TBUTTONBMP podemos cargar su imagen con: oBmp:LoadBitMap( aBmps[oBrw:nArrayAt] ) .
Cual seria su equivalente para TBTNBMP?
Gracias

Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Imagen en TBTNBMP
Posted: Mon Jan 01, 2018 03:43 AM

oBtn:LoadBitmap( cImageFileName/cResourceName ) and then oBtn:Refresh() works

Regards



G. N. Rao.

Hyderabad, India
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Imagen en TBTNBMP
Posted: Mon Jan 01, 2018 03:17 PM

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.

Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Imagen en TBTNBMP
Posted: Mon Jan 01, 2018 04:24 PM
Sorry, I thought you were asking about ButtonBmp

ButtonBmp:

Code (fw): Select all Collapse
oBtn:LoadBitmap( uImage ) 
oBtn:Refresh()


BtnBmp:

FWH1601 onwards:
Code (fw): Select all Collapse
oBtn:SetImages( uImage ) // Refresh() is automatic

Full syntax: oBtn:SetImages( [uImage1], [uImage2], [uImage3], [uImage4] )

Upto FWH1512:

Code (fw): Select all Collapse
PalBmpFree( oBtn:hBitmap1, oBtn:hPalette1 )
oBtn:LoadBitmaps( uImage )
oBtn:Refresh()
Regards



G. N. Rao.

Hyderabad, India
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Imagen en TBTNBMP
Posted: Mon Jan 01, 2018 08:56 PM
Rao, thank you very much.

Code (fw): Select all Collapse
    if oBtn:CLASSNAME() == "TBUTTONBMP"
       oBtn:LoadBitMap( aBmps[oBrw:nArrayAt] ) 
       oBtn:Refresh()
    elseif oBtn:CLASSNAME() == "TBTNBMP"
       PalBmpFree( oBtn:hBitmap1, oBtn:hPalette1 )
       oBtn:LoadBitmaps( aBmps[oBrw:nArrayAt] )   
       oBtn:Refresh()
    endif

Regards.
Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql

Continue the discussion