Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

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.