home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 October A / Pcwk10a98.iso / Lotus / LOTUS / WORDPRO / 155.LSS < prev    next >
Text File  |  1998-03-24  |  7KB  |  291 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 = "155"
  16.    AnimVersionNum =  2.36 
  17.    NumFramesThisAnim =  35 
  18.    AnimationType = "QuickDemo"
  19.    SampleFile = "la1n71en.lwp"
  20.    AnimName = GetString( "1550000", 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.    X = RunScriptCommand (".GoToBookMark ""text1""", ClientID, DeskwHdl.val )
  32.    Exit Sub
  33.  
  34. Case  2 
  35.    StepsText = GetString( "1551001", IResult% )
  36.    X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
  37.    ShowTextBubble StepsText,  .5,  .5, SouthEast
  38.    HideTextBubble
  39.    MoveToObj Center
  40.    DoMouse WM_RBUTTONDOWN%, 0
  41.    DoMouse WM_RBUTTONUP%, 0
  42.    Exit Sub
  43.  
  44. Case  3 
  45.    StepsText = GetString( "1551002", IResult% )
  46.    X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
  47.    ShowTextBubble StepsText,  170,  24, SouthEast
  48.    HideTextBubble
  49.    SendCtrlKeys  "{down}{enter}", 100
  50.    Exit Sub
  51.  
  52. Case  4 
  53.    StepsText = GetString( "1551003", IResult% )
  54.    WhereIsIBControl IBCISYSMENU, 1
  55.    ShowTextBubble StepsText,  1.5,  .5, NorthWest
  56.    HideTextBubble
  57.    Exit Sub
  58.  
  59. Case  5 
  60.    X = RunScriptCommand (".GoToBookMark ""text1""", ClientID, DeskwHdl.val )
  61.    Exit Sub
  62.  
  63. Case  6 
  64.    StepsText = GetString( "1551004", IResult% )
  65.    X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
  66.    ShowTextBubble StepsText,  .5,  .5, SouthEast
  67.    HideTextBubble
  68.    Exit Sub
  69.  
  70. Case  7 
  71.    X = RunScriptCommand (".GoToBookMark ""text2""", ClientID, DeskwHdl.val )
  72.    Exit Sub
  73.  
  74. Case  8 
  75.    WhereIsIBControl IBCITABS, 1
  76.    MoveToObj Center
  77.    DoMouse WM_LBUTTONDOWN%, 0
  78.    DoMouse WM_LBUTTONUP%, 0
  79.    Exit Sub
  80.  
  81. Case  9 
  82.    MoveToObjRel  50 , 125 
  83.    Exit Sub
  84.  
  85. Case  10 
  86.    StepsText = GetString( "1551005", IResult% )
  87.    WhereIsIBControl IBCICONTROL, FONTATTRS_M
  88.    ShowTextBubble StepsText,  .5,  1, SouthEast
  89.    HideTextBubble
  90.    MoveToObjRel  50 , 10 
  91.    DoMouse WM_LBUTTONDOWN%, 0
  92.    DoMouse WM_LBUTTONUP%, 0
  93.    Exit Sub
  94.  
  95. Case  11 
  96.    X = RunScriptCommand (".GoToBookMark ""text1""", ClientID, DeskwHdl.val )
  97.    Exit Sub
  98.  
  99. Case  12 
  100.    StepsText = GetString( "1551006", IResult% )
  101.    X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
  102.    ShowTextBubble StepsText,  .5,  1, SouthEast
  103.    HideTextBubble
  104.    Exit Sub
  105.  
  106. Case  13 
  107.    StepsText = GetString( "1551007", IResult% )
  108.    WhereIsIBControl IBCITABS, 2
  109.    ShowTextBubble StepsText,  .5,  .5, SouthEast
  110.    HideTextBubble
  111.    MoveToObj Center
  112.    DoMouse WM_LBUTTONDOWN%, 0
  113.    DoMouse WM_LBUTTONUP%, 0
  114.    Exit Sub
  115.  
  116. Case  14 
  117.    Delay 1000
  118.    WhereIsIBControl IBCITABS, 3
  119.    MoveToObj Center
  120.    DoMouse WM_LBUTTONDOWN%, 0
  121.    DoMouse WM_LBUTTONUP%, 0
  122.    Exit Sub
  123.  
  124. Case  15 
  125.    Delay 1000
  126.    WhereIsIBControl IBCITABS, 4
  127.    MoveToObj Center
  128.    DoMouse WM_LBUTTONDOWN%, 0
  129.    DoMouse WM_LBUTTONUP%, 0
  130.    Exit Sub
  131.  
  132. Case  16 
  133.    Delay 1000
  134.    WhereIsIBControl IBCITABS, 5
  135.    MoveToObj Center
  136.    DoMouse WM_LBUTTONDOWN%, 0
  137.    DoMouse WM_LBUTTONUP%, 0
  138.    Exit Sub
  139.  
  140. Case  17 
  141.    Delay 1000
  142.    WhereIsIBControl IBCITABS, 6
  143.    MoveToObj Center
  144.    DoMouse WM_LBUTTONDOWN%, 0
  145.    DoMouse WM_LBUTTONUP%, 0
  146.    Exit Sub
  147.  
  148. Case  18 
  149.    Delay 1000
  150.    WhereIsIBControl IBCITABS, 7
  151.    MoveToObj Center
  152.    DoMouse WM_LBUTTONDOWN%, 0
  153.    DoMouse WM_LBUTTONUP%, 0
  154.    Exit Sub
  155.  
  156. Case  19 
  157.    WhereIsIBControl IBCITABS, 7
  158.    MoveToObjRel  50 , 105 
  159.    Exit Sub
  160.  
  161. Case  20 
  162.    StepsText = GetString( "1551008", IResult% )
  163.    WhereIsIBControl IBCIHELPBUTTON, 1
  164.    ShowTextBubble StepsText, -.7,  .5, SouthEast
  165.    HideTextBubble
  166.    MoveToObjRel -70 , 50 
  167.    DoMouse WM_LBUTTONDOWN%, 0
  168.    DoMouse WM_LBUTTONUP%, 0
  169.    Exit Sub
  170.  
  171. Case  21 
  172.    MoveToObjRel -70 , 250 
  173.    DoMouse WM_LBUTTONDOWN%, 0
  174.    DoMouse WM_LBUTTONUP%, 0
  175.    Exit Sub
  176.  
  177. Case  22 
  178.    WhereIsIBControl IBCITABS, 7
  179.    MoveToObjRel  50 , 105 
  180.    Exit Sub
  181.  
  182. Case  23 
  183.    StepsText = GetString( "1551009", IResult% )
  184.    WhereIsIBControl IBCISYSMENU, 1
  185.    ShowTextBubble StepsText,  .5,  .5, SouthEast
  186.    HideTextBubble
  187.    Exit Sub
  188.  
  189. Case  24 
  190.    WhereIsIBControl IBCITABS, 2
  191.    MoveToObj Center
  192.    DoMouse WM_LBUTTONDOWN%, 0
  193.    DoMouse WM_LBUTTONUP%, 0
  194.    Exit Sub
  195.  
  196. Case  25 
  197.    Delay 1000
  198.    WhereIsIBControl IBCITABS, 3
  199.    MoveToObj Center
  200.    DoMouse WM_LBUTTONDOWN%, 0
  201.    DoMouse WM_LBUTTONUP%, 0
  202.    Exit Sub
  203.  
  204. Case  26 
  205.    Delay 1000
  206.    WhereIsIBControl IBCITABS, 4
  207.    MoveToObj Center
  208.    DoMouse WM_LBUTTONDOWN%, 0
  209.    DoMouse WM_LBUTTONUP%, 0
  210.    Exit Sub
  211.  
  212. Case  27 
  213.    Delay 1000
  214.    WhereIsIBControl IBCITABS, 5
  215.    MoveToObj Center
  216.    DoMouse WM_LBUTTONDOWN%, 0
  217.    DoMouse WM_LBUTTONUP%, 0
  218.    Exit Sub
  219.  
  220. Case  28 
  221.    Delay 1000
  222.    WhereIsIBControl IBCITABS, 6
  223.    MoveToObj Center
  224.    DoMouse WM_LBUTTONDOWN%, 0
  225.    DoMouse WM_LBUTTONUP%, 0
  226.    Exit Sub
  227.  
  228. Case  29 
  229.    Delay 1000
  230.    WhereIsIBControl IBCITABS, 7
  231.    MoveToObj Center
  232.    DoMouse WM_LBUTTONDOWN%, 0
  233.    DoMouse WM_LBUTTONUP%, 0
  234.    Exit Sub
  235.  
  236. Case  30 
  237.    Delay 1000
  238.    WhereIsIBControl IBCITABS, 8
  239.    MoveToObj Center
  240.    DoMouse WM_LBUTTONDOWN%, 0
  241.    DoMouse WM_LBUTTONUP%, 0
  242.    Exit Sub
  243.  
  244. Case  31 
  245.    WhereIsIBControl IBCITABS, 8
  246.    MoveToObjRel  50 , 105 
  247.    Exit Sub
  248.  
  249. Case  32 
  250.    StepsText = GetString( "1551010", IResult% )
  251.    WhereIsIBControl IBCISYSMENU, 1
  252.    ShowTextBubble StepsText,  1.5,  .5, SouthEast
  253.    HideTextBubble
  254.    Exit Sub
  255.  
  256. Case  33 
  257.    StepsText = GetString( "1551011", IResult% )
  258.    WhereIsIBControl IBCISYSMENU, 1
  259.    ShowTextBubble StepsText,  1.5,  .5, SouthEast
  260.    HideTextBubble
  261.    MoveToObjRel  150 , 50 
  262.    DoMouse WM_LBUTTONDOWN%, 0
  263.    DoMouse WM_LBUTTONUP%, 0
  264.    DoMouse WM_LBUTTONDBLCLK%, 0
  265.    DoMouse WM_LBUTTONUP%, 0
  266.    Exit Sub
  267.  
  268. Case  34 
  269.    StepsText = GetString( "1551012", IResult% )
  270.    WhereIsIBControl IBCISYSMENU, 1
  271.    ShowTextBubble StepsText,  1.5,  .5, SouthEast
  272.    HideTextBubble
  273.    MoveToObjRel  150 , 50 
  274.    DoMouse WM_LBUTTONDOWN%, 0
  275.    DoMouse WM_LBUTTONUP%, 0
  276.    DoMouse WM_LBUTTONDBLCLK%, 0
  277.    DoMouse WM_LBUTTONUP%, 0
  278.    Exit Sub
  279.  
  280. Case  35 
  281.    StepsText = GetString( "1551013", IResult% )
  282.    WhereIsIBControl IBCICLOSEBOX, 1
  283.    ShowTextBubble StepsText,  .5,  .5, SouthEast
  284.    HideTextBubble
  285.    MoveToObj Center
  286.    DoMouse WM_LBUTTONDOWN%, 0
  287.    DoMouse WM_LBUTTONUP%, 0
  288.    Exit Sub
  289. End Select
  290. End Sub
  291.