home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 October A / Pcwk10a98.iso / Lotus / LOTUS / 123 / 210.LSS < prev    next >
Text File  |  1998-03-19  |  5KB  |  191 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 = "210"
  16.    AnimVersionNum =  2.36 
  17.    NumFramesThisAnim =  23 
  18.    AnimationType = "QuickDemo"
  19.    SampleFile = "ssdn16??.123"
  20.    AnimName = GetString( "2100000", 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( "2101001", IResult% )
  32.    SetBubblePosforMenus
  33.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  34.    HideTextBubble
  35.    ChooseMenuItem  DtFilePrintPreview_g
  36.    Exit Sub
  37.  
  38. Case  2 
  39.    'Position the InfoBox so you can see Preview...
  40. Sleep 0
  41. Sleep 0
  42.    WhereIsIBControl IBCIHELPBUTTON, 1
  43.    MoveToObjRel -50 , 50 
  44.    DoMouse WM_LBUTTONDOWN%, 0
  45.    Exit Sub
  46.  
  47. Case  3 
  48.    X = SetTargetWindow (ToolWin_G, "ssdn16??.123", ClientID, DeskwHdl.val)
  49.    X = DoWhereIs (CELL_OBJ_G,"",1,3,0,0,ClientID)
  50.    MoveToObjRel -550 , 250 
  51.    DoMouse WM_LBUTTONUP%, 0
  52.    Exit Sub
  53.  
  54. Case  4 
  55.    Delay 500
  56.    'Move the mousepointer away from the bubble...
  57.    WhereIsIBControl IBCITABS, 3
  58.    MoveToObjRel  150 , 300 
  59.    Exit Sub
  60.  
  61. Case  5 
  62.    StepsText = GetString( "2101002", IResult% )
  63.    X = SetTargetWindow (ToolWin_G, "ssdn16??.123", ClientID, DeskwHdl.val)
  64.    X = DoWhereIs (CELL_OBJ_G,"",1,1,0,0,ClientID)
  65.    ShowTextBubble StepsText,  .5,  1, SouthWest
  66.    HideTextBubble
  67.    Exit Sub
  68.  
  69. Case  6 
  70.    StepsText = GetString( "2101003", IResult% )
  71.    Delay 250
  72.    WhereIsIBControl IBCITABS, 3
  73.    ShowTextBubble StepsText,  .75,  .5, NorthEast
  74.    HideTextBubble
  75.    MoveToObj Center
  76.    DoMouse WM_LBUTTONDOWN%, 0
  77.    DoMouse WM_LBUTTONUP%, 0
  78.    Exit Sub
  79.  
  80. Case  7 
  81.    'Prevent hover help...
  82.    MoveToObjRel  150 , 300 
  83.    Exit Sub
  84.  
  85. Case  8 
  86.    StepsText = GetString( "2101004", IResult% )
  87.    WhereIsIBControl IBCICONTROL,  TRTPRINTSET_PROP_UITOPMARGIN_G
  88.    ShowTextBubble StepsText,  2,  .9, SouthEast
  89.    HideTextBubble
  90.    Exit Sub
  91.  
  92. Case  9 
  93.    Delay 1000
  94.    Exit Sub
  95.  
  96. Case  10 
  97.    WhereIsIBControl IBCICONTROL,  TRTPRINTSET_PROP_UILEFTMARGIN_G
  98.    MoveToObj Center
  99.    DoMouse WM_LBUTTONDOWN%, 0
  100.    DoMouse WM_LBUTTONUP%, 0
  101.    DoMouse WM_LBUTTONDBLCLK%, 0
  102.    DoMouse WM_LBUTTONUP%, 0
  103.    Exit Sub
  104.  
  105. Case  11 
  106.    SendCtrlKeys  "{DEL}", 100
  107.    Exit Sub
  108.  
  109. Case  12 
  110.    Delay 1000
  111.    SendTextKeys  GetString( "2102012", IResult% ), 50
  112.    Exit Sub
  113.  
  114. Case  13 
  115.    SendCtrlKeys  "{ENTER}", 100
  116.    Exit Sub
  117.  
  118. Case  14 
  119.    WhereIsIBControl IBCICONTROL,  TRTPRINTSET_PROP_UITOPMARGIN_G
  120.    MoveToObj Center
  121.    DoMouse WM_LBUTTONDOWN%, 0
  122.    DoMouse WM_LBUTTONUP%, 0
  123.    DoMouse WM_LBUTTONDBLCLK%, 0
  124.    DoMouse WM_LBUTTONUP%, 0
  125.    Exit Sub
  126.  
  127. Case  15 
  128.    SendCtrlKeys  "{DEL}", 100
  129.    Exit Sub
  130.  
  131. Case  16 
  132.    SendTextKeys  GetString( "2102016", IResult% ), 50
  133.    Exit Sub
  134.  
  135. Case  17 
  136.    SendCtrlKeys  "{ENTER}", 100
  137.    Exit Sub
  138.  
  139. Case  18 
  140.    StepsText = GetString( "2101005", IResult% )
  141.    X = SetTargetWindow (ToolWin_G, "ssdn16??.123", ClientID, DeskwHdl.val)
  142.    X = DoWhereIs (CELL_OBJ_G,"",1,1,0,0,ClientID)
  143.    ShowTextBubble StepsText,  1,  3, SouthWest
  144.    HideTextBubble
  145.    Exit Sub
  146.  
  147. Case  19 
  148.    StepsText = GetString( "2101006", IResult% )
  149.    Delay 2000
  150.    X = SetTargetWindow (ToolWin_G, "ssdn16??.123", ClientID, DeskwHdl.val)
  151.    X = DoWhereIs (CELL_OBJ_G,"",1,1,0,0,ClientID)
  152.    ShowTextBubble StepsText,  1,  3, SouthWest
  153.    HideTextBubble
  154.    MoveToObjRel  100 , 300 
  155.    DoMouse WM_RBUTTONDOWN%, 0
  156.    DoMouse WM_RBUTTONUP%, 0
  157.    Exit Sub
  158.  
  159. Case  20 
  160.    Delay 1000
  161.    SendCtrlKeys  "{UP}", 100
  162.    Exit Sub
  163.  
  164. Case  21 
  165.    Delay 1000
  166.    SendCtrlKeys  "{ESC}", 100
  167.    Exit Sub
  168.  
  169. Case  22 
  170.    StepsText = GetString( "2101007", IResult% )
  171.    Delay 1000
  172.    WhereIsIBControl IBCICLOSEBOX, 1
  173.    ShowTextBubble StepsText,  .5,  .5, SouthWest
  174.    HideTextBubble
  175.    MoveToObj Center
  176.    DoMouse WM_LBUTTONDOWN%, 0
  177.    DoMouse WM_LBUTTONUP%, 0
  178.    Exit Sub
  179.  
  180. Case  23 
  181.    StepsText = GetString( "2101008", IResult% )
  182.    Delay 500
  183.    X = SetTargetWindow (ToolWin_G, "ssdn16??.123", ClientID, DeskwHdl.val)
  184.    X = DoWhereIs (CELL_OBJ_G,"",1,1,0,0,ClientID)
  185.    ShowTextBubble StepsText,  12,  0, SouthWest
  186.    HideTextBubble
  187.    SendCtrlKeys  "^{F4}", 100
  188.    Exit Sub
  189. End Select
  190. End Sub
  191.