home *** CD-ROM | disk | FTP | other *** search
- Use "LTAPVN11"
-
- Sub Initialize
- ClientMainWinClass = "FLWApp"
- ClientID = AN_AVERY
- ClientModName = "LTAPVN11"
- ClientLotusAppID = "FLW"
- ShowMeModName = "110"
- AnimVersionNum = 2.18
- NumFramesThisAnim = 8
- AnimationType = "QuickDemo"
- SampleFile = "drawline.prz"
- AnimName = GetString( "1100000", IResult% )
- End Sub
-
- Public Sub ShowMe (theNextStep As Integer)
-
- GetCursorPos TempPos
- CursorPosForStep(theNextStep) = TempPos
-
- Select Case theNextStep
-
- Case 1
- StepsText = GetString( "1101001", IResult% )
- X = DoWhereIs (GUTTER_CONTROL_V,"",NEW_PAGE_BUTTON_V,0,0,0,ClientID)
- ShowTextBubble StepsText, .5, .5, NorthEast
- HideTextBubble
- MoveToObj Center
- DoMouse WM_LBUTTONDOWN%, 0
- DoMouse WM_LBUTTONUP%, 0
- Exit Sub
-
- Case 2
- StepsText = GetString( "1101002", IResult% )
- X = DoWhereIs (DRAW_OBJ_V,"",PAGE_BKGND_V,0,0,0,ClientID)
- ShowTextBubble StepsText, .3, .5, NorthEast
- HideTextBubble
- Exit Sub
-
- Case 3
- SendCtrlKeys "{HOME}", 100
- Exit Sub
-
- Case 4
- SendCtrlKeys "{DOWN}", 100
- Exit Sub
-
- Case 5
- SendCtrlKeys "{DOWN}", 100
- Exit Sub
-
- Case 6
- SendCtrlKeys "{DOWN}", 100
- Exit Sub
-
- Case 7
- SendCtrlKeys "{DOWN}", 100
- Exit Sub
-
- Case 8
- StepsText = GetString( "1101003", IResult% )
- X = DoWhereIs (DIALOG_CONTROL_V,"",1,0,0,0,ClientID)
- ShowTextBubble StepsText, .5, .5, NorthEast
- HideTextBubble
- MoveToObj Center
- DoMouse WM_LBUTTONDOWN%, 0
- DoMouse WM_LBUTTONUP%, 0
- Exit Sub
- End Select
- End Sub
-