How to change Bitmap on the fly for SBTN?

Board index FiveWin for CA-Clipper How to change Bitmap on the fly for SBTN?

Posts: 1598

Joined: Fri Oct 07, 2005 05:56 PM

How to change Bitmap on the fly for SBTN?
Posted: Tue Jun 19, 2007 05:56 PM

Dear All,

How to change BitMap (Resource) in TSBUTTON after Dialog ACTIVATE?

Example ( not work )
======

DEFINE DIALOG RESOURCE 'TEST'

REDEFINE SBUTTON oBtn PROMPT 'TEST' ID 11 OF oDlg ;
                ACTION ChangeBitMap( oBtn ) 

ACTIVATE DIALOG oDlg

Function ChangeBitMap( oBtn )
oBtn:hBitMap1 := LoadBitmap( GetResources(), 'SMILE' )
oBtn:Refresh()
return nil

Best Regards,
Dutch

Regards,

Dutch

FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio

FWPPC 10.02 / Harbour for PPC (FTDN)

ADS V.9 / MySql / MariaDB

R&R 12 Infinity / Crystal Report XI R2

(Thailand)

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

How to change Bitmap on the fly for SBTN?
Posted: Tue Jun 19, 2007 06:13 PM

Dutch,

Try it this way:

Code: Select all Collapse

REDEFINE SBUTTON oBtn PROMPT 'TEST' ID 11 OF oDlg ; 
                ACTION ( oBtn:LoadBitmaps( "smile" ), oBtn:Refresh() )

regards, saludos

Antonio Linares
www.fivetechsoft.com

dutch

Posts: 1598

Joined: Fri Oct 07, 2005 05:56 PM

How to change Bitmap on the fly for SBTN?
Posted: Wed Jun 20, 2007 03:33 AM

Dear Antonio,

Thanks for your prompt reply. I've got it.

Code: Select all Collapse

DEFINE DIALOG RESOURCE 'TEST' 

REDEFINE SBUTTON oBtn PROMPT 'TEST' ID 11 OF oDlg ; 
                ACTION ChangeBitMap( oBtn ) 

ACTIVATE DIALOG oDlg 

Function ChangeBitMap( oBtn ) 
oBtn:LoadBitmaps( { 'SMILE' }, {} )   // ( aResource, aBmpFile )
oBtn:Refresh() 
return nil

Best regards,
Dutch

Regards,

Dutch

FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio

FWPPC 10.02 / Harbour for PPC (FTDN)

ADS V.9 / MySql / MariaDB

R&R 12 Infinity / Crystal Report XI R2

(Thailand)

FiveTech Support Forums

Continue the discussion