home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Bonus / lotus123rel9 / 123 / 205.lss < prev    next >
Encoding:
Text File  |  1998-03-19  |  5.2 KB  |  212 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 = "205"
  16.    AnimVersionNum =  2.36 
  17.    NumFramesThisAnim =  24 
  18.    AnimationType = "QuickDemo"
  19.    SampleFile = "ssdn16??.123"
  20.    AnimName = GetString( "2050000", 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( "2051001", 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.    'Move the mousepointer away from the bubble...
  56.    MoveToObjRel -550 , 300 
  57.    Exit Sub
  58.  
  59. Case  5 
  60.    StepsText = GetString( "2051002", IResult% )
  61.    X = SetTargetWindow (ToolWin_G, "ssdn16??.123", ClientID, DeskwHdl.val)
  62.    X = DoWhereIs (CELL_OBJ_G,"",1,1,0,0,ClientID)
  63.    ShowTextBubble StepsText,  .5,  1, SouthWest
  64.    HideTextBubble
  65.    Exit Sub
  66.  
  67. Case  6 
  68.    StepsText = GetString( "2051003", IResult% )
  69.    WhereIsIBControl IBCICLOSEBOX, 1
  70.    ShowTextBubble StepsText,  1.5,  3, NorthEast
  71.    HideTextBubble
  72.    Exit Sub
  73.  
  74. Case  7 
  75.    StepsText = GetString( "2051004", IResult% )
  76.    Delay 750
  77.    WhereIsIBControl IBCITABS, 4
  78.    ShowTextBubble StepsText,  .75,  .5, NorthEast
  79.    HideTextBubble
  80.    MoveToObj Center
  81.    DoMouse WM_LBUTTONDOWN%, 0
  82.    DoMouse WM_LBUTTONUP%, 0
  83.    Exit Sub
  84.  
  85. Case  8 
  86.    MoveToObjRel  50 , 125 
  87.    Exit Sub
  88.  
  89. Case  9 
  90.    StepsText = GetString( "2051005", IResult% )
  91.    WhereIsIBControl IBCICONTROL,  TRTPRINTSET_PROP_WHICHHEADERFOOTER_G
  92.    ShowTextBubble StepsText,  .75,  .5, SouthEast
  93.    HideTextBubble
  94.    MoveToObj Center
  95.    DoMouse WM_LBUTTONDOWN%, 0
  96.    DoMouse WM_LBUTTONUP%, 0
  97.    Exit Sub
  98.  
  99. Case  10 
  100.    Delay 2000
  101.    Exit Sub
  102.  
  103. Case  11 
  104.    SendCtrlKeys  "{ENTER}", 100
  105.    Exit Sub
  106.  
  107. Case  12 
  108.    StepsText = GetString( "2051006", IResult% )
  109.    WhereIsIBControl IBCICONTROL,  TRTPRINTSET_PROP_HEADERLEFT_G
  110.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  111.    HideTextBubble
  112.    MoveToObj Center
  113.    DoMouse WM_LBUTTONDOWN%, 0
  114.    DoMouse WM_LBUTTONUP%, 0
  115.    Exit Sub
  116.  
  117. Case  13 
  118.    SendTextKeys  GetString( "2052013", IResult% ), 50
  119.    Exit Sub
  120.  
  121. Case  14 
  122.    StepsText = GetString( "2051007", IResult% )
  123.    WhereIsIBControl IBCICONTROL,  DID_PS_PBCELL_G
  124.    ShowTextBubble StepsText,  1,  .5, SouthEast
  125.    HideTextBubble
  126.    Exit Sub
  127.  
  128. Case  15 
  129.    StepsText = GetString( "2051008", IResult% )
  130.    WhereIsIBControl IBCICONTROL,  DID_PS_PBPAGECON_G
  131.    ShowTextBubble StepsText,  .75,  .75, SouthEast
  132.    HideTextBubble
  133.    MoveToObj Center
  134.    DoMouse WM_LBUTTONDOWN%, 0
  135.    DoMouse WM_LBUTTONUP%, 0
  136.    Exit Sub
  137.  
  138. Case  16 
  139.    'Prevent hoverhelp
  140.  
  141.    MoveToObjRel  50 , 150 
  142.    Exit Sub
  143.  
  144. Case  17 
  145.    StepsText = GetString( "2051009", IResult% )
  146.    WhereIsIBControl IBCICONTROL,  TRTPRINTSET_PROP_HEADERLEFT_G
  147.    ShowTextBubble StepsText,  .2,  .1, SouthEast
  148.    HideTextBubble
  149.    Exit Sub
  150.  
  151. Case  18 
  152.    StepsText = GetString( "2051010", IResult% )
  153.    Delay 500
  154.    X = SetTargetWindow (ToolWin_G, "ssdn16??.123", ClientID, DeskwHdl.val)
  155.    X = DoWhereIs (CELL_OBJ_G,"",1,3,0,0,ClientID)
  156.    ShowTextBubble StepsText,  .5,  1, SouthWest
  157.    HideTextBubble
  158.    Exit Sub
  159.  
  160. Case  19 
  161.    StepsText = GetString( "2051011", IResult% )
  162.    X = SetTargetWindow (ToolWin_G, "ssdn16??.123", ClientID, DeskwHdl.val)
  163.    X = DoWhereIs (CELL_OBJ_G,"",1,3,0,0,ClientID)
  164.    ShowTextBubble StepsText,  .5,  1, SouthWest
  165.    HideTextBubble
  166.    MoveToObj Center
  167.    DoMouse WM_LBUTTONDOWN%, 0
  168.    DoMouse WM_LBUTTONUP%, 0
  169.    Exit Sub
  170.  
  171. Case  20 
  172.    StepsText = GetString( "2051012", IResult% )
  173.    Delay 2000
  174.    ShowTextBubble StepsText,  .5,  1, SouthWest
  175.    HideTextBubble
  176.    DoMouse WM_RBUTTONDOWN%, 0
  177.    DoMouse WM_RBUTTONUP%, 0
  178.    Exit Sub
  179.  
  180. Case  21 
  181.    Delay 1000
  182.    SendCtrlKeys  "{UP}", 100
  183.    Exit Sub
  184.  
  185. Case  22 
  186.    Delay 1000
  187.    SendCtrlKeys  "{ESC}", 100
  188.    Exit Sub
  189.  
  190. Case  23 
  191.    StepsText = GetString( "2051013", IResult% )
  192.    Delay 1000
  193.    WhereIsIBControl IBCICLOSEBOX, 1
  194.    ShowTextBubble StepsText,  .5,  .5, SouthWest
  195.    HideTextBubble
  196.    MoveToObj Center
  197.    DoMouse WM_LBUTTONDOWN%, 0
  198.    DoMouse WM_LBUTTONUP%, 0
  199.    Exit Sub
  200.  
  201. Case  24 
  202.    StepsText = GetString( "2051014", IResult% )
  203.    Delay 2000
  204.    X = SetTargetWindow (ToolWin_G, "ssdn16??.123", ClientID, DeskwHdl.val)
  205.    X = DoWhereIs (CELL_OBJ_G,"",1,1,0,0,ClientID)
  206.    ShowTextBubble StepsText,  12,  0, SouthWest
  207.    HideTextBubble
  208.    SendCtrlKeys  "^{F4}", 100
  209.    Exit Sub
  210. End Select
  211. End Sub
  212.