function FromResources()
local oDlg
DEFINE DIALOG oDlg RESOURCE "Test"
REDEFINE
BUTTONBMP oBtn1 ID 10 OF oDlg ;
ACTION MsgInfo( "XP themes aware Button Bitmaps" )
oBtn1:LoadBitmap( "Alert" ) //
from resource // Button 2 changes on Action BMP of Button 1
// ----------------------------------------------------
REDEFINE BUTTONBMP oBtn2 ID 20 OF oDlg ;
ACTION (
oBtn1:LoadBitmap( "Arrow" ), oBtn1:Refresh() ) ; //
from ResourceBITMAP "..\bitmaps\16x16\garrow.bmp" PROMPT "&Test" TEXTRIGHT //
from Disk ACTIVATE DIALOG oDlg
return nil
Best Regards
Uwe
![Laughing :lol:](./images/smilies/icon_lol.gif)