- Code: Select all Expand view
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())