home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Bonus / lotus123rel9 / approach / 002.lss < prev    next >
Encoding:
Text File  |  1996-09-02  |  5.0 KB  |  196 lines
  1. Use "LTAPPN11"
  2.  
  3. Sub Initialize
  4.    ClientMainWinClass = "ApproachWClass"
  5.    ClientID = AN_APPROACH
  6.    ClientModName = "LTAPPN11"
  7.    ClientLotusAppID = "APPROACH"
  8.    ShowMeModName = "002"
  9.    AnimVersionNum =  2.16 
  10.    NumFramesThisAnim =  25 
  11.    AnimationType = "QuickDemo"
  12.    SampleFile = "Dmosmpl1.APR"
  13.    AnimName = GetString( "0020000", IResult% )
  14. End Sub
  15.  
  16. Public Sub ShowMe (theNextStep As Integer)
  17.  
  18. GetCursorPos TempPos
  19. CursorPosForStep(theNextStep) = TempPos
  20.  
  21. Select Case theNextStep
  22.  
  23. Case  1 
  24.    StepsText = GetString( "0021001", IResult% )
  25.    SetBubblePosforMenus
  26.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  27.    HideTextBubble
  28.    ChooseMenuItem Create_Named_Find_Sort_p
  29.    Exit Sub
  30.  
  31. Case  2 
  32.    StepsText = GetString( "0021002", IResult% )
  33.    X = DoWhereIs (DIALOG_CONTROL_P,"",1001,0,0,0,ClientID)
  34.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  35.    HideTextBubble
  36.    MoveToObj Center
  37.    DoMouse WM_LBUTTONDOWN%, 0
  38.    DoMouse WM_LBUTTONUP%, 0
  39.    Exit Sub
  40.  
  41. Case  3 
  42.    X = DoWhereIs (DIALOG_CONTROL_P,"",500,0,0,0,ClientID)
  43.    SendTextKeys  GetString( "0022003", IResult% ), 50
  44.    Exit Sub
  45.  
  46. Case  4 
  47.    X = DoWhereIs (DIALOG_CONTROL_P,"",500,0,0,0,ClientID)
  48.    SendTextKeys  GetString( "0022004", IResult% ), 50
  49.    Exit Sub
  50.  
  51. Case  5 
  52.    StepsText = GetString( "0021003", IResult% )
  53.    X = DoWhereIs (DIALOG_CONTROL_P,"",102,0,0,0,ClientID)
  54.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  55.    HideTextBubble
  56.    MoveToObj Center
  57.    DoMouse WM_LBUTTONDOWN%, 0
  58.    DoMouse WM_LBUTTONUP%, 0
  59.    Exit Sub
  60.  
  61. Case  6 
  62.    X = DoWhereIs (DIALOG_CONTROL_P,"",500,0,0,0,ClientID)
  63.    SendTextKeys  GetString( "0022006", IResult% ), 50
  64.    Exit Sub
  65.  
  66. Case  7 
  67.    StepsText = GetString( "0021004", IResult% )
  68.    X = DoWhereIs (DIALOG_CONTROL_P,"",500,0,0,0,ClientID)
  69.    ShowTextBubble StepsText,  .42,  .4, NorthEast
  70.    HideTextBubble
  71.    Exit Sub
  72.  
  73. Case  8 
  74.    X = DoWhereIs (DIALOG_CONTROL_P,"",500,0,0,0,ClientID)
  75.    MoveToObjRel  10 , 40 
  76.    DoMouse WM_LBUTTONDOWN%, 0
  77.    DoMouse WM_LBUTTONUP%, 0
  78.    Exit Sub
  79.  
  80. Case  9 
  81.    X = DoWhereIs (DIALOG_CONTROL_P,"",555,0,0,0,ClientID)
  82.    MoveToObj Center
  83.    DoMouse WM_LBUTTONDOWN%, 0
  84.    DoMouse WM_LBUTTONUP%, 0
  85.    Exit Sub
  86.  
  87. Case  10 
  88.    X = DoWhereIs (DIALOG_CONTROL_P,"",534,0,0,0,ClientID)
  89.    MoveToObjRel  25 , 5 
  90.    Exit Sub
  91.  
  92. Case  11 
  93.    X = DoWhereIs (DIALOG_CONTROL_P,"",500,0,0,0,ClientID)
  94.    MoveToObjRel  20 , 40 
  95.    DoMouse WM_LBUTTONDOWN%, 0
  96.    DoMouse WM_LBUTTONUP%, 0
  97.    Exit Sub
  98.  
  99. Case  12 
  100.    X = DoWhereIs (DIALOG_CONTROL_P,"",1000,0,0,0,ClientID)
  101.    MoveToObjRel  50 , 45 
  102.    DoMouse WM_LBUTTONDOWN%, 0
  103.    DoMouse WM_LBUTTONUP%, 0
  104.    Exit Sub
  105.  
  106. Case  13 
  107.    X = DoWhereIs (DIALOG_CONTROL_P,"",528,0,0,0,ClientID)
  108.    MoveToObjRel  50 , 8 
  109.    DoMouse WM_LBUTTONDOWN%, 0
  110.    DoMouse WM_LBUTTONUP%, 0
  111.    Exit Sub
  112.  
  113. Case  14 
  114.    X = DoWhereIs (DIALOG_CONTROL_P,"",530,0,0,0,ClientID)
  115.    MoveToObjRel  50 , 25 
  116.    DoMouse WM_LBUTTONDOWN%, 0
  117.    DoMouse WM_LBUTTONUP%, 0
  118.    SendTextKeys  GetString( "0022014", IResult% ), 50
  119.    Exit Sub
  120.  
  121. Case  15 
  122.    X = DoWhereIs (DIALOG_CONTROL_P,"",530,0,0,0,ClientID)
  123.    SendTextKeys  GetString( "0022015", IResult% ), 50
  124.    Exit Sub
  125.  
  126. Case  16 
  127.    X = DoWhereIs (DIALOG_CONTROL_P,"",530,0,0,0,ClientID)
  128.    SendTextKeys  GetString( "0022016", IResult% ), 50
  129.    Exit Sub
  130.  
  131. Case  17 
  132.    X = DoWhereIs (DIALOG_CONTROL_P,"",530,0,0,0,ClientID)
  133.    SendTextKeys  GetString( "0022017", IResult% ), 50
  134.    Exit Sub
  135.  
  136. Case  18 
  137.    X = DoWhereIs (DIALOG_CONTROL_P,"",500,0,0,0,ClientID)
  138.    MoveToObjRel  42 , 40 
  139.    DoMouse WM_LBUTTONDOWN%, 0
  140.    DoMouse WM_LBUTTONUP%, 0
  141.    Exit Sub
  142.  
  143. Case  19 
  144.    X = DoWhereIs (DIALOG_CONTROL_P,"",535,0,0,0,ClientID)
  145.    MoveToObj Center
  146.    DoMouse WM_LBUTTONDOWN%, 0
  147.    DoMouse WM_LBUTTONUP%, 0
  148.    Exit Sub
  149.  
  150. Case  20 
  151.    X = DoWhereIs (DIALOG_CONTROL_P,"",536,0,0,0,ClientID)
  152.    MoveToObjRel  1 , 50 
  153.    DoMouse WM_LBUTTONDOWN%, 0
  154.    DoMouse WM_LBUTTONUP%, 0
  155.    SendTextKeys  GetString( "0022020", IResult% ), 50
  156.    Exit Sub
  157.  
  158. Case  21 
  159.    X = DoWhereIs (DIALOG_CONTROL_P,"",536,0,0,0,ClientID)
  160.    SendTextKeys  GetString( "0022021", IResult% ), 50
  161.    Exit Sub
  162.  
  163. Case  22 
  164.    X = DoWhereIs (DIALOG_CONTROL_P,"",536,0,0,0,ClientID)
  165.    SendTextKeys  GetString( "0022022", IResult% ), 50
  166.    Exit Sub
  167.  
  168. Case  23 
  169.    StepsText = GetString( "0021005", IResult% )
  170.    X = DoWhereIs (DIALOG_CONTROL_P,"",1,0,0,0,ClientID)
  171.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  172.    HideTextBubble
  173.    MoveToObj Center
  174.    DoMouse WM_LBUTTONDOWN%, 0
  175.    DoMouse WM_LBUTTONUP%, 0
  176.    Exit Sub
  177.  
  178. Case  24 
  179.    StepsText = GetString( "0021006", IResult% )
  180.    X = DoWhereIs (DIALOG_CONTROL_P,"",1004,0,0,0,ClientID)
  181.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  182.    HideTextBubble
  183.    Exit Sub
  184.  
  185. Case  25 
  186.    StepsText = GetString( "0021007", IResult% )
  187.    X = DoWhereIs (DIALOG_CONTROL_P,"",1,0,0,0,ClientID)
  188.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  189.    HideTextBubble
  190.    MoveToObj Center
  191.    DoMouse WM_LBUTTONDOWN%, 0
  192.    DoMouse WM_LBUTTONUP%, 0
  193.    Exit Sub
  194. End Select
  195. End Sub
  196.