home *** CD-ROM | disk | FTP | other *** search
- Use "LTAPVN11"
-
- Sub Initialize
- ClientMainWinClass = "FLWApp"
- ClientID = AN_AVERY
- ClientModName = "LTAPVN11"
- ClientLotusAppID = "FLW"
- ShowMeModName = "030"
- AnimVersionNum = 2.18
- NumFramesThisAnim = 6
- AnimationType = "QuickDemo"
- SampleFile = "drawcirc.prz"
- AnimName = GetString( "0300000", IResult% )
- End Sub
-
- Public Sub ShowMe (theNextStep As Integer)
-
- GetCursorPos TempPos
- CursorPosForStep(theNextStep) = TempPos
-
- Select Case theNextStep
-
- Case 1
- StepsText = GetString( "0301001", IResult% )
- X = DoWhereIs (TOOLBOX_CONTROL_V, "", POINTERTOOL_V, 0, 0, 0, ClientID)
- If ObjInfo.winHdl <> 0 Then
- Exit Sub
- End If
- X = DoWhereIs (GUTTER_CONTROL_V,"",DRAW_TOOLS_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( "0301002", IResult% )
- X = DoWhereIs (TOOLBOX_CONTROL_V,"",CIRCLETOOL_V,0,0,0,ClientID)
- ShowTextBubble StepsText, .5, .5, NorthEast
- HideTextBubble
- MoveToObj Center
- DoMouse WM_LBUTTONDOWN%, 0
- DoMouse WM_LBUTTONUP%, 0
- Exit Sub
-
- Case 3
- StepsText = GetString( "0301003", IResult% )
- X = DoWhereIs (DRAW_OBJ_V,"",PAGE_BKGND_V,0,0,0,ClientID)
- ShowTextBubble StepsText, .15, .75, NorthEast
- HideTextBubble
- MoveToObjRel 15 , 75
- DoMouse WM_LBUTTONDOWN%, 0
- Exit Sub
-
- Case 4
- X = DoWhereIs (DRAW_OBJ_V,"",PAGE_BKGND_V,0,0,0,ClientID)
- MoveToObjRel 48 , 90
- Exit Sub
-
- Case 5
- StepsText = GetString( "0301004", IResult% )
- X = DoWhereIs (DRAW_OBJ_V,"",PAGE_BKGND_V,0,0,0,ClientID)
- ShowTextBubble StepsText, .48, .9, NorthEast
- HideTextBubble
- DoMouse WM_LBUTTONUP%, 0
- Exit Sub
-
- Case 6
- X = DoWhereIs (DRAW_OBJ_V,"",PAGE_BKGND_V,0,0,0,ClientID)
- MoveToObjRel 60 , 90
- DoMouse WM_LBUTTONDOWN%, 0
- DoMouse WM_LBUTTONUP%, 0
- Exit Sub
- End Select
- End Sub
-