Page History
...
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) |
...