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 view  RUN

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

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 view  RUN

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