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