home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 November
/
Pcwk1197.iso
/
LOTUS
/
Eng-ins
/
APPROACH
/
007.LSS
< prev
next >
Wrap
Text File
|
1996-04-17
|
2KB
|
83 lines
Use "LTAPPN11"
Sub Initialize
ClientMainWinClass = "ApproachWClass"
ClientID = AN_APPROACH
ClientModName = "LTAPPN11"
ClientLotusAppID = "APPROACH"
ShowMeModName = "007"
AnimVersionNum = 2.16
NumFramesThisAnim = 6
AnimationType = "QuickDemo"
SampleFile = "Dmosmpl1.APR"
AnimName = GetString( "0070000", IResult% )
End Sub
Public Sub ShowMe (theNextStep As Integer)
GetCursorPos TempPos
CursorPosForStep(theNextStep) = TempPos
Select Case theNextStep
Case 1
StepsText = GetString( "0071001", IResult% )
Frame1A:
X = DoWhereIs (ACTIONBAR_OBJ_P,"",ACTION_NEWRECORD_P,0,0,0,ClientID)
If ObjInfo.winHdl = 0 Then
GoTo Frame1B
Else
GoTo Frame1AContinue
End If
Frame1B:
SetBubblePosforMenus
ShowTextBubble StepsText, .5, .5, NorthEast
HideTextBubble
ChooseMenuItem Browse_New_Record_P
Exit Sub
Frame1AContinue:
ShowTextBubble StepsText, .5, .5, NorthEast
HideTextBubble
MoveToObj Center
DoMouse WM_LBUTTONDOWN%, 0
DoMouse WM_LBUTTONUP%, 0
Exit Sub
Case 2
X = DoWhereIs (FORM_OBJ_P,"Video Title",0,0,0,0,ClientID)
SendTextKeys GetString( "0072002", IResult% ), 50
Exit Sub
Case 3
StepsText = GetString( "0071002", IResult% )
X = DoWhereIs (FORM_OBJ_P,"Video Title",0,0,0,0,ClientID)
ShowTextBubble StepsText, .5, .5, NorthEast
HideTextBubble
MoveToObj Center
DoMouse WM_LBUTTONDOWN%, 0
DoMouse WM_LBUTTONUP%, 0
SendTextKeys GetString( "0072003", IResult% ), 50
Exit Sub
Case 4
X = DoWhereIs (FORM_OBJ_P,"Video Title",0,0,0,0,ClientID)
SendTextKeys GetString( "0072004", IResult% ), 50
Exit Sub
Case 5
X = DoWhereIs (FORM_OBJ_P,"Video Title",0,0,0,0,ClientID)
SendTextKeys GetString( "0072005", IResult% ), 50
Exit Sub
Case 6
StepsText = GetString( "0071003", IResult% )
X = DoWhereIs (FORM_OBJ_P,"Video Title",0,0,0,0,ClientID)
ShowTextBubble StepsText, .5, .5, NorthEast
HideTextBubble
Exit Sub
End Select
End Sub