home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Bonus / lotus123rel9 / 123 / 220.lss < prev    next >
Encoding:
Text File  |  1998-03-19  |  6.6 KB  |  230 lines
  1. 'Copyright 1995-98, Lotus Development Corporation. All rights reserved.
  2. %if GEMINI
  3. %elseif IBM_OS2
  4. %end if
  5. %if GEMINI
  6. Use "LTAPGN11"
  7. %elseif IBM_OS2
  8. Use "LTAPGO11"
  9. %end if
  10. Sub Initialize
  11.    ClientMainWinClass = GEMINI_MAINWINCLASS
  12.    ClientID = AN_GEMINI
  13.    ClientModName = GEMINI_PERSMODNAME
  14.    ClientLotusAppID = "GEMINI"
  15.    ShowMeModName = "220"
  16.    AnimVersionNum =  2.36 
  17.    NumFramesThisAnim =  23 
  18.    AnimationType = "QuickDemo"
  19.    SampleFile = "ssdn18??.123"
  20.    AnimName = GetString( "2200000", IResult% )
  21. End Sub
  22.  
  23. Public Sub ShowMe (theNextStep As Integer)
  24.  
  25. GetCursorPos TempPos
  26. CursorPosForStep(theNextStep) = TempPos
  27.  
  28. Select Case theNextStep
  29.  
  30. Case  1 
  31.    StepsText = GetString( "2201001", IResult% )
  32.    Delay 1000
  33.    X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
  34.    X = DoWhereIs (CELL_OBJ_G,"",7,16,0,0,ClientID)
  35.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  36.    HideTextBubble
  37.    Exit Sub
  38.  
  39. Case  2 
  40.    StepsText = GetString( "2201002", IResult% )
  41.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  42.    HideTextBubble
  43.    Exit Sub
  44.  
  45. Case  3 
  46.    StepsText = GetString( "2201003", IResult% )
  47.    X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
  48.    X = DoWhereIs (CELL_OBJ_G,"",1,16,0,0,ClientID)
  49.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  50.    HideTextBubble
  51.    Exit Sub
  52.  
  53. Case  4 
  54.    'Page down if required
  55. Dim theScreenHeight As Integer
  56. theScreenHeight = GetSystemMetrics( SM_CYSCREEN)
  57.  
  58. If theScreenHeight < 700 Then
  59.      SendCtrlKeys  "{PGDN}", 100
  60. End If
  61.    Exit Sub
  62.  
  63. Case  5 
  64.    StepsText = GetString( "2201004", IResult% )
  65.    Delay 500
  66.    X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
  67.    X = DoWhereIs (CELL_OBJ_G,"",1,32,0,0,ClientID)
  68.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  69.    HideTextBubble
  70.    Exit Sub
  71.  
  72. Case  6 
  73.    StepsText = GetString( "2201005", IResult% )
  74.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  75.    HideTextBubble
  76.    Exit Sub
  77.  
  78. Case  7 
  79.    'Page up if required
  80. Dim theScreenHeight2 As Integer
  81. theScreenHeight2 = GetSystemMetrics( SM_CYSCREEN)
  82.  
  83. If theScreenHeight < 700 Then
  84.      SendCtrlKeys  "{PGUP}", 100
  85. End If
  86.  
  87.    Exit Sub
  88.  
  89. Case  8 
  90.    StepsText = GetString( "2201006", IResult% )
  91.    Delay 500
  92.    X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
  93.    X = DoWhereIs (CELL_OBJ_G,"",7,16,0,0,ClientID)
  94.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  95.    HideTextBubble
  96.    Exit Sub
  97.  
  98. Case  9 
  99.    StepsText = GetString( "2201007", IResult% )
  100.    X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
  101.    X = DoWhereIs (ROW_LEVEL_LABEL_G,"",1,1,0,0,ClientID)
  102.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  103.    HideTextBubble
  104.    MoveToObj Center
  105.    DoMouse WM_LBUTTONDOWN%, 0
  106.    DoMouse WM_LBUTTONUP%, 0
  107.    Exit Sub
  108.  
  109. Case  10 
  110.    StepsText = GetString( "2201008", IResult% )
  111.    Delay 500
  112.    X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
  113.    X = DoWhereIs (CELL_OBJ_G,"",1,3,0,0,ClientID)
  114.    ShowTextBubble StepsText,  0,  1, NorthEast
  115.    HideTextBubble
  116.    Exit Sub
  117.  
  118. Case  11 
  119.    StepsText = GetString( "2201009", IResult% )
  120.    X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
  121.    X = DoWhereIs (CELL_OBJ_G,"",1,19,0,0,ClientID)
  122.    ShowTextBubble StepsText,  0,  1, NorthEast
  123.    HideTextBubble
  124.    Exit Sub
  125.  
  126. Case  12 
  127.    StepsText = GetString( "2201010", IResult% )
  128.    X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
  129.    X = DoWhereIs (CELL_OBJ_G,"",1,35,0,0,ClientID)
  130.    ShowTextBubble StepsText,  0,  1, NorthEast
  131.    HideTextBubble
  132.    Exit Sub
  133.  
  134. Case  13 
  135.    StepsText = GetString( "2201011", IResult% )
  136.    Delay 500
  137.    X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
  138.    X = DoWhereIs (CELL_OBJ_G,"",7,16,0,0,ClientID)
  139.    ShowTextBubble StepsText,  .5,  .5, SouthWest
  140.    HideTextBubble
  141.    Exit Sub
  142.  
  143. Case  14 
  144.    StepsText = GetString( "2201012", IResult% )
  145.    ShowTextBubble StepsText,  .5,  .5, SouthWest
  146.    HideTextBubble
  147.    Exit Sub
  148.  
  149. Case  15 
  150.    StepsText = GetString( "2201013", IResult% )
  151.    X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
  152.    X = DoWhereIs (COL_LEVEL_LABEL_G,"",1,1,0,0,ClientID)
  153.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  154.    HideTextBubble
  155.    MoveToObj Center
  156.    DoMouse WM_LBUTTONDOWN%, 0
  157.    DoMouse WM_LBUTTONUP%, 0
  158.    Exit Sub
  159.  
  160. Case  16 
  161.    StepsText = GetString( "2201014", IResult% )
  162.    Delay 1000
  163.    X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
  164.    X = DoWhereIs (COLUMN_SELECTOR_G,"",1,1,0,0,ClientID)
  165.    ShowTextBubble StepsText,  1,  1, SouthEast
  166.    HideTextBubble
  167.    Exit Sub
  168.  
  169. Case  17 
  170.    StepsText = GetString( "2201015", IResult% )
  171.    X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
  172.    X = DoWhereIs (COLUMN_SELECTOR_G,"",5,1,0,0,ClientID)
  173.    ShowTextBubble StepsText,  1,  1, SouthEast
  174.    HideTextBubble
  175.    Exit Sub
  176.  
  177. Case  18 
  178.    StepsText = GetString( "2201016", IResult% )
  179.    Delay 500
  180.    X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
  181.    X = DoWhereIs (CELL_OBJ_G,"",8,16,0,0,ClientID)
  182.    ShowTextBubble StepsText,  0,  .5, NorthEast
  183.    HideTextBubble
  184.    Exit Sub
  185.  
  186. Case  19 
  187.    StepsText = GetString( "2201017", IResult% )
  188.    ShowTextBubble StepsText,  0,  .5, NorthEast
  189.    HideTextBubble
  190.    Exit Sub
  191.  
  192. Case  20 
  193.    StepsText = GetString( "2201018", IResult% )
  194.    X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
  195.    X = DoWhereIs (COL_OUTLINE_OBJECT_G,"",7,1,0,0,ClientID)
  196.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  197.    HideTextBubble
  198.    Exit Sub
  199.  
  200. Case  21 
  201.    StepsText = GetString( "2201019", IResult% )
  202.    Delay 500
  203.    X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
  204.    X = DoWhereIs (COL_OUTLINE_OBJECT_G,"",7,1,0,0,ClientID)
  205.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  206.    HideTextBubble
  207.    MoveToObj Center
  208.    DoMouse WM_LBUTTONDOWN%, 0
  209.    DoMouse WM_LBUTTONUP%, 0
  210.    Exit Sub
  211.  
  212. Case  22 
  213.    StepsText = GetString( "2201020", IResult% )
  214.    Delay 1000
  215.    X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
  216.    X = DoWhereIs (COL_OUTLINE_OBJECT_G,"",7,1,0,0,ClientID)
  217.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  218.    HideTextBubble
  219.    Exit Sub
  220.  
  221. Case  23 
  222.    StepsText = GetString( "2201021", IResult% )
  223.    X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
  224.    X = DoWhereIs (CELL_OBJ_G,"",7,5,0,0,ClientID)
  225.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  226.    HideTextBubble
  227.    Exit Sub
  228. End Select
  229. End Sub
  230.