home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 November
/
Pcwk1197.iso
/
LOTUS
/
Eng-ins
/
123
/
075.LSS
< prev
next >
Wrap
Text File
|
1996-11-25
|
2KB
|
85 lines
' Copyright 1995-97, 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 = "075"
AnimVersionNum = 2.24
NumFramesThisAnim = 7
AnimationType = "QuickDemo"
SampleFile = "ssdn10??.123"
AnimName = GetString( "0750000", IResult% )
End Sub
Public Sub ShowMe (theNextStep As Integer)
GetCursorPos TempPos
CursorPosForStep(theNextStep) = TempPos
Select Case theNextStep
Case 1
StepsText = GetString( "0751001", IResult% )
X = SetTargetWindow (ToolWin_G, "ssdn10??.123", ClientID, DeskwHdl.val)
X = DoWhereIs (CELL_OBJ_G,"",3,9,0,0,ClientID)
ShowTextBubble StepsText, .5, .5, SouthEast
HideTextBubble
Exit Sub
Case 2
StepsText = GetString( "0751002", IResult% )
X = SetTargetWindow (ToolWin_G, "ssdn10??.123", ClientID, DeskwHdl.val)
X = DoWhereIs (ROW_SELECTOR_G,"",1,4,0,0,ClientID)
ShowTextBubble StepsText, .5, .5, NorthEast
HideTextBubble
MoveToObj Center
DoMouse WM_LBUTTONDOWN%, 0
Exit Sub
Case 3
X = SetTargetWindow (ToolWin_G, "ssdn10??.123", ClientID, DeskwHdl.val)
X = DoWhereIs (ROW_SELECTOR_G,"",1,7,0,0,ClientID)
MoveToObj Center
DoMouse WM_LBUTTONUP%, 0 Or MK_CONTROL
Exit Sub
Case 4
StepsText = GetString( "0751003", IResult% )
SetBubblePosforMenus
ShowTextBubble StepsText, .5, .5, NorthEast
HideTextBubble
ChooseMenuItem ShDemote_g
Exit Sub
Case 5
X = SetTargetWindow (ToolWin_G, "ssdn10??.123", ClientID, DeskwHdl.val)
X = DoWhereIs (CELL_OBJ_G,"",1,9,0,0,ClientID)
MoveToObj Center
DoMouse WM_LBUTTONDOWN%, 0
DoMouse WM_LBUTTONUP%, 0
Exit Sub
Case 6
X = SetTargetWindow (ToolWin_G, "ssdn10??.123", ClientID, DeskwHdl.val)
X = DoWhereIs (ROW_LEVEL_LABEL_G,"",1,1,0,0,ClientID)
MoveToObj Center
DoMouse WM_LBUTTONDOWN%, 0
DoMouse WM_LBUTTONUP%, 0
Exit Sub
Case 7
Delay 2000
Exit Sub
End Select
End Sub