home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 3.0 / TESTDRIVE_3.ISO / realizer / samples / custctrl / lines.rlz < prev    next >
Encoding:
Text File  |  1992-09-30  |  780 b   |  23 lines
  1. '***********************************************************************
  2. '    Lines.rlz                      
  3. '
  4. '    Custom Control Sample Program
  5. '
  6. '    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  7. '    All rights reserved.
  8. '
  9. '***********************************************************************
  10.  
  11. RUN "CCLib1" 
  12.  
  13. FormNew(10; "Lines", _Size + _Title + _Close) 
  14. FormSetObject(20, _Lines, "", 5 pct, 5 pct,  90 pct, 70 pct) 
  15. FormSetObject(30, _Lines, "", 5 pct, 80 pct,  15 pct, 15 pct) 
  16. FormSetObject(40, _Lines, "", 80 pct, 80 pct,  15 pct, 15 pct) 
  17. FormControl(_Show) 
  18.  
  19. FormNew(20; "Form Filling Lines", _Size + _Title + _Close) 
  20. FormControl(_Size; 40 pct, 40 pct)
  21. FormSetObject(50, _Lines, "", _Center, _Center,  100 pct, 100 pct; _FillForm) 
  22. FormControl(_Show)
  23.