home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 2.3 / TESTDRIVE_2.ISO / realizer / samples / tablet / tabsamp2.rlz < prev    next >
Encoding:
Text File  |  1992-09-30  |  578 b   |  22 lines
  1. '***********************************************************************
  2. '    TabSamp2.rlz                      
  3. '
  4. '    Realizer Library Guide Sample
  5. '
  6. '    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  7. '    All rights reserved.
  8. '
  9. '***********************************************************************
  10.  
  11. RUN "Tablet"
  12.  
  13. FormNew(1)
  14. FormSetObject(10, _Tablet, "", _Center, _Center, 50 pct, 50 pct)
  15. FormControl(_Show)
  16.  
  17. width = FormQObject(10)[_FQO_Width]
  18. height = FormQObject(10)[_FQO_Height]
  19.  
  20. TabletSelect(10)
  21. TabletRectangle(0, 0, width-1, height-1)
  22. TabletControl(_Show)