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 | Expand

DEFINE DIALOG RESOURCE 'TEST'REDEFINE SBUTTON oBtn PROMPT 'TEST' ID 11 OF oDlg ;                ACTION ChangeBitMap( oBtn ) ACTIVATE DIALOG oDlgFunction ChangeBitMap( oBtn )oBtn:hBitMap1 := LoadBitmap( GetResources(), 'SMILE' )oBtn:Refresh()return nil

Best Regards,
Dutch

[Antonio Linares]

Dutch,

Try it this way:

Code: Select all | Expand

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 | Expand

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