home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 February / PCWK0297.iso / lotus / english / lotus016.dsk / 001.LSS next >
Text File  |  1995-10-16  |  5KB  |  210 lines
  1. Use "ap_mod"
  2.  
  3. Sub Initialize
  4.    ClientMainWinClass = "ApproachWClass"
  5.    ClientID = AN_APPROACH
  6.    ClientModName = "ap_mod"
  7.    ClientLotusAppID = "APPROACH"
  8.    ShowMeModName = "001"
  9.    AnimVersionNum =  .63 
  10.    NumFramesThisAnim =  23 
  11.    AnimationType = "QuickDemo"
  12.    SampleFile = "Dmosmpl2.APR"
  13.    AnimName = GetString( "0010000", 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.  
  25. Frame1A:
  26.    X = DoWhereIs (ACTIONBAR_OBJ,"",ACTION_DESIGN,0,0,0,ClientID)
  27.    If X = 0 Then
  28.       GoTo Frame1B
  29.    Else
  30.       GoTo Frame1AContinue
  31.    End If
  32.  
  33. Frame1B:
  34.    SetBubblePosforMenus
  35.    ChooseMenuItem d_Design
  36.    Exit Sub
  37.  
  38. Frame1AContinue:
  39.    MoveToObj Center
  40.    DoMouse WM_LBUTTONDOWN%, 0
  41.    DoMouse WM_LBUTTONUP%, 0
  42.    Exit Sub
  43.  
  44. Case  2 
  45.    X = DoWhereIs (FORM_OBJ,"ObjText2",0,0,0,0,ClientID)
  46.    SendTextKeys  GetString( "0012002", IResult% ), 50
  47.    Exit Sub
  48.  
  49. Case  3 
  50.    StepsText = GetString( "0011001", IResult% )
  51.    X = DoWhereIs (FORM_OBJ,"ObjText2",0,0,0,0,ClientID)
  52.    ShowTextBubble StepsText,  .01,  1.8, NorthEast
  53.    HideTextBubble
  54.    MoveToObjRel  1 , 180 
  55.    DoMouse WM_LBUTTONDOWN%, 0
  56.    DoMouse WM_LBUTTONUP%, 0
  57.    Exit Sub
  58.  
  59. Case  4 
  60.    StepsText = GetString( "0011002", IResult% )
  61.    SetBubblePosforMenus
  62.    ShowTextBubble StepsText,  .5,  2, NorthEast
  63.    HideTextBubble
  64.    ChooseMenuItem d_Repeating_Panel
  65.    Exit Sub
  66.  
  67. Case  5 
  68.    StepsText = GetString( "0011003", IResult% )
  69.    X = DoWhereIs (DIALOG_CONTROL,"",301,0,0,0,ClientID)
  70.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  71.    HideTextBubble
  72.    MoveToObj Center
  73.    Exit Sub
  74.  
  75. Case  6 
  76.    StepsText = GetString( "0011004", IResult% )
  77.    X = DoWhereIs (DIALOG_CONTROL,"",401,0,0,0,ClientID)
  78.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  79.    HideTextBubble
  80.    MoveToObjRel  50 , 25 
  81.    DoMouse WM_LBUTTONDOWN%, 0
  82.    DoMouse WM_LBUTTONUP%, 0
  83.    Exit Sub
  84.  
  85. Case  7 
  86.    StepsText = GetString( "0011005", IResult% )
  87.    X = DoWhereIs (DIALOG_CONTROL,"",403,0,0,0,ClientID)
  88.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  89.    HideTextBubble
  90.    MoveToObj Center
  91.    DoMouse WM_LBUTTONDOWN%, 0
  92.    DoMouse WM_LBUTTONUP%, 0
  93.    Exit Sub
  94.  
  95. Case  8 
  96.    StepsText = GetString( "0011006", IResult% )
  97.    X = DoWhereIs (DIALOG_CONTROL,"",401,0,0,0,ClientID)
  98.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  99.    HideTextBubble
  100.    MoveToObjRel  50 , 10 
  101.    DoMouse WM_LBUTTONDOWN%, 0
  102.    DoMouse WM_LBUTTONUP%, 0
  103.    Exit Sub
  104.  
  105. Case  9 
  106.    X = DoWhereIs (DIALOG_CONTROL,"",403,0,0,0,ClientID)
  107.    MoveToObj Center
  108.    DoMouse WM_LBUTTONDOWN%, 0
  109.    DoMouse WM_LBUTTONUP%, 0
  110.    Exit Sub
  111.  
  112. Case  10 
  113.    X = DoWhereIs (DIALOG_CONTROL,"",401,0,0,0,ClientID)
  114.    MoveToObjRel  50 , 40 
  115.    DoMouse WM_LBUTTONDOWN%, 0
  116.    DoMouse WM_LBUTTONUP%, 0
  117.    Exit Sub
  118.  
  119. Case  11 
  120.    X = DoWhereIs (DIALOG_CONTROL,"",403,0,0,0,ClientID)
  121.    MoveToObj Center
  122.    DoMouse WM_LBUTTONDOWN%, 0
  123.    DoMouse WM_LBUTTONUP%, 0
  124.    Exit Sub
  125.  
  126. Case  12 
  127.    StepsText = GetString( "0011007", IResult% )
  128.    X = DoWhereIs (DIALOG_CONTROL,"",310,0,0,0,ClientID)
  129.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  130.    HideTextBubble
  131.    MoveToObj Center
  132.    DoMouse WM_LBUTTONDOWN%, 0
  133.    DoMouse WM_LBUTTONUP%, 0
  134.    Exit Sub
  135.  
  136. Case  13 
  137.    X = DoWhereIs (DIALOG_CONTROL,"",311,0,0,0,ClientID)
  138.    MoveToObj Center
  139.    DoMouse WM_LBUTTONDOWN%, 0
  140.    DoMouse WM_LBUTTONUP%, 0
  141.    Exit Sub
  142.  
  143. Case  14 
  144.    X = DoWhereIs (DIALOG_CONTROL,"",311,0,0,0,ClientID)
  145.    SendTextKeys  GetString( "0012014", IResult% ), 50
  146.    Exit Sub
  147.  
  148. Case  15 
  149.    X = DoWhereIs (DIALOG_CONTROL,"",311,0,0,0,ClientID)
  150.    SendTextKeys  GetString( "0012015", IResult% ), 50
  151.    Exit Sub
  152.  
  153. Case  16 
  154.    X = DoWhereIs (DIALOG_CONTROL,"",311,0,0,0,ClientID)
  155.    DoMouse WM_LBUTTONDOWN%, 0
  156.    DoMouse WM_LBUTTONUP%, 0
  157.    Exit Sub
  158.  
  159. Case  17 
  160.    StepsText = GetString( "0011008", IResult% )
  161.    X = DoWhereIs (DIALOG_CONTROL,"",350,0,0,0,ClientID)
  162.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  163.    HideTextBubble
  164.    MoveToObj Center
  165.    Exit Sub
  166.  
  167. Case  18 
  168.    StepsText = GetString( "0011009", IResult% )
  169.    X = DoWhereIs (DIALOG_CONTROL,"",313,0,0,0,ClientID)
  170.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  171.    HideTextBubble
  172.    MoveToObj Center
  173.    DoMouse WM_LBUTTONDOWN%, 0
  174.    DoMouse WM_LBUTTONUP%, 0
  175.    Exit Sub
  176.  
  177. Case  19 
  178.    StepsText = GetString( "0011010", IResult% )
  179.    X = DoWhereIs (DIALOG_CONTROL,"",1,0,0,0,ClientID)
  180.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  181.    HideTextBubble
  182.    MoveToObj Center
  183.    DoMouse WM_LBUTTONDOWN%, 0
  184.    DoMouse WM_LBUTTONUP%, 0
  185.    Exit Sub
  186.  
  187. Case  20 
  188.    StepsText = GetString( "0011011", IResult% )
  189.    X = DoWhereIs (DIALOG_CONTROL,"",1,0,0,0,ClientID)
  190.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  191.    HideTextBubble
  192.    MoveToObj Center
  193.    DoMouse WM_LBUTTONDOWN%, 0
  194.    DoMouse WM_LBUTTONUP%, 0
  195.    Exit Sub
  196.  
  197. Case  21 
  198.    SendTextKeys  GetString( "0012021", IResult% ), 50
  199.    Exit Sub
  200.  
  201. Case  22 
  202.    SendTextKeys  GetString( "0012022", IResult% ), 50
  203.    Exit Sub
  204.  
  205. Case  23 
  206.    SendTextKeys  GetString( "0012023", IResult% ), 50
  207.    Exit Sub
  208. End Select
  209. End Sub
  210.