home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 November
/
Pcwk1197.iso
/
LOTUS
/
Eng-ins
/
123
/
045.LSS
< prev
next >
Wrap
Text File
|
1996-11-25
|
3KB
|
139 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 = "045"
AnimVersionNum = 2.24
NumFramesThisAnim = 14
AnimationType = "QuickDemo"
SampleFile = "ssdn07??.123"
AnimName = GetString( "0450000", IResult% )
End Sub
Public Sub ShowMe (theNextStep As Integer)
GetCursorPos TempPos
CursorPosForStep(theNextStep) = TempPos
Select Case theNextStep
Case 1
StepsText = GetString( "0451001", IResult% )
X = SetTargetWindow (ToolWin_G, "ssdn07??.123", ClientID, DeskwHdl.val)
X = DoWhereIs (CELL_OBJ_G,"",1,1,0,0,ClientID)
ShowTextBubble StepsText, .5, .5, SouthEast
HideTextBubble
MoveToObj Center
DoMouse WM_LBUTTONDOWN%, 0
Exit Sub
Case 2
X = SetTargetWindow (ToolWin_G, "ssdn07??.123", ClientID, DeskwHdl.val)
X = DoWhereIs (CELL_OBJ_G,"",1,11,0,0,ClientID)
MoveToObj Center
DoMouse WM_LBUTTONUP%, 0
Exit Sub
Case 3
StepsText = GetString( "0451002", IResult% )
SetBubblePosforMenus
ShowTextBubble StepsText, .5, .5, NorthEast
HideTextBubble
ChooseMenuItem ShFill_g
Exit Sub
Case 4
StepsText = GetString( "0451003", IResult% )
WhereIsDlgControl DID_RF_LB_FILLTYPE_g, "", 0
ShowTextBubble StepsText, .5, .5, NorthEast
HideTextBubble
MoveToObj Center
DoMouse WM_LBUTTONDOWN%, 0
DoMouse WM_LBUTTONUP%, 0
Exit Sub
Case 5
StepsText = GetString( "0451004", IResult% )
WhereIsDlgControl DID_RF_LB_FILLTYPE_g, "", 0
ShowTextBubble StepsText, 1.4, .15, SouthEast
HideTextBubble
MoveToObjRel 140 , 15
Exit Sub
Case 6
StepsText = GetString( "0451005", IResult% )
WhereIsDlgControl DID_RF_EC_START_g, "", 0
ShowTextBubble StepsText, .5, .5, SouthEast
HideTextBubble
MoveToObj Center
DoMouse WM_LBUTTONDOWN%, 0
DoMouse WM_LBUTTONUP%, 0
Exit Sub
Case 7
Delay 1000
SendCtrlKeys "{HOME}+{END}", 100
Exit Sub
Case 8
Delay 500
SendTextKeys GetString( "0452008", IResult% ), 50
Exit Sub
Case 9
WhereIsDlgControl DID_RF_EC_STEP_g, "", 0
MoveToObj Center
Exit Sub
Case 10
StepsText = GetString( "0451006", IResult% )
Delay 500
WhereIsDlgControl DID_RF_EC_STOP_TEXT_g, "", 0
ShowTextBubble StepsText, .5, .5, SouthEast
HideTextBubble
MoveToObj Center
DoMouse WM_LBUTTONDOWN%, 0
DoMouse WM_LBUTTONUP%, 0
Exit Sub
Case 11
Delay 1000
SendCtrlKeys "{HOME}+{END}", 100
Exit Sub
Case 12
Delay 500
SendTextKeys GetString( "0452012", IResult% ), 50
Exit Sub
Case 13
StepsText = GetString( "0451007", IResult% )
WhereIsDlgControl DID_OK_g, "", 0
ShowTextBubble StepsText, .5, .5, NorthEast
HideTextBubble
MoveToObj Center
DoMouse WM_LBUTTONDOWN%, 0
DoMouse WM_LBUTTONUP%, 0
Exit Sub
Case 14
X = SetTargetWindow (ToolWin_G, "ssdn07??.123", ClientID, DeskwHdl.val)
X = DoWhereIs (CELL_OBJ_G,"",1,12,0,0,ClientID)
MoveToObj Center
DoMouse WM_LBUTTONDOWN%, 0
DoMouse WM_LBUTTONUP%, 0
Exit Sub
End Select
End Sub