PC World Komputer 1997 November/Pcwk1197.iso/LOTUS/Eng-ins/WORDPRO/155.LSS

Text File | 1996-10-07 | 6.4 KB | 281 lines

'Copyright 1995-96, Lotus Development Corporation. All rights reserved.
%if GEMINI
%elseif IBM_OS2
%end if
%if GEMINI
Use "LTAPMN11"
%elseif IBM_OS2
Use "LTAPMO11"
%end if

Sub Initialize
   ClientMainWinClass = WORDPRO_MAINWINCLASS
   ClientID = AN_AMIPRO
   ClientModName = WORDPRO_PERSMODNAME
   ClientLotusAppID = "WORDPRO"
   ShowMeModName = "155"
   AnimVersionNum =  2.31
   NumFramesThisAnim =  33
   AnimationType = "QuickDemo"
   SampleFile = "la1n71en.lwp"
   AnimName = GetString( "1550000", IResult% )
End Sub

Public Sub ShowMe (theNextStep As Integer)

GetCursorPos TempPos
CursorPosForStep(theNextStep) = TempPos

Select Case theNextStep

Case  1
   X = RunScriptCommand (".GoToBookMark ""text1""", ClientID, DeskwHdl.val )
   Exit Sub

Case  2
   StepsText = GetString( "1551001", IResult% )
   X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
   ShowTextBubble StepsText,  .5,  .5, SouthEast
   HideTextBubble
   MoveToObj Center
   DoMouse WM_RBUTTONDOWN%, 0
   DoMouse WM_RBUTTONUP%, 0
   Exit Sub

Case  3
   StepsText = GetString( "1551002", IResult% )
   X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
   ShowTextBubble StepsText,  170,  24, SouthEast
   HideTextBubble
   SendCtrlKeys  "{down}{enter}", 100
   Exit Sub

Case  4
   StepsText = GetString( "1551003", IResult% )
   WhereIsIBControl IBCISYSMENU, 1
   ShowTextBubble StepsText,  1.5,  .5, NorthWest
   HideTextBubble
   Exit Sub

Case  5
   X = RunScriptCommand (".GoToBookMark ""text1""", ClientID, DeskwHdl.val )
   Exit Sub

Case  6
   StepsText = GetString( "1551004", IResult% )
   X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
   ShowTextBubble StepsText,  .5,  .5, SouthEast
   HideTextBubble
   Exit Sub

Case  7
   X = RunScriptCommand (".GoToBookMark ""text2""", ClientID, DeskwHdl.val )
   Exit Sub

Case  8
   StepsText = GetString( "1551005", IResult% )
   WhereIsIBControl IBCICONTROL, FONTATTRS_M
   ShowTextBubble StepsText,  .5,  1, SouthEast
   HideTextBubble
   MoveToObjRel  50 , 10
   DoMouse WM_LBUTTONDOWN%, 0
   DoMouse WM_LBUTTONUP%, 0
   Exit Sub

Case  9
   X = RunScriptCommand (".GoToBookMark ""text1""", ClientID, DeskwHdl.val )
   Exit Sub

Case  10
   StepsText = GetString( "1551006", IResult% )
   X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
   ShowTextBubble StepsText,  .5,  1, SouthEast
   HideTextBubble
   Exit Sub

Case  11
   StepsText = GetString( "1551007", IResult% )
   WhereIsIBControl IBCITABS, 2
   ShowTextBubble StepsText,  .5,  .5, SouthEast
   HideTextBubble
   MoveToObj Center
   DoMouse WM_LBUTTONDOWN%, 0
   DoMouse WM_LBUTTONUP%, 0
   Exit Sub

Case  12
   Delay 1000
   WhereIsIBControl IBCITABS, 3
   MoveToObj Center
   DoMouse WM_LBUTTONDOWN%, 0
   DoMouse WM_LBUTTONUP%, 0
   Exit Sub

Case  13
   Delay 1000
   WhereIsIBControl IBCITABS, 4
   MoveToObj Center
   DoMouse WM_LBUTTONDOWN%, 0
   DoMouse WM_LBUTTONUP%, 0
   Exit Sub

Case  14
   Delay 1000
   WhereIsIBControl IBCITABS, 5
   MoveToObj Center
   DoMouse WM_LBUTTONDOWN%, 0
   DoMouse WM_LBUTTONUP%, 0
   Exit Sub

Case  15
   Delay 1000
   WhereIsIBControl IBCITABS, 6
   MoveToObj Center
   DoMouse WM_LBUTTONDOWN%, 0
   DoMouse WM_LBUTTONUP%, 0
   Exit Sub

Case  16
   Delay 1000
   WhereIsIBControl IBCITABS, 7
   MoveToObj Center
   DoMouse WM_LBUTTONDOWN%, 0
   DoMouse WM_LBUTTONUP%, 0
   Exit Sub

Case  17
   WhereIsIBControl IBCITABS, 7
   MoveToObjRel  50 , 105
   Exit Sub

Case  18
   StepsText = GetString( "1551008", IResult% )
   WhereIsIBControl IBCIHELPBUTTON, 1
   ShowTextBubble StepsText, -.7,  .5, SouthEast
   HideTextBubble
   MoveToObjRel -70 , 50
   DoMouse WM_LBUTTONDOWN%, 0
   DoMouse WM_LBUTTONUP%, 0
   Exit Sub

Case  19
   MoveToObjRel -70 , 250
   DoMouse WM_LBUTTONDOWN%, 0
   DoMouse WM_LBUTTONUP%, 0
   Exit Sub

Case  20
   WhereIsIBControl IBCITABS, 7
   MoveToObjRel  50 , 105
   Exit Sub

Case  21
   StepsText = GetString( "1551009", IResult% )
   WhereIsIBControl IBCISYSMENU, 1
   ShowTextBubble StepsText,  .5,  .5, SouthEast
   HideTextBubble
   Exit Sub

Case  22
   WhereIsIBControl IBCITABS, 2
   MoveToObj Center
   DoMouse WM_LBUTTONDOWN%, 0
   DoMouse WM_LBUTTONUP%, 0
   Exit Sub

Case  23
   Delay 1000
   WhereIsIBControl IBCITABS, 3
   MoveToObj Center
   DoMouse WM_LBUTTONDOWN%, 0
   DoMouse WM_LBUTTONUP%, 0
   Exit Sub

Case  24
   Delay 1000
   WhereIsIBControl IBCITABS, 4
   MoveToObj Center
   DoMouse WM_LBUTTONDOWN%, 0
   DoMouse WM_LBUTTONUP%, 0
   Exit Sub

Case  25
   Delay 1000
   WhereIsIBControl IBCITABS, 5
   MoveToObj Center
   DoMouse WM_LBUTTONDOWN%, 0
   DoMouse WM_LBUTTONUP%, 0
   Exit Sub

Case  26
   Delay 1000
   WhereIsIBControl IBCITABS, 6
   MoveToObj Center
   DoMouse WM_LBUTTONDOWN%, 0
   DoMouse WM_LBUTTONUP%, 0
   Exit Sub

Case  27
   Delay 1000
   WhereIsIBControl IBCITABS, 7
   MoveToObj Center
   DoMouse WM_LBUTTONDOWN%, 0
   DoMouse WM_LBUTTONUP%, 0
   Exit Sub

Case  28
   Delay 1000
   WhereIsIBControl IBCITABS, 8
   MoveToObj Center
   DoMouse WM_LBUTTONDOWN%, 0
   DoMouse WM_LBUTTONUP%, 0
   Exit Sub

Case  29
   WhereIsIBControl IBCITABS, 8
   MoveToObjRel  50 , 105
   Exit Sub

Case  30
   StepsText = GetString( "1551010", IResult% )
   WhereIsIBControl IBCISYSMENU, 1
   ShowTextBubble StepsText,  1.5,  .5, SouthEast
   HideTextBubble
   Exit Sub

Case  31
   StepsText = GetString( "1551011", IResult% )
   WhereIsIBControl IBCISYSMENU, 1
   ShowTextBubble StepsText,  1.5,  .5, SouthEast
   HideTextBubble
   MoveToObjRel  150 , 50
   DoMouse WM_LBUTTONDOWN%, 0
   DoMouse WM_LBUTTONUP%, 0
   DoMouse WM_LBUTTONDBLCLK%, 0
   DoMouse WM_LBUTTONUP%, 0
   Exit Sub

Case  32
   StepsText = GetString( "1551012", IResult% )
   WhereIsIBControl IBCISYSMENU, 1
   ShowTextBubble StepsText,  1.5,  .5, SouthEast
   HideTextBubble
   MoveToObjRel  150 , 50
   DoMouse WM_LBUTTONDOWN%, 0
   DoMouse WM_LBUTTONUP%, 0
   DoMouse WM_LBUTTONDBLCLK%, 0
   DoMouse WM_LBUTTONUP%, 0
   Exit Sub

Case  33
   StepsText = GetString( "1551013", IResult% )
   WhereIsIBControl IBCICLOSEBOX, 1
   ShowTextBubble StepsText,  .5,  .5, SouthEast
   HideTextBubble
   MoveToObj Center
   DoMouse WM_LBUTTONDOWN%, 0
   DoMouse WM_LBUTTONUP%, 0
   Exit Sub
End Select
End Sub