home *** CD-ROM | disk | FTP | other *** search
- %if GEMINI
- %elseif IBM_OS2
- %end if
- %if GEMINI
- Use "LTAPVN11"
- %elseif IBM_OS2
- Use "LTAPVO11"
- %end if
-
- Sub Initialize
- ClientMainWinClass = FLW_MAINWINCLASS
- ClientID = AN_AVERY
- ClientModName = FLW_PERSMODNAME
- ClientLotusAppID = "FLW"
- ShowMeModName = "055"
- AnimVersionNum = 2.23
- NumFramesThisAnim = 13
- AnimationType = "QuickDemo"
- SampleFile = "objalign.prz"
- AnimName = GetString( "0550000", IResult% )
- End Sub
-
- Public Sub ShowMe (theNextStep As Integer)
-
- GetCursorPos TempPos
- CursorPosForStep(theNextStep) = TempPos
-
- Select Case theNextStep
-
- Case 1
- StepsText = GetString( "0551001", IResult% )
- X = DoWhereIs (DRAW_OBJ_V,"",PAGE_BKGND_V,0,0,0,ClientID)
- ShowTextBubble StepsText, .5, .5, NorthEast
- HideTextBubble
- Exit Sub
-
- Case 2
- X = DoWhereIs (DRAW_OBJ_V,"",3,0,0,0,ClientID)
- MoveToObjRel -50 ,-50
- DoMouse WM_LBUTTONDOWN%, 0
- Exit Sub
-
- Case 3
- X = DoWhereIs (DRAW_OBJ_V,"",1,0,0,0,ClientID)
- MoveToObjRel 110 , 110
- DoMouse WM_LBUTTONUP%, 0
- Exit Sub
-
- Case 4
- StepsText = GetString( "0551002", IResult% )
- X = DoWhereIs (DRAW_OBJ_V,"",1,0,0,0,ClientID)
- ShowTextBubble StepsText, .5, .5, NorthEast
- HideTextBubble
- MoveToObj Center
- DoMouse WM_RBUTTONDOWN%, 0
- DoMouse WM_RBUTTONUP%, 0
- 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
- SendCtrlKeys "{DOWN}", 100
- Exit Sub
-
- Case 9
- SendCtrlKeys "{DOWN}", 100
- Exit Sub
-
- Case 10
- SendCtrlKeys "{DOWN}", 100
- Exit Sub
-
- Case 11
- SendCtrlKeys "{DOWN}", 100
- Exit Sub
-
- Case 12
- SendCtrlKeys "{ENTER}", 100
- Exit Sub
-
- Case 13
- StepsText = GetString( "0551003", 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
-