home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 2.3 / TESTDRIVE_2.ISO / realizer / samples / custctrl / sbars.rlz < prev    next >
Encoding:
Text File  |  1992-09-30  |  832 b   |  31 lines
  1. '***********************************************************************
  2. '    SBars.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. PROC formproc(params) 
  14.         LOCAL n 
  15.  
  16.         SELECT CASE params[_ItemNum] 
  17.             CASE 1 
  18.                 FormModifyObject(20; 50) 
  19.                 FormSetColor({0.5, 0.5, 0.5})  
  20.             CASE 20 
  21.                 n = FormQNum(20)/100 
  22.                 FormSetColor({n, n, n}) 
  23.         END SELECT 
  24. END PROC 
  25.  
  26. FormNew(10; "", _Title + _Size + _Close)  
  27. FormSetObject(1, _DefButton, "Gray", _Left, _Top) 
  28. FormSetObject(20, _ScrollBar, "",_Right, 0 pct, _Default, 100 pct; _SB_Style + _SB_Vertical  + _SB_AlignAlone, 100)  
  29. FormSetProc(formproc) 
  30. FormControl(_Show) 
  31.