home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 2.3 / TESTDRIVE_2.ISO / realizer / formdev / menuform.rlz < prev    next >
Encoding:
Text File  |  1992-09-30  |  1.6 KB  |  58 lines
  1. '***********************************************************************
  2. '    FormDev: MenuForm.RLZ
  3. '
  4. '    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  5. '    All rights reserved.
  6. '
  7. '***********************************************************************
  8.  
  9. PROC menuprocForm(params)
  10.     SELECT CASE params[_ItemNum]
  11.         CASE 260, 270, 275            ' Modify/Size/Rescale Form
  12.             FormSelect(fdMain)
  13.             MainFormLocate
  14.             ItemsLocateAll
  15.             SELECT CASE params[_ItemNum]
  16.                 CASE 260            ' "Modify Form"
  17.                     IF MainFormModify(1, theform.left pxl, theform.top pxl, theform.width pxl, theform.height pxl) THEN
  18.                         fdChanged = 1
  19.                     END IF
  20.                 CASE 270            ' "Size Form"        
  21.                     IF MainFormModify(0, theform.left pxl, theform.top pxl, theform.width pxl, theform.height pxl) THEN
  22.                         fdChanged = 1
  23.                     END IF
  24.                 CASE 275            ' "Rescale Form"
  25.                     LOCAL tempItemUnits
  26.  
  27.                     tempItemUnits = theform.itemunits
  28.                     theform.itemunits = 2        'percent
  29.                     ItemsIntoRaw
  30.                     IF MainFormModify(0, theform.left pxl, theform.top pxl, theform.width pxl, theform.height pxl) THEN
  31.                         fdChanged = 1
  32.                     END IF
  33.                     MainClientLocate
  34.                     ItemsIntoPixels
  35.                     theform.itemunits = tempItemUnits
  36.             END SELECT
  37.             FormSelect(fdMain)
  38.             ItemsShowAll
  39.             FormControl(_Show)
  40.  
  41.         CASE 280, 281                                ' View Form
  42.             FormSelect(fdMain)
  43.             ItemsLocateAll
  44.             MenuSelect(fdFormMenu)
  45.             viewForm = params[_ItemNum] = 280
  46.             IF viewForm THEN
  47.                 MenuSetCmd(280; _Check)
  48.                 MenuSetCmd(281; _Uncheck)
  49.                 ItemsShowAll
  50.             ELSE
  51.                 MenuSetCmd(280; _Uncheck)
  52.                 MenuSetCmd(281; _Check)
  53.                 ItemsFrameAll
  54.             END IF
  55.             FormControl(_Show)
  56.     END SELECT
  57. END PROC
  58.