home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 3.0 / TESTDRIVE_3.ISO / realizer / formdev / fdt_help.rlz < prev    next >
Encoding:
Text File  |  1992-09-30  |  3.6 KB  |  156 lines
  1. '***********************************************************************
  2. '    FDT_Help.RLZ
  3. '
  4. '    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  5. '    All rights reserved.
  6. '
  7. '    FDT_ClickShow, FDT_ClickP, FDT_ClickMsg
  8. '    FDT_HelpP, FDT_MenuP
  9. '
  10. '***********************************************************************
  11.  
  12. PROC FDT_ClickShow ()
  13.     PROC MenuHelp (lf, sMenu, sItem)
  14.         LOCAL    s, tv
  15.         s = SPRINT("Click on ""&"" in the menu bar and select ""&""", sMenu, sItem)
  16.         FormNew(fdt_infoF; "Info Guide", 0)
  17.         FormSetColor(fdt_c.gBack)
  18.         FormSetColor(fdt_c.gBack; _Field)
  19.         FormSetColor(fdt_c.gText; _Text)
  20.         FormSetObject(11, _CaptionLeft, s, fdt_fB, _Left, _Top)
  21.         tv = FormQObject(11)
  22.         FormControl(_Size; lf pct, 0, 2 * tv[_FQO_Left] + tv[_FQO_Width] + 2, 2 * tv[_FQO_Top] + tv[_FQO_Height] + 2)
  23.         FormControl(_Show)
  24.     END PROC
  25.  
  26.     PROC ClickPoint (formNum, ..)
  27.         LOCAL    tv, lf, tp, locPt
  28.  
  29.         EXTERNAL "user" PROC ClientToScreen (word, pointer) ALIAS 28
  30.         EXTERNAL "user" PROC ScreenToClient (word, pointer) ALIAS 29
  31.  
  32.         FormSelect(formNum)
  33.         IF QNOptParams() THEN
  34.             tv = FormQObject(QOptParam(1))[+_FQO_Left - 1]
  35.             tv[3:4] = tv[3:4] + tv[1:2][-2]
  36.         ELSE
  37.             tv = FDT_Lims()
  38.         END IF
  39.         lf = (tv[1] + tv[3])/2
  40.         tp = tv[4]
  41.         locPt = MKI$(lf) + MKI$(tp)
  42.         ClientToScreen(FormQ(_Hwnd), locPt)
  43.         ScreenToClient(QSys(_Hwnd), locPt)
  44.         lf = CVI(locPt)
  45.         tp = CVI(Mid$(locPt, 3))
  46.         IF QNOptParams() > 1 THEN
  47.             tp = tp + QOptParam(2)
  48.         END IF
  49.         FormSelect(fdt_clickF)
  50.         FormControl(_Size; lf, tp)
  51.         FormControl(_Show)
  52.     END PROC
  53.  
  54.     SELECT CASE fdt_state
  55.     CASE 1
  56.         ClickPoint(fdMain)
  57.     CASE 2, 4, 7
  58.         ClickPoint(toolForm, 32762, -3)
  59.     CASE 3
  60.         ClickPoint(fdMain)
  61.     CASE 5
  62.         ClickPoint(toolForm, 31006, -3)
  63.     CASE 6
  64.         ClickPoint(fdMain)
  65.     CASE 8
  66.         ClickPoint(toolForm, 31014, -3)
  67.     CASE 9
  68.         ClickPoint(fdMain)
  69.     CASE 11, 13
  70.         MenuHelp(7, "Edit", "Action item...")
  71.     CASE 12
  72.         ClickPoint(fdMain, StrToItemID("1"), -3)
  73.     CASE 14
  74.         ClickPoint(fdMain, StrToItemID("2"), -3)
  75.     CASE 15
  76.         MenuHelp(1, "File", "Save...")
  77.     END SELECT
  78. END PROC
  79.  
  80. PROC FDT_ClickMsg ()
  81.     INPUT "When you see the ""click here"", click in the area above the arrow.";
  82. END PROC
  83.  
  84. PROC FDT_ClickP (v)
  85.     IF v[_Invoke] = _Close THEN
  86.         EXIT PROC
  87.     END IF
  88.     FDT_ClickMsg()
  89. END PROC
  90.  
  91. PROC FDT_HelpP (v)
  92.     LOCAL    tryExit
  93.  
  94.     IF v[_Invoke] = _Close THEN
  95.         EXIT PROC
  96.     END IF
  97.     IF v[_Invoke] = _Help OR v[_ItemNum] = 3 THEN
  98.         FDT_ShowBigHelp(_Right, _Normal)
  99.     ELSEIF v[_ItemNum] = 4 THEN
  100.         FDT_HideClicks()
  101.         tryExit = 1
  102.         IF QVar(FDT_Preview) THEN
  103.             FormSelect(toolForm)
  104.             FormControl(_Hide)
  105.             FormSelect(fdMain)
  106.             FormControl(_Hide)
  107.             FormSelect(fdt_guideF)
  108.             FormControl(_Hide)
  109.             tryExit = FDT_Preview(0) = 11
  110.             FormSelect(fdt_guideF)
  111.             FormControl(_Show)
  112.             FormSelect(fdMain)
  113.             FormControl(_Show)
  114.             FormSelect(toolForm)
  115.             FormControl(_Show)
  116.         END IF
  117.         IF tryExit THEN
  118.             FDT_Exit()
  119.         END IF
  120.         FDT_ClickShow()
  121.     END IF
  122. END PROC
  123.  
  124. PROC FDT_MenuP (v)
  125.     IF v[_Invoke] = _Close THEN
  126.         EXIT PROC
  127.     END IF
  128.  
  129.     FDT_HideClicks()
  130.     SELECT CASE fdt_state
  131.     CASE 11, 13
  132.         IF Sum(v = {_Menu, fdEditMenu, 245}) >= 3 THEN
  133.             ToolOn(1)            ' show the arrow
  134.             fdt_state = fdt_state + 1
  135.             fdt_smallStep = fdt_smallStep + 1
  136.             FDT_GuideMsg()
  137.         ELSE
  138.             BEEP
  139.             FDT_GuideMsg()
  140.         END IF
  141.     CASE 15
  142.         IF Sum(v = {_Menu, fdFileMenu, 130}) >= 3 THEN
  143.             fdt_state = fdt_state + 1
  144.             fdt_smallStep = fdt_smallStep + 1
  145.             FDT_Save()
  146.             FDT_Reset(1)
  147.         ELSE
  148.             BEEP
  149.             FDT_GuideMsg()
  150.         END IF
  151.     CASE ELSE
  152.         INPUT "Menu commands are for the most part not used during this tutorial.  Please refer to the FormDev Guide for more information.";
  153.     END SELECT
  154.     FDT_ClickShow()
  155. END PROC
  156.