home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98B.iso / Lotus / ENGLISH / LOTUS018.DSK / 115.LSS < prev    next >
Encoding:
Text File  |  1996-10-18  |  2.8 KB  |  121 lines
  1. 'Copyright 1995-96, Lotus Development Corporation. All rights reserved.
  2. %if GEMINI
  3. %elseif IBM_OS2
  4. %end if
  5. %if GEMINI
  6. Use "LTAPMN11"
  7. %elseif IBM_OS2
  8. Use "LTAPMO11"
  9. %end if
  10.  
  11. Sub Initialize
  12.    ClientMainWinClass = WORDPRO_MAINWINCLASS
  13.    ClientID = AN_AMIPRO
  14.    ClientModName = WORDPRO_PERSMODNAME
  15.    ClientLotusAppID = "WORDPRO"
  16.    ShowMeModName = "115"
  17.    AnimVersionNum =  2.31 
  18.    NumFramesThisAnim =  11 
  19.    AnimationType = "QuickDemo"
  20.    SampleFile = "la2n71??.lwp"
  21.    AnimName = GetString( "1150000", IResult% )
  22. End Sub
  23.  
  24. Public Sub ShowMe (theNextStep As Integer)
  25.  
  26. GetCursorPos TempPos
  27. CursorPosForStep(theNextStep) = TempPos
  28.  
  29. Select Case theNextStep
  30.  
  31. Case  1 
  32.    StepsText = GetString( "1151001", IResult% )
  33.    X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
  34.    ShowTextBubble StepsText,  .5,  .5, SouthEast
  35.    HideTextBubble
  36.    MoveToObj Center
  37.    Exit Sub
  38.  
  39. Case  2 
  40.    StepsText = GetString( "1151002", IResult% )
  41.    X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
  42.    ShowTextBubble StepsText,  .5,  .5, SouthEast
  43.    HideTextBubble
  44.    MoveToObj Center
  45.    DoMouse WM_RBUTTONDOWN%, 0
  46.    DoMouse WM_RBUTTONUP%, 0
  47.    Exit Sub
  48.  
  49. Case  3 
  50.    Delay 1000
  51.    SendCtrlKeys  "{down 2}{enter}", 100
  52.    Exit Sub
  53.  
  54. Case  4 
  55.    StepsText = GetString( "1151003", IResult% )
  56.    WhereIsIBControl IBCITABS, 3
  57.    ShowTextBubble StepsText,  .5,  .5, SouthEast
  58.    HideTextBubble
  59.    MoveToObj Center
  60.    DoMouse WM_LBUTTONDOWN%, 0
  61.    DoMouse WM_LBUTTONUP%, 0
  62.    Exit Sub
  63.  
  64. Case  5 
  65.    WhereIsIBControl IBCITABS, 3
  66.    MoveToObjRel  0 , 110 
  67.    Exit Sub
  68.  
  69. Case  6 
  70.    StepsText = GetString( "1151004", IResult% )
  71.    WhereIsIBControl IBCICONTROL, 11600
  72.    ShowTextBubble StepsText,  .5,  .5, SouthEast
  73.    HideTextBubble
  74.    MoveToObj Center
  75.    DoMouse WM_LBUTTONDOWN%, 0
  76.    DoMouse WM_LBUTTONUP%, 0
  77.    Exit Sub
  78.  
  79. Case  7 
  80.    WhereIsIBControl IBCICONTROL, 11600
  81.    MoveToObjRel  50 , 650 
  82.    DoMouse WM_LBUTTONDOWN%, 0
  83.    DoMouse WM_LBUTTONUP%, 0
  84.    Exit Sub
  85.  
  86. Case  8 
  87.    StepsText = GetString( "1151005", IResult% )
  88.    WhereIsIBControl IBCICONTROL, 11605
  89.    ShowTextBubble StepsText,  .5,  1, SouthEast
  90.    HideTextBubble
  91.    MoveToObjRel  4 , 50 
  92.    DoMouse WM_LBUTTONDOWN%, 0
  93.    DoMouse WM_LBUTTONUP%, 0
  94.    Exit Sub
  95.  
  96. Case  9 
  97.    StepsText = GetString( "1151006", IResult% )
  98.    WhereIsIBControl IBCICONTROL, 11602
  99.    ShowTextBubble StepsText,  1.5,  1, SouthEast
  100.    HideTextBubble
  101.    MoveToObj Center
  102.    DoMouse WM_LBUTTONDOWN%, 0
  103.    DoMouse WM_LBUTTONUP%, 0
  104.    Exit Sub
  105.  
  106. Case  10 
  107.    WhereIsIBControl IBCICONTROL, 11602
  108.    MoveToObjRel  50 , 150 
  109.    DoMouse WM_LBUTTONDOWN%, 0
  110.    DoMouse WM_LBUTTONUP%, 0
  111.    Exit Sub
  112.  
  113. Case  11 
  114.    WhereIsIBControl IBCICLOSEBOX, 1
  115.    MoveToObj Center
  116.    DoMouse WM_LBUTTONDOWN%, 0
  117.    DoMouse WM_LBUTTONUP%, 0
  118.    Exit Sub
  119. End Select
  120. End Sub
  121.