Versions Compared

Old Version 2

changes.mady.by.user Corby Nagel

Saved on

compared with

New Version 3

changes.mady.by.user Corby Nagel

Saved on

Key

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

...

Code Block
/*  read the contents of the JPEG image file my_pic.jpg, into a variable.    
Then, set the bitmap control (BITMAP_1) to display the contents of the variable as an image.  */
declare function Set_Property
declare subroutine fsmsg
OSOpen 'my_pic.jpg' to pic_filehandle else
   fsmsg()
   return 1
end
OSBRead picdata from pic_filehandle at 0 length 999999
retval = set_Property(@window : '.BITMAP_1', 'IMAGE', picdata)

...