home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 3.0 / TESTDRIVE_3.ISO / realizer / formdev / menualgn.rlz < prev    next >
Encoding:
Text File  |  1992-09-30  |  1.5 KB  |  63 lines
  1. '***********************************************************************
  2. '    FormDev: MenuAlgn.RLZ
  3. '
  4. '    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  5. '    All rights reserved.
  6. '
  7. '***********************************************************************
  8.  
  9. PROC menuprocAlign(params)
  10.     LOCAL    oldToolOn, itemNum1, itemNum2, dims1, dims2
  11.  
  12.     FormSelect(fdMain)
  13.     LastFrameOff
  14.     ItemsEnableAll
  15.     oldToolOn = currentOn
  16.     ToolOn(1)                ' show the arrow
  17.     itemNum1 = FirstMatch(item.id, FormWait(_Pick))
  18.     ToolOn(0)                ' visual feedback
  19.     IF itemNum1 THEN
  20.         ToolOn(1)
  21.         itemNum2 = FirstMatch(item.id, FormWait(_Pick))
  22.     ELSE
  23.         itemNum2 = 0
  24.     END IF
  25.     ToolOn(oldToolOn)
  26.     IF itemNum2 = 0 THEN
  27.         EXIT PROC
  28.     END IF
  29.     IF itemNum1 = itemNum2 THEN
  30.         BEEP
  31.         EXIT PROC
  32.     END IF
  33.  
  34.     dims1 = FormQObject(item.id[itemNum1])
  35.     dims2 = FormQObject(item.id[itemNum2])
  36.     SELECT CASE params[_ItemNum]
  37.         CASE 410        'left
  38.             dims2[3] = dims1[3]
  39.         CASE 420        'right
  40.             dims2[3] = dims1[3] + dims1[5] - dims2[5]
  41.         CASE 430        'top
  42.             dims2[4] = dims1[4]
  43.         CASE 440        'bottom
  44.             dims2[4] = dims1[4] + dims1[6] - dims2[6]
  45.         CASE 450        'width
  46.             dims2[5] = dims1[5]
  47.         CASE 460        'height
  48.             dims2[6] = dims1[6]
  49.     END SELECT
  50.     item.left[itemNum2] = dims2[3]
  51.     item.top[itemNum2] = dims2[4]
  52.     item.width[itemNum2] = dims2[5]
  53.     item.height[itemNum2] = dims2[6]
  54.     IF dims2[_FQO_ItemType] = _Frame THEN
  55.         SafeSetObject(itemNum2, 1)
  56.     ELSE
  57.         SafeSetObject(itemNum2, 0)
  58.     END IF
  59.     fdChanged = 1
  60. END PROC
  61.  
  62.  
  63.