home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 October A / Pcwk10a98.iso / Lotus / LOTUS / WORDPRO / 020.LSS < prev    next >
Text File  |  1998-03-24  |  5KB  |  179 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 "LTAPMN11"
  7. %elseif IBM_OS2
  8. Use "LTAPMO11"
  9. %end if
  10. Sub Initialize
  11.    ClientMainWinClass = WORDPRO_MAINWINCLASS
  12.    ClientID = AN_AMIPRO
  13.    ClientModName = WORDPRO_PERSMODNAME
  14.    ClientLotusAppID = "WORDPRO"
  15.    ShowMeModName = "020"
  16.    AnimVersionNum =  2.36 
  17.    NumFramesThisAnim =  22 
  18.    AnimationType = "QuickDemo"
  19.    SampleFile = "la2n71??.lwp"
  20.    AnimName = GetString( "0200000", 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.    X = RunScriptCommand (".GoToBookMark ""style1""", ClientID, DeskwHdl.val )
  32.    Exit Sub
  33.  
  34. Case  2 
  35.    StepsText = GetString( "0201001", IResult% )
  36.    X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
  37.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  38.    HideTextBubble
  39.    MoveToObj Center
  40.    Exit Sub
  41.  
  42. Case  3 
  43.    X = RunScriptCommand (".GoToBookMark ""style2""", ClientID, DeskwHdl.val )
  44.    Exit Sub
  45.  
  46. Case  4 
  47.    StepsText = GetString( "0201002", IResult% )
  48.    ShowTextBubble StepsText,  0,  .5, SouthEast
  49.    HideTextBubble
  50.    DoMouse WM_RBUTTONDOWN%, 0
  51.    DoMouse WM_RBUTTONUP%, 0
  52.    Exit Sub
  53.  
  54. Case  5 
  55.    StepsText = GetString( "0201003", IResult% )
  56.    X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
  57.    ShowTextBubble StepsText,  258,  15, SouthEast
  58.    HideTextBubble
  59.    SendCtrlKeys  "{down}{enter}", 100
  60.    Exit Sub
  61.  
  62. Case  6 
  63.    StepsText = GetString( "0201004", IResult% )
  64.    WhereIsIBControl IBCITABS, 7
  65.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  66.    HideTextBubble
  67.    MoveToObj Center
  68.    DoMouse WM_LBUTTONDOWN%, 0
  69.    DoMouse WM_LBUTTONUP%, 0
  70.    Exit Sub
  71.  
  72. Case  7 
  73.    WhereIsIBControl IBCITABS, 7
  74.    MoveToObjRel  50 , 150 
  75.    Exit Sub
  76.  
  77. Case  8 
  78.    StepsText = GetString( "0201005", IResult% )
  79.    WhereIsIBControl IBCICONTROL, CREATESTYLE_M
  80.    ShowTextBubble StepsText,  .5,  .5, SouthWest
  81.    HideTextBubble
  82.    MoveToObj Center
  83.    DoMouse WM_LBUTTONDOWN%, 0
  84.    DoMouse WM_LBUTTONUP%, 0
  85.    Exit Sub
  86.  
  87. Case  9 
  88.    StepsText = GetString( "0201006", IResult% )
  89.    X = DoWhereIs (DIALOG_CONTROL_M,"",25300,0,0,0,ClientID)
  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  10 
  98.    SendTextKeys  GetString( "0202010", IResult% ), 50
  99.    Exit Sub
  100.  
  101. Case  11 
  102.    X = DoWhereIs (DIALOG_CONTROL_M,"",25301,0,0,0,ClientID)
  103.    MoveToObj Center
  104.    DoMouse WM_LBUTTONDOWN%, 0
  105.    DoMouse WM_LBUTTONUP%, 0
  106.    Exit Sub
  107.  
  108. Case  12 
  109.    SendTextKeys  GetString( "0202012", IResult% ), 50
  110.    Exit Sub
  111.  
  112. Case  13 
  113.    StepsText = GetString( "0201007", IResult% )
  114.    X = DoWhereIs (DIALOG_CONTROL_M,"",25975,0,0,0,ClientID)
  115.    ShowTextBubble StepsText,  .5,  1, SouthWest
  116.    HideTextBubble
  117.    Exit Sub
  118.  
  119. Case  14 
  120.    StepsText = GetString( "0201008", IResult% )
  121.    X = DoWhereIs (DIALOG_CONTROL_M,"",25550,0,0,0,ClientID)
  122.    ShowTextBubble StepsText,  .5,  1, SouthEast
  123.    HideTextBubble
  124.    Exit Sub
  125.  
  126. Case  15 
  127.    StepsText = GetString( "0201009", IResult% )
  128.    X = DoWhereIs (DIALOG_CONTROL_M,"",1,0,0,0,ClientID)
  129.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  130.    HideTextBubble
  131.    MoveToObj Center
  132.    DoMouse WM_LBUTTONDOWN%, 0
  133.    DoMouse WM_LBUTTONUP%, 0
  134.    Exit Sub
  135.  
  136. Case  16 
  137.    WhereIsIBControl IBCICLOSEBOX, 1
  138.    MoveToObj Center
  139.    DoMouse WM_LBUTTONDOWN%, 0
  140.    DoMouse WM_LBUTTONUP%, 0
  141.    Exit Sub
  142.  
  143. Case  17 
  144.    X = RunScriptCommand (".GoToBookMark ""style3""", ClientID, DeskwHdl.val )
  145.    Exit Sub
  146.  
  147. Case  18 
  148.    X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
  149.    MoveToObj Center
  150.    Exit Sub
  151.  
  152. Case  19 
  153.    X = RunScriptCommand (".GoToBookMark ""style4""", ClientID, DeskwHdl.val )
  154.    Exit Sub
  155.  
  156. Case  20 
  157.    X = DoWhereIs (0,"",STATUS_BAR_STYLE_M,0,0,0,AN_STATUSBAR)
  158.    If X <> 0 Then
  159.         Y = RunScriptCommand (".ActiveDocWindow.WinViewPrefs.IsViewStatusBarCleanScrn=True", AN_AMIPRO, DeskwHdl.val )
  160.         X = DoWhereIs (0,"",STATUS_BAR_STYLE_M,0,0,0,AN_STATUSBAR)
  161.    End If
  162.    MoveToObj Center
  163.    DoMouse WM_LBUTTONDOWN%, 0
  164.    DoMouse WM_LBUTTONUP%, 0
  165.    Exit Sub
  166.  
  167. Case  21 
  168.    Delay 1000
  169.    MoveToObjRel  50 ,-125 
  170.    DoMouse WM_LBUTTONDOWN%, 0
  171.    DoMouse WM_LBUTTONUP%, 0
  172.    Exit Sub
  173.  
  174. Case  22 
  175.    X = RunScriptCommand (".GoToBookMark ""style3""", ClientID, DeskwHdl.val )
  176.    Exit Sub
  177. End Select
  178. End Sub
  179.