home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 2.3 / TESTDRIVE_2.ISO / realizer / formdev / fdt_util.rlz < prev    next >
Encoding:
Text File  |  1992-09-30  |  3.4 KB  |  114 lines
  1. '***********************************************************************
  2. '    FDT_Util.RLZ
  3. '
  4. '    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  5. '    All rights reserved.
  6. '
  7. '***********************************************************************
  8.  
  9. FUNC QT (rsID)
  10.     RETURN FormQObject(rsID)[_FQO_Top]
  11. END FUNC
  12.  
  13. FUNC QB (rsID)
  14.     LOCAL    v
  15.     v = FormQObject(rsID)
  16.     RETURN v[_FQO_Top] + v[_FQO_Height]
  17. END FUNC
  18.  
  19. FUNC QR (rsID)
  20.     LOCAL    v
  21.     v = FormQObject(rsID)
  22.     RETURN v[_FQO_Left] + v[_FQO_Width]
  23. END FUNC
  24.  
  25. PROC FDT_Frame ()
  26.     LOCAL    lf, tp, tv, wd, ht
  27.  
  28.     FormSetObject(32001, _CaptionLeft, "", 100pct, 100pct, 100pct, 100pct)
  29.     tv = FormQObject(32001)
  30.     lf = 0
  31.     tp = 0
  32.     wd = tv[_FQO_Width]
  33.     ht = tv[_FQO_Height]
  34.     FormSetColor(fdt_c.darkLine; _Field)
  35.     FormSetColor(fdt_c.darkLine; _Text)
  36.     FormSetObject(32001, _GroupBox, "", lf + wd - 2 pxl, tp pxl, 2 pxl, ht pxl)
  37.     FormSetObject(32002, _GroupBox, "", lf pxl, tp + ht - 2 pxl, wd pxl, 2 pxl)
  38. FormSetObject(32003, _GroupBox, "", lf + 3 pxl, tp + 3 pxl, wd - 7 pxl, 1 pxl)
  39. FormSetObject(32004, _GroupBox, "", lf + 3 pxl, tp + 3 pxl, 1 pxl, ht - 7 pxl)
  40.     FormSetColor(fdt_c.lightLine; _Field)
  41.     FormSetColor(fdt_c.lightLine; _Text)
  42.     FormSetObject(32011, _GroupBox, "", lf pxl, tp pxl, wd - 1 pxl, 1 pxl)
  43. '    FormSetObject(32012, _GroupBox, "", lf pxl, tp + 1 pxl, wd - 2 pxl, 1 pxl)
  44.     FormSetObject(32013, _GroupBox, "", lf pxl, tp pxl, 1 pxl, ht - 1 pxl)
  45. '    FormSetObject(32014, _GroupBox, "", lf + 1 pxl, tp pxl, 1 pxl, ht - 2 pxl)
  46. FormSetObject(32015, _GroupBox, "", lf + 3 pxl, tp + ht - 5 pxl, wd - 7 pxl, 1 pxl)
  47. FormSetObject(32016, _GroupBox, "", lf + wd - 5 pxl, tp + 3 pxl, 1 pxl, ht - 7 pxl)
  48.     FormSetColor(fdt_c.back; _Field)
  49.     FormSetColor(fdt_c.text; _Text)
  50. END PROC
  51.  
  52. PROC ResizeForm (lf, tp, newRight, newBot)
  53.     LOCAL    freeID, v, actright, actbot, wd, ht
  54.  
  55.     freeID = 29297
  56.     WHILE FormQObject(freeID)[_FQO_ItemNum] = freeID
  57.         freeID = freeID + 1
  58.     END WHILE
  59.     FormSetObject(freeID, _CaptionLeft, "", 0, 0, 100pct, 100pct)
  60.     v = FormQObject(freeID)
  61.     FormModifyObject(freeID, _Close)
  62.     actbot = v[_FQO_Top] + v[_FQO_Height]
  63.     actright = v[_FQO_Left] + v[_FQO_Width]
  64.  
  65.     v = FormQ(_Size)
  66.     IF newRight > 0 THEN
  67.         wd = v[3] + (newRight - actright)
  68.     ELSE
  69.         wd = _Default
  70.     END IF
  71.     IF newBot > 0 THEN
  72.         ht = v[4] + (newbot - actbot)
  73.     ELSE
  74.         ht = _Default
  75.     END IF
  76.     FormControl(_Size; lf, tp, wd, ht)
  77. END PROC
  78.  
  79. PROC FDT_GuideMsg (..)
  80.     LOCAL    oldForm, s
  81.     oldForm = FormQ(_Selected)
  82.     FormSelect(fdt_guideF)
  83.     IF QNOptParams() THEN
  84.         s = QOptParam(1)
  85.     ELSE
  86.         s = fdt_steps[fdt_state]
  87.     END IF
  88.     FormModifyObject(11, _Gray, s)
  89.     IF oldForm THEN
  90.         FormSelect(oldForm)
  91.     END IF
  92. END PROC
  93.  
  94. PROC FDT_Frame2 (gbID, rv)
  95.     FormSetColor(fdt_c.darkLine; _Text)
  96.     FormSetObject(gbID+0, _GroupBox, "", rv[1], rv[2], rv[3], 1 pxl)
  97.     FormSetObject(gbID+1, _GroupBox, "", rv[1], rv[2], 1 pxl, rv[4])
  98.     FormSetColor(fdt_c.lightLine; _Text)
  99.     FormSetObject(gbID+2, _GroupBox, "", rv[1], rv[2] + rv[4], rv[3] + 1, 1 pxl)
  100.     FormSetObject(gbID+3, _GroupBox, "", rv[1] + rv[3], rv[2], 1 pxl, rv[4])
  101. END PROC
  102.  
  103. PROC FDT_NextCap (thisStep, nLines, s)
  104.     FormSetColor(fdt_c.text; _Text)
  105.     IF thisStep > 0 THEN
  106.         IF thisStep = fdt_bigStep THEN
  107.             FormSetColor(fdt_c.hiText; _Text)
  108.         END IF
  109.     END IF
  110.     rsID = rsID + 1
  111.     FormSetObject(rsID, _CaptionLeft, s, fdt_fP, lfTx, QB(rsID - 1) + fht, wdTx, nLines * fht)
  112.     FDT_Frame2(10 * rsID, FormQObject(rsID)[+_FQO_Left - 1] + {-3, -2, 5, 4})
  113. END PROC
  114.