home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 2.3 / TESTDRIVE_2.ISO / realizer / samples / custctrl / timer.rlz < prev   
Encoding:
Text File  |  1992-09-30  |  1.0 KB  |  38 lines
  1. '***********************************************************************
  2. '    Timer.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.         SELECT CASE params[_ItemNum] 
  15.              CASE 20 
  16.                 FormModifyObject(20; 0) 
  17.                 FormSetColor(_Yellow) 
  18.                 FormSetColor(_Yellow; _Field) 
  19.                 FormModifyObject(20, _SetColor) 
  20.             CASE 1 
  21.                 FormModifyObject(20; 10) 
  22.                 FormSetColor(_Red) 
  23.                 FormSetColor(_Red; _Field) 
  24.                 FormModifyObject(20, _SetColor) 
  25.         END SELECT 
  26. END PROC 
  27.   
  28. fontTimer = FontQUnique  
  29. FontNew(fontTimer; "Tms Rmn", 36, _Bold)  
  30. FormNew(10)  
  31. FormSetColor(_Red)  
  32. FormSetColor(_Red; _Field)  
  33. FormSetColor(_Blue; _Text)  
  34. FormSetObject(20, _EventTimer, "", fontTimer,  _Center, _Center; 10, _ET_Sec)  
  35. FormSetObject(1, _DefButton, "Restart", _Left, _Top) 
  36. FormSetProc(formproc) 
  37. FormControl(_Show)   
  38.