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