FiveTech Software tech support forums

Posted: **Tue Jun 19, 2007 5: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

Posted: **Tue Jun 19, 2007 6:13 pm**

Dutch,

Try it this way:

Code: Select all

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

Posted: **Wed Jun 20, 2007 3:33 am**

Dear Antonio,

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

Code: Select all

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

FiveTech Software tech support forums

How to change Bitmap on the fly for SBTN?

How to change Bitmap on the fly for SBTN?