home *** CD-ROM | disk | FTP | other *** search
/ PC User 2001 August / APC_Aug2001_CD2.iso / features / devtools / files / lb202win.exe / LB202W.EXE / BITMAP.BAS < prev    next >
Encoding:
BASIC Source File  |  2000-12-09  |  912 b   |  33 lines
  1.  
  2.   'bitmap.bas
  3.   'demonstrate the bitmap command for bmpbuttons
  4.   WindowWidth = 248
  5.   WindowHeight = 175
  6.   nomainwin
  7.   loadbmp "arrow", "bmp\arrwbttn.bmp"
  8.   loadbmp "blue", "bmp\bluebttn.bmp"
  9.   bmpbutton #main.button1, "bmp\blank4.bmp", [button1Click], UL, 22, 11
  10.   bmpbutton #main.button2, "bmp\blank4.bmp", [button2Click], UL, 22, 46
  11.   open "untitled" for graphics as #main
  12.   print #main, "trapclose [quit]"
  13.   print #main, "down ; fill white; flush"
  14.  
  15.   'wait here for input events
  16.   wait
  17.  
  18. [button1Click]   'Perform action for the button named 'button1'
  19.   print #main.button2, "setfocus"
  20.   print #main.button2, "bitmap arrow"
  21.   print #main.button1, "bitmap blue"
  22.   wait
  23.  
  24. [button2Click]   'Perform action for the button named 'button2'
  25.   print #main.button1, "setfocus"
  26.   print #main.button1, "bitmap arrow"
  27.   print #main.button2, "bitmap blue"
  28.   wait
  29.  
  30. [quit]
  31.   close #main
  32.   end
  33.