Page History
...
Code Block |
---|
declare function utility CFOpt = '' CFOpt<1> = 0 ;* call Open dialog CFopt<2> = 'Images(*.jpg)/*.jpg/All Files(*.*)/*.*/' getImageFile = Utility('CHOOSEFILE', @window , CFOpt) if (getImageFile) then retval = Set_Property(@window : '.PICTURE','TEXT', getImageFile) end |
This code calls the Utility("CHOOSEFILE") function to look for .jpg files in the default directory. If the user chooses a file, its path is set in the PICTURE control, which fires the Change event code illustrated in the previous topic.