How to clear an oImage
Posted: Wed Jul 11, 2007 12:53 pm
When I hit the "Clear" button I still see the image - I want it to be blank.
Code: Select all
REDEFINE IMAGE oImage ID 4010 OF oDlg_Edit_Line FILE cImage WHEN FILE(cImage) ADJUST UPDATE
//Load image button below
REDEFINE BUTTON ID 4011 OF oDlg_Edit_Line ACTION ;
( cImage := cGetFile32("Images (*.jpg) | *.jpg |" + "All files (*.*) | *.* |", "Select an image file" ),;
IF(FILE(cImage),(oImage:cBmpFile:=cImage,oImage:Reload(),oImage:Refresh()),NIL))
//CLear image button below
REDEFINE BUTTON ID 4026 OF oDlg_Edit_Line ACTION (cImage:="",oImage:cBmpFile:=cImage,oImage:Destroy(),oImage:Refresh())