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