home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 October A / Pcwk10a98.iso / Lotus / LOTUS / FLG / 245.LSS < prev    next >
Text File  |  1997-06-04  |  4KB  |  184 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 "LTAPVN11"
  7. %elseif IBM_OS2
  8. Use "LTAPVO11"
  9. %end if
  10.  
  11. Sub Initialize
  12.    ClientMainWinClass = FLW_MAINWINCLASS
  13.    ClientID = AN_AVERY
  14.    ClientModName = FLW_PERSMODNAME
  15.    ClientLotusAppID = "FLW"
  16.    ShowMeModName = "245"
  17.    AnimVersionNum =  2.31 
  18.    NumFramesThisAnim =  21 
  19.    AnimationType = "QuickDemo"
  20.    SampleFile = "capitals.prz"
  21.    AnimName = GetString( "2450000", 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( "2451001", IResult% )
  33.    X = DoWhereIs (DRAW_OBJ_V,"",PAGE_BKGND_V,0,0,0,ClientID)
  34.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  35.    HideTextBubble
  36.    MoveToObj Center
  37.    Exit Sub
  38.  
  39. Case  2 
  40.    Delay 250
  41.    DoMouse WM_LBUTTONDOWN%, 0
  42.    DoMouse WM_LBUTTONUP%, 0
  43.    Exit Sub
  44.  
  45. Case  3 
  46.    StepsText = GetString( "2451002", IResult% )
  47.    SetBubblePosforMenus
  48.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  49.    HideTextBubble
  50.    ChooseMenuItem Text_Text_Properties_v
  51.    Exit Sub
  52.  
  53. Case  4 
  54.    WhereIsIBControl IBCITABS, 2
  55.    MoveToObjRel  50 ,-100 
  56.    DoMouse WM_LBUTTONDOWN%, 0
  57.    Exit Sub
  58.  
  59. Case  5 
  60.    X = DoWhereIs (DRAW_OBJ_V,"",PAGE_BKGND_V,0,0,0,ClientID)
  61.    MoveToObjRel  40 , 20 
  62.    DoMouse WM_LBUTTONUP%, 0
  63.    Exit Sub
  64.  
  65. Case  6 
  66.    StepsText = GetString( "2451003", IResult% )
  67.    WhereIsIBControl IBCITABS, 2
  68.    ShowTextBubble StepsText,  3, -.75, NorthEast
  69.    HideTextBubble
  70.    MoveToObjRel  300 ,-75 
  71.    DoMouse WM_LBUTTONDOWN%, 0
  72.    DoMouse WM_LBUTTONUP%, 0
  73.    SendCtrlKeys  "{HOME}{ENTER}", 100
  74.    Exit Sub
  75.  
  76. Case  7 
  77.    Delay 2000
  78.    WhereIsIBControl IBCITABS, 1
  79.    MoveToObj Center
  80.    DoMouse WM_LBUTTONDOWN%, 0
  81.    DoMouse WM_LBUTTONUP%, 0
  82.    Exit Sub
  83.  
  84. Case  8 
  85.    MoveToObjRel  50 , 150 
  86.    Exit Sub
  87.  
  88. Case  9 
  89.    StepsText = GetString( "2451004", IResult% )
  90.    WhereIsIBControl IBCICONTROL, GRATTR_TEXTFACE_V
  91.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  92.    HideTextBubble
  93.    MoveToObjRel  50 , 3 
  94.    DoMouse WM_LBUTTONDOWN%, 0
  95.    DoMouse WM_LBUTTONUP%, 0
  96.    Exit Sub
  97.  
  98. Case  10 
  99.    Delay 1000
  100.    SendCtrlKeys  "{DOWN}", 100
  101.    Exit Sub
  102.  
  103. Case  11 
  104.    Delay 1000
  105.    SendCtrlKeys  "{ENTER}", 100
  106.    Exit Sub
  107.  
  108. Case  12 
  109.    Delay 1000
  110.    SendCtrlKeys  "{DOWN}", 100
  111.    Exit Sub
  112.  
  113. Case  13 
  114.    Delay 1000
  115.    SendCtrlKeys  "{ENTER}", 100
  116.    Exit Sub
  117.  
  118. Case  14 
  119.    StepsText = GetString( "2451005", IResult% )
  120.    WhereIsIBControl IBCITABS, 6
  121.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  122.    HideTextBubble
  123.    MoveToObj Center
  124.    DoMouse WM_LBUTTONDOWN%, 0
  125.    DoMouse WM_LBUTTONUP%, 0
  126.    Exit Sub
  127.  
  128. Case  15 
  129.    MoveToObjRel  50 , 200 
  130.    Exit Sub
  131.  
  132. Case  16 
  133.    StepsText = GetString( "2451006", IResult% )
  134.    WhereIsIBControl IBCICONTROL, CHATTR_CREATE_BUTTON_V
  135.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  136.    HideTextBubble
  137.    MoveToObj Center
  138.    DoMouse WM_LBUTTONDOWN%, 0
  139.    DoMouse WM_LBUTTONUP%, 0
  140.    Exit Sub
  141.  
  142. Case  17 
  143.    StepsText = GetString( "2451007", IResult% )
  144.    Delay 1000
  145.    X = DoWhereIs (DIALOG_CONTROL_V,"",&H67,0,0,0,ClientID)
  146.    ShowTextBubble StepsText,  0,  .5, NorthEast
  147.    HideTextBubble
  148.    SendTextKeys  GetString( "2452017", IResult% ), 50
  149.    Exit Sub
  150.  
  151. Case  18 
  152.    StepsText = GetString( "2451008", IResult% )
  153.    X = DoWhereIs (DIALOG_CONTROL_V,"",1,0,0,0,ClientID)
  154.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  155.    HideTextBubble
  156.    MoveToObj Center
  157.    DoMouse WM_LBUTTONDOWN%, 0
  158.    DoMouse WM_LBUTTONUP%, 0
  159.    Exit Sub
  160.  
  161. Case  19 
  162.    StepsText = GetString( "2451009", IResult% )
  163.    WhereIsIBControl IBCITABS, 2
  164.    ShowTextBubble StepsText,  .5, -1, NorthEast
  165.    HideTextBubble
  166.    MoveToObjRel  50 ,-100 
  167.    DoMouse WM_LBUTTONDOWN%, 0
  168.    DoMouse WM_LBUTTONUP%, 0
  169.    Exit Sub
  170.  
  171. Case  20 
  172.    Delay 1000
  173.    SendCtrlKeys  "%{F4}", 100
  174.    Exit Sub
  175.  
  176. Case  21 
  177.    X = DoWhereIs (DRAW_OBJ_V,"",PAGE_BKGND_V,0,0,0,ClientID)
  178.    MoveToObjRel  50 , 90 
  179.    DoMouse WM_LBUTTONDOWN%, 0
  180.    DoMouse WM_LBUTTONUP%, 0
  181.    Exit Sub
  182. End Select
  183. End Sub
  184.