How to change Bitmap on the fly for SBTN?

[dutch]

Dear All,

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

Example ( not work )
======

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:hBitMap1 := LoadBitmap( GetResources(), 'SMILE' )
oBtn:Refresh()
return nil

Best Regards,
Dutch

[Antonio Linares]

Dutch,

Try it this way:

Code: Select all

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

[dutch]

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