home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / SMARTCTR / 005.LSS < prev    next >
Encoding:
Text File  |  1996-10-24  |  4.6 KB  |  200 lines
  1. 'Copyright 1995-96, Lotus Development Corporation. All rights reserved.
  2. %if GEMINI
  3. Use "LTAPPN11"
  4. %elseif IBM_OS2
  5. Use "LTAPPO11"
  6. %end if
  7. %if GEMINI
  8. Use "LTAPSN11"
  9. %elseif IBM_OS2
  10. Use "LTAPSO11"
  11. %end if
  12.  
  13. Sub Initialize
  14.    ClientMainWinClass = SMARTCENTER_MAINWINCLASS
  15.    ClientID = AN_SMARTCEN
  16.    ClientModName = SMARTCENTER_PERSMODNAME
  17.    ClientLotusAppID = "SMARTCENTER"
  18.    ShowMeModName = "005"
  19.    AnimVersionNum =  2.32 
  20.    NumFramesThisAnim =  27 
  21.    AnimationType = "QuickDemo"
  22.    SampleFile = ""
  23.    AnimName = GetString( "0050000", IResult% )
  24. End Sub
  25.  
  26. Public Sub ShowMe (theNextStep As Integer)
  27.  
  28. GetCursorPos TempPos
  29. CursorPosForStep(theNextStep) = TempPos
  30.  
  31. Select Case theNextStep
  32.  
  33. Case  1 
  34.    StepsText = GetString( "0051001", IResult% )
  35.    StartAppFromSC AN_APPROACH, ""
  36.    Exit Sub
  37.  
  38. Case  2 
  39.    Delay 2000
  40.    X = DoWhereIs (DIALOG_CONTROL_P,"",2,0,0,0,ClientID)
  41.    MoveToObj Center
  42.    DoMouse WM_LBUTTONDOWN%, 0
  43.    DoMouse WM_LBUTTONUP%, 0
  44.    Exit Sub
  45.  
  46. Case  3 
  47.    StepsText = GetString( "0051002", IResult% )
  48.    SetBubblePosforMenus
  49.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  50.    HideTextBubble
  51.    ChooseMenuItem File_Open_p
  52.    Exit Sub
  53.  
  54. Case  4 
  55.    StepsText = GetString( "0051003", IResult% )
  56.    X = DoWhereIs (DIALOG_CONTROL_P,"",1136,0,0,0,ClientID)
  57.    ShowTextBubble StepsText,  .25,  .25, NorthEast
  58.    HideTextBubble
  59.    MoveToObj Center
  60.    DoMouse WM_LBUTTONDOWN%, 0
  61.    DoMouse WM_LBUTTONUP%, 0
  62.    Exit Sub
  63.  
  64. Case  5 
  65.    Delay 2000
  66.    SendCtrlKeys  "{END}", 100
  67.    Exit Sub
  68.  
  69. Case  6 
  70.    SendCtrlKeys  "{ENTER}", 100
  71.    Exit Sub
  72.  
  73. Case  7 
  74.    StepsText = GetString( "0051004", IResult% )
  75.    Delay 500
  76.    X = DoWhereIs (DIALOG_CONTROL_P,"",1152,0,0,0,ClientID)
  77.    ShowTextBubble StepsText,  .15,  .25, NorthEast
  78.    HideTextBubble
  79.    MoveToObjRel  15 , 25 
  80.    DoMouse WM_LBUTTONDOWN%, 0
  81.    DoMouse WM_LBUTTONUP%, 0
  82.    Exit Sub
  83.  
  84. Case  8 
  85.    Delay 500
  86.    theLocalFileName$ = "sc4??.123"
  87. X = GetLocalSampleFileName (theLocalFileName$)
  88. SendTextKeys ReadClientRegistry ( "Approach", "Path" ) + lcase(theLocalFileName$), 50
  89.    Exit Sub
  90.  
  91. Case  9 
  92.    StepsText = GetString( "0051005", IResult% )
  93.    X = DoWhereIs (DIALOG_CONTROL_P,"",1,0,0,0,ClientID)
  94.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  95.    HideTextBubble
  96.    MoveToObj Center
  97.    DoMouse WM_LBUTTONDOWN%, 0
  98.    DoMouse WM_LBUTTONUP%, 0
  99.    Exit Sub
  100.  
  101. Case  10 
  102.    StepsText = GetString( "0051006", IResult% )
  103.    Delay 500
  104.    X = DoWhereIs (DIALOG_CONTROL_P,"",101,0,0,0,ClientID)
  105.    ShowTextBubble StepsText,  .9,  .1, NorthEast
  106.    HideTextBubble
  107.    MoveToObjRel  30 , 30 
  108.    DoMouse WM_LBUTTONDOWN%, 0
  109.    DoMouse WM_LBUTTONUP%, 0
  110.    Exit Sub
  111.  
  112. Case  11 
  113.    SendCtrlKeys  "{DOWN 2}", 100
  114.    Exit Sub
  115.  
  116. Case  12 
  117.    X = DoWhereIs (DIALOG_CONTROL_P,"",1,0,0,0,ClientID)
  118.    MoveToObj Center
  119.    DoMouse WM_LBUTTONDOWN%, 0
  120.    DoMouse WM_LBUTTONUP%, 0
  121.    Exit Sub
  122.  
  123. Case  13 
  124.    StepsText = GetString( "0051007", IResult% )
  125.    X = DoWhereIs (DIALOG_CONTROL_P,"",1152,0,0,0,ClientID)
  126.    ShowTextBubble StepsText,  .02,  .02, NorthWest
  127.    HideTextBubble
  128.    Exit Sub
  129.  
  130. Case  14 
  131.    If Dir$( gClientPath + "SC4EN.DBF") <> "" Then Kill gClientPath + "SC4EN.DBF"
  132.    Exit Sub
  133.  
  134. Case  15 
  135.    If Dir$( gClientPath + "SC4EN.ADX") <> "" Then Kill gClientPath + "SC4EN.ADX"
  136.    Exit Sub
  137.  
  138. Case  16 
  139.    If Dir$( gClientPath + "SC4EN.APR") <> "" Then Kill gClientPath + "SC4EN.APR"
  140.    Exit Sub
  141.  
  142. Case  17 
  143.    X = DoWhereIs (DIALOG_CONTROL_P,"",1,0,0,0,ClientID)
  144.    MoveToObj Center
  145.    DoMouse WM_LBUTTONDOWN%, 0
  146.    DoMouse WM_LBUTTONUP%, 0
  147.    Exit Sub
  148.  
  149. Case  18 
  150.    Delay 4000
  151.    Exit Sub
  152.  
  153. Case  19 
  154.    X = DoWhereIs (VIEWTAB_OBJ_P,"Worksheet 1",0,0,0,0,ClientID)
  155.    MoveToObj Center
  156.    DoMouse WM_LBUTTONDOWN%, 0
  157.    DoMouse WM_LBUTTONUP%, 0
  158.    Exit Sub
  159.  
  160. Case  20 
  161.    Delay 2000
  162.    Exit Sub
  163.  
  164. Case  21 
  165.    StepsText = GetString( "0051008", IResult% )
  166.    SetBubblePosforMenus
  167.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  168.    HideTextBubble
  169.    ChooseMenuItem File_Save_Approach_File_p
  170.    Exit Sub
  171.  
  172. Case  22 
  173.    X = DoWhereIs (DIALOG_CONTROL_P,"",1,0,0,0,ClientID)
  174.    MoveToObj Center
  175.    DoMouse WM_LBUTTONDOWN%, 0
  176.    DoMouse WM_LBUTTONUP%, 0
  177.    Exit Sub
  178.  
  179. Case  23 
  180.    SendCtrlKeys  "^{F4}", 100
  181.    Exit Sub
  182.  
  183. Case  24 
  184.    SendCtrlKeys  "{ESC}", 100
  185.    Exit Sub
  186.  
  187. Case  25 
  188.    If Dir$( gClientPath + "SC4EN.DBF") <> "" Then Kill gClientPath + "SC4EN.DBF"
  189.    Exit Sub
  190.  
  191. Case  26 
  192.    If Dir$( gClientPath + "SC4EN.ADX") <> "" Then Kill gClientPath + "SC4EN.ADX"
  193.    Exit Sub
  194.  
  195. Case  27 
  196.    If Dir$( gClientPath + "SC4EN.APR") <> "" Then Kill gClientPath + "SC4EN.APR"
  197.    Exit Sub
  198. End Select
  199. End Sub
  200.