'Copyright 1995-98, Lotus Development Corporation. All rights reserved. %if GEMINI %elseif IBM_OS2 %end if %if GEMINI Use "LTAPGN11" %elseif IBM_OS2 Use "LTAPGO11" %end if Sub Initialize ClientMainWinClass = GEMINI_MAINWINCLASS ClientID = AN_GEMINI ClientModName = GEMINI_PERSMODNAME ClientLotusAppID = "GEMINI" ShowMeModName = "205" AnimVersionNum = 2.36 NumFramesThisAnim = 24 AnimationType = "QuickDemo" SampleFile = "ssdn16??.123" AnimName = GetString( "2050000", IResult% ) End Sub Public Sub ShowMe (theNextStep As Integer) GetCursorPos TempPos CursorPosForStep(theNextStep) = TempPos Select Case theNextStep Case 1 StepsText = GetString( "2051001", IResult% ) SetBubblePosforMenus ShowTextBubble StepsText, .5, .5, NorthEast HideTextBubble ChooseMenuItem DtFilePrintPreview_g Exit Sub Case 2 'Position the InfoBox so you can see Preview... Sleep 0 Sleep 0 WhereIsIBControl IBCIHELPBUTTON, 1 MoveToObjRel -50 , 50 DoMouse WM_LBUTTONDOWN%, 0 Exit Sub Case 3 X = SetTargetWindow (ToolWin_G, "ssdn16??.123", ClientID, DeskwHdl.val) X = DoWhereIs (CELL_OBJ_G,"",1,3,0,0,ClientID) MoveToObjRel -550 , 250 DoMouse WM_LBUTTONUP%, 0 Exit Sub Case 4 'Move the mousepointer away from the bubble... MoveToObjRel -550 , 300 Exit Sub Case 5 StepsText = GetString( "2051002", IResult% ) X = SetTargetWindow (ToolWin_G, "ssdn16??.123", ClientID, DeskwHdl.val) X = DoWhereIs (CELL_OBJ_G,"",1,1,0,0,ClientID) ShowTextBubble StepsText, .5, 1, SouthWest HideTextBubble Exit Sub Case 6 StepsText = GetString( "2051003", IResult% ) WhereIsIBControl IBCICLOSEBOX, 1 ShowTextBubble StepsText, 1.5, 3, NorthEast HideTextBubble Exit Sub Case 7 StepsText = GetString( "2051004", IResult% ) Delay 750 WhereIsIBControl IBCITABS, 4 ShowTextBubble StepsText, .75, .5, NorthEast HideTextBubble MoveToObj Center DoMouse WM_LBUTTONDOWN%, 0 DoMouse WM_LBUTTONUP%, 0 Exit Sub Case 8 MoveToObjRel 50 , 125 Exit Sub Case 9 StepsText = GetString( "2051005", IResult% ) WhereIsIBControl IBCICONTROL, TRTPRINTSET_PROP_WHICHHEADERFOOTER_G ShowTextBubble StepsText, .75, .5, SouthEast HideTextBubble MoveToObj Center DoMouse WM_LBUTTONDOWN%, 0 DoMouse WM_LBUTTONUP%, 0 Exit Sub Case 10 Delay 2000 Exit Sub Case 11 SendCtrlKeys "{ENTER}", 100 Exit Sub Case 12 StepsText = GetString( "2051006", IResult% ) WhereIsIBControl IBCICONTROL, TRTPRINTSET_PROP_HEADERLEFT_G ShowTextBubble StepsText, .5, .5, NorthEast HideTextBubble MoveToObj Center DoMouse WM_LBUTTONDOWN%, 0 DoMouse WM_LBUTTONUP%, 0 Exit Sub Case 13 SendTextKeys GetString( "2052013", IResult% ), 50 Exit Sub Case 14 StepsText = GetString( "2051007", IResult% ) WhereIsIBControl IBCICONTROL, DID_PS_PBCELL_G ShowTextBubble StepsText, 1, .5, SouthEast HideTextBubble Exit Sub Case 15 StepsText = GetString( "2051008", IResult% ) WhereIsIBControl IBCICONTROL, DID_PS_PBPAGECON_G ShowTextBubble StepsText, .75, .75, SouthEast HideTextBubble MoveToObj Center DoMouse WM_LBUTTONDOWN%, 0 DoMouse WM_LBUTTONUP%, 0 Exit Sub Case 16 'Prevent hoverhelp MoveToObjRel 50 , 150 Exit Sub Case 17 StepsText = GetString( "2051009", IResult% ) WhereIsIBControl IBCICONTROL, TRTPRINTSET_PROP_HEADERLEFT_G ShowTextBubble StepsText, .2, .1, SouthEast HideTextBubble Exit Sub Case 18 StepsText = GetString( "2051010", IResult% ) Delay 500 X = SetTargetWindow (ToolWin_G, "ssdn16??.123", ClientID, DeskwHdl.val) X = DoWhereIs (CELL_OBJ_G,"",1,3,0,0,ClientID) ShowTextBubble StepsText, .5, 1, SouthWest HideTextBubble Exit Sub Case 19 StepsText = GetString( "2051011", IResult% ) X = SetTargetWindow (ToolWin_G, "ssdn16??.123", ClientID, DeskwHdl.val) X = DoWhereIs (CELL_OBJ_G,"",1,3,0,0,ClientID) ShowTextBubble StepsText, .5, 1, SouthWest HideTextBubble MoveToObj Center DoMouse WM_LBUTTONDOWN%, 0 DoMouse WM_LBUTTONUP%, 0 Exit Sub Case 20 StepsText = GetString( "2051012", IResult% ) Delay 2000 ShowTextBubble StepsText, .5, 1, SouthWest HideTextBubble DoMouse WM_RBUTTONDOWN%, 0 DoMouse WM_RBUTTONUP%, 0 Exit Sub Case 21 Delay 1000 SendCtrlKeys "{UP}", 100 Exit Sub Case 22 Delay 1000 SendCtrlKeys "{ESC}", 100 Exit Sub Case 23 StepsText = GetString( "2051013", IResult% ) Delay 1000 WhereIsIBControl IBCICLOSEBOX, 1 ShowTextBubble StepsText, .5, .5, SouthWest HideTextBubble MoveToObj Center DoMouse WM_LBUTTONDOWN%, 0 DoMouse WM_LBUTTONUP%, 0 Exit Sub Case 24 StepsText = GetString( "2051014", IResult% ) Delay 2000 X = SetTargetWindow (ToolWin_G, "ssdn16??.123", ClientID, DeskwHdl.val) X = DoWhereIs (CELL_OBJ_G,"",1,1,0,0,ClientID) ShowTextBubble StepsText, 12, 0, SouthWest HideTextBubble SendCtrlKeys "^{F4}", 100 Exit Sub End Select End Sub