home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 October A / Pcwk10a98.iso / Lotus / LOTUS / SMARTCTR / 006.LSS < prev    next >
Encoding:
Text File  |  1996-10-25  |  4.9 KB  |  223 lines
  1. 'Copyright 1995-96, Lotus Development Corporation. All rights reserved.
  2. %if GEMINI
  3. Use "LTAPGN11"
  4. %elseif IBM_OS2
  5. Use "LTAPGO11"
  6. %end if
  7. %if GEMINI
  8. Use "LTAPSN11"
  9. %elseif IBM_OS2
  10. Use "LTAPSO11"
  11. %end if
  12.  
  13. Sub Initialize
  14.    ClientMainWinClass = SMARTCENTER_MAINWINCLASS
  15.    ClientID = AN_SMARTCEN
  16.    ClientModName = SMARTCENTER_PERSMODNAME
  17.    ClientLotusAppID = "SMARTCENTER"
  18.    ShowMeModName = "006"
  19.    AnimVersionNum =  2.32 
  20.    NumFramesThisAnim =  27 
  21.    AnimationType = "QuickDemo"
  22.    SampleFile = "sc5en.123"
  23.    AnimName = GetString( "0060000", IResult% )
  24. End Sub
  25.  
  26. Public Sub ShowMe (theNextStep As Integer)
  27.  
  28. GetCursorPos TempPos
  29. CursorPosForStep(theNextStep) = TempPos
  30.  
  31. Select Case theNextStep
  32.  
  33. Case  1 
  34.    StepsText = GetString( "0061001", IResult% )
  35.    StartAppFromSC AN_GEMINI, "sc5en.123"
  36.    Exit Sub
  37.  
  38. Case  2 
  39.    StepsText = GetString( "0061002", IResult% )
  40.    X = SetTargetWindow (ToolWin_G, "sc5en.123", ClientID, DeskwHdl.val)
  41.    X = DoWhereIs (CELL_OBJ_G,"",2,4,0,0,ClientID)
  42.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  43.    HideTextBubble
  44.    MoveToObj Center
  45.    DoMouse WM_LBUTTONDOWN%, 0
  46.    Exit Sub
  47.  
  48. Case  3 
  49.    X = SetTargetWindow (ToolWin_G, "sc5en.123", ClientID, DeskwHdl.val)
  50.    X = DoWhereIs (CELL_OBJ_G,"",8,16,0,0,ClientID)
  51.    MoveToObj Center
  52.    DoMouse WM_LBUTTONUP%, 0
  53.    Exit Sub
  54.  
  55. Case  4 
  56.    StepsText = GetString( "0061003", IResult% )
  57.    Delay 1000
  58.    SetBubblePosforMenus
  59.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  60.    HideTextBubble
  61.    ChooseMenuItem  DtCreateTableReport_g
  62.    Exit Sub
  63.  
  64. Case  5 
  65.    StepsText = GetString( "0061004", IResult% )
  66.    Delay 1500
  67.    WhereIsDlgControl 1, "", 0
  68.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  69.    HideTextBubble
  70.    MoveToObj Center
  71.    DoMouse WM_LBUTTONDOWN%, 0
  72.    DoMouse WM_LBUTTONUP%, 0
  73.    Exit Sub
  74.  
  75. Case  6 
  76.    StepsText = GetString( "0061005", IResult% )
  77.    X = SetTargetWindow (ToolWin_G, "sc5en.123", ClientID, DeskwHdl.val)
  78.    X = DoWhereIs (CELL_OBJ_G,"",9,4,0,0,ClientID)
  79.    ShowTextBubble StepsText,  .5,  .5, SouthWest
  80.    HideTextBubble
  81.    MoveToObj Center
  82.    DoMouse WM_LBUTTONDOWN%, 0
  83.    DoMouse WM_LBUTTONUP%, 0
  84.    Exit Sub
  85.  
  86. Case  7 
  87.    StepsText = GetString( "0061006", IResult% )
  88.    Delay 15000
  89.    WhereIsDlgControl &H72, "", 0
  90.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  91.    HideTextBubble
  92.    MoveToObj Center
  93.    DoMouse WM_LBUTTONDOWN%, 0
  94.    DoMouse WM_LBUTTONUP%, 0
  95.    Exit Sub
  96.  
  97. Case  8 
  98.    Delay 1000
  99.    SendCtrlKeys  "+^{HOME}", 100
  100.    Exit Sub
  101.  
  102. Case  9 
  103.    SendTextKeys  GetString( "0062009", IResult% ), 50
  104.    Exit Sub
  105.  
  106. Case  10 
  107.    Delay 500
  108.    WhereIsDlgControl &H79, "", 0
  109.    MoveToObj Center
  110.    DoMouse WM_LBUTTONDOWN%, 0
  111.    DoMouse WM_LBUTTONUP%, 0
  112.    Exit Sub
  113.  
  114. Case  11 
  115.    SendCtrlKeys  "{HOME}{DOWN}", 100
  116.    Exit Sub
  117.  
  118. Case  12 
  119.    WhereIsDlgControl &H6D, "", 0
  120.    MoveToObj Center
  121.    DoMouse WM_LBUTTONDOWN%, 0
  122.    DoMouse WM_LBUTTONUP%, 0
  123.    Exit Sub
  124.  
  125. Case  13 
  126.    SendCtrlKeys  "{HOME}{DOWN 9}", 100
  127.    Exit Sub
  128.  
  129. Case  14 
  130.    MoveToObj Center
  131.    DoMouse WM_LBUTTONDOWN%, 0
  132.    DoMouse WM_LBUTTONUP%, 0
  133.    Exit Sub
  134.  
  135. Case  15 
  136.    Delay 2000
  137.    WhereIsDlgControl &H76, "", 0
  138.    MoveToObj Center
  139.    DoMouse WM_LBUTTONDOWN%, 0
  140.    DoMouse WM_LBUTTONUP%, 0
  141.    Exit Sub
  142.  
  143. Case  16 
  144.    StepsText = GetString( "0061007", IResult% )
  145.    Delay 1500
  146.    WhereIsDlgControl &H66, "", 0
  147.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  148.    HideTextBubble
  149.    MoveToObjRel  25 , 5 
  150.    DoMouse WM_LBUTTONDOWN%, 0
  151.    DoMouse WM_LBUTTONUP%, 0
  152.    Exit Sub
  153.  
  154. Case  17 
  155.    SendCtrlKeys  "{HOME}{DOWN}", 100
  156.    Exit Sub
  157.  
  158. Case  18 
  159.    WhereIsDlgControl &H69, "", 0
  160.    MoveToObj Center
  161.    DoMouse WM_LBUTTONDOWN%, 0
  162.    DoMouse WM_LBUTTONUP%, 0
  163.    Exit Sub
  164.  
  165. Case  19 
  166.    WhereIsDlgControl &H69, "", 0
  167.    MoveToObj Center
  168.    DoMouse WM_LBUTTONDOWN%, 0
  169.    DoMouse WM_LBUTTONUP%, 0
  170.    Exit Sub
  171.  
  172. Case  20 
  173.    WhereIsDlgControl &H69, "", 0
  174.    MoveToObj Center
  175.    DoMouse WM_LBUTTONDOWN%, 0
  176.    DoMouse WM_LBUTTONUP%, 0
  177.    Exit Sub
  178.  
  179. Case  21 
  180.    WhereIsDlgControl &H69, "", 0
  181.    MoveToObj Center
  182.    DoMouse WM_LBUTTONDOWN%, 0
  183.    DoMouse WM_LBUTTONUP%, 0
  184.    Exit Sub
  185.  
  186. Case  22 
  187.    WhereIsDlgControl &H66, "", 0
  188.    MoveToObjRel  25 , 80 
  189.    DoMouse WM_LBUTTONDOWN%, 0
  190.    DoMouse WM_LBUTTONUP%, 0
  191.    Exit Sub
  192.  
  193. Case  23 
  194.    WhereIsDlgControl &H69, "", 0
  195.    MoveToObj Center
  196.    DoMouse WM_LBUTTONDOWN%, 0
  197.    DoMouse WM_LBUTTONUP%, 0
  198.    Exit Sub
  199.  
  200. Case  24 
  201.    StepsText = GetString( "0061008", IResult% )
  202.    WhereIsDlgControl 1, "", 0
  203.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  204.    HideTextBubble
  205.    MoveToObj Center
  206.    DoMouse WM_LBUTTONDOWN%, 0
  207.    DoMouse WM_LBUTTONUP%, 0
  208.    Exit Sub
  209.  
  210. Case  25 
  211.    WaitForWindowOfClass APPROACH_MAINWINCLASS, 20000
  212.    Exit Sub
  213.  
  214. Case  26 
  215.    SendCtrlKeys  "%{F4}", 100
  216.    Exit Sub
  217.  
  218. Case  27 
  219.    Delay 3000
  220.    Exit Sub
  221. End Select
  222. End Sub
  223.