home *** CD-ROM | disk | FTP | other *** search
- '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 = "070"
- AnimVersionNum = 2.31
- NumFramesThisAnim = 11
- AnimationType = "QuickDemo"
- SampleFile = "la1n71??.lwp"
- AnimName = GetString( "0700000", IResult% )
- End Sub
-
- Public Sub ShowMe (theNextStep As Integer)
-
- GetCursorPos TempPos
- CursorPosForStep(theNextStep) = TempPos
-
- Select Case theNextStep
-
- Case 1
- StepsText = GetString( "0701001", 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 2
- StepsText = GetString( "0701002", IResult% )
- ShowTextBubble StepsText, 172.5, 24, NorthEast
- HideTextBubble
- Exit Sub
-
- Case 3
- SendCtrlKeys "{down}{down}{enter}", 100
- Exit Sub
-
- Case 4
- StepsText = GetString( "0701003", IResult% )
- WhereIsIBControl IBCITABS, 2
- ShowTextBubble StepsText, .5, .5, NorthEast
- HideTextBubble
- MoveToObj Center
- DoMouse WM_LBUTTONDOWN%, 0
- DoMouse WM_LBUTTONUP%, 0
- Exit Sub
-
- Case 5
- WhereIsIBControl IBCITABS, 2
- MoveToObjRel 50 , 110
- Exit Sub
-
- Case 6
- StepsText = GetString( "0701004", IResult% )
- WhereIsIBControl IBCICONTROL, QUICKPAGELINES_M
- ShowTextBubble StepsText, .33, .5, NorthEast
- HideTextBubble
- MoveToObjRel 33 , 50
- DoMouse WM_LBUTTONDOWN%, 0
- DoMouse WM_LBUTTONUP%, 0
- Exit Sub
-
- Case 7
- StepsText = GetString( "0701005", IResult% )
- WhereIsIBControl IBCICONTROL, QUICKDESIGNERLINES_M
- ShowTextBubble StepsText, .5, 1, SouthEast
- HideTextBubble
- Exit Sub
-
- Case 8
- StepsText = GetString( "0701006", IResult% )
- WhereIsIBControl IBCICONTROL, QUICKPAGELINESTYLE_M
- ShowTextBubble StepsText, .5, 1, SouthEast
- HideTextBubble
- Exit Sub
-
- Case 9
- StepsText = GetString( "0701007", IResult% )
- Delay 700
- WhereIsIBControl IBCICONTROL, FROMPAGEEDGE_M
- ShowTextBubble StepsText, 0, 1.1, SouthEast
- HideTextBubble
- MoveToObj Center
- DoMouse WM_LBUTTONDOWN%, 0
- Exit Sub
-
- Case 10
- MoveToObjRel 50 , 250
- DoMouse WM_LBUTTONUP%, 0
- Exit Sub
-
- Case 11
- WhereIsIBControl IBCICLOSEBOX, 1
- MoveToObj Center
- DoMouse WM_LBUTTONDOWN%, 0
- DoMouse WM_LBUTTONUP%, 0
- Exit Sub
- End Select
- End Sub
-