home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 October A / Pcwk10a98.iso / Lotus / LOTUS / SMARTCTR / 004.LSS < prev    next >
Encoding:
Text File  |  1997-10-24  |  8.9 KB  |  364 lines
  1. 'Copyright 1995-96, Lotus Development Corporation. All rights reserved.
  2. %if GEMINI
  3. Use "LTAPMN11"
  4. %elseif IBM_OS2
  5. Use "LTAPMO11"
  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 = "004"
  19.    AnimVersionNum =  2.32 
  20.    NumFramesThisAnim =  45 
  21.    AnimationType = "QuickDemo"
  22.    SampleFile = "sc6en.lwp"
  23.    AnimName = GetString( "0040000", 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( "0041001", IResult% )
  35.    StartAppFromSC AN_AMIPRO, "sc6en.lwp"
  36.    Exit Sub
  37.  
  38. Case  2 
  39.    StepsText = GetString( "0041002", IResult% )
  40.    SetBubblePosforMenus
  41.    ShowTextBubble StepsText,  1,  0, NorthEast
  42.    HideTextBubble
  43.    ChooseMenuItem Merge_Letter_m
  44.    Exit Sub
  45.  
  46. Case  3 
  47.    StepsText = GetString( "0041003", IResult% )
  48.    X = DoWhereIs (DIALOG_CONTROL_M,"",25586,0,0,0,ClientID)
  49.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  50.    HideTextBubble
  51.    MoveToObj Center
  52.    DoMouse WM_LBUTTONDOWN%, 0
  53.    DoMouse WM_LBUTTONUP%, 0
  54.    Exit Sub
  55.  
  56. Case  4 
  57.    StepsText = GetString( "0041004", IResult% )
  58.    WaitForChildDialog 5000    'Wait for Browse dialog to appear...
  59.    X = DoWhereIs (DIALOG_CONTROL_M,"",1136,0,0,0,ClientID)
  60.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  61.    HideTextBubble
  62.    MoveToObj Center
  63.    DoMouse WM_LBUTTONDOWN%, 0
  64.    DoMouse WM_LBUTTONUP%, 0
  65.    SendCtrlKeys  "{HOME}{DOWN}{ENTER}", 100
  66.    Exit Sub
  67.  
  68. Case  5 
  69.    StepsText = GetString( "0041005", IResult% )
  70.    Delay 500
  71.    WhereIsDlgControl &H480,"",0  'LWP WhereIs has bug...
  72.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  73.    HideTextBubble
  74.    MoveToObj Center
  75.    DoMouse WM_LBUTTONDOWN%, 0
  76.    DoMouse WM_LBUTTONUP%, 0
  77.    Exit Sub
  78.  
  79. Case  6 
  80.    Delay 500
  81.    theLocalFileName$ = "sc3??.dbf"
  82. X = GetLocalSampleFileName (theLocalFileName$)
  83. SendTextKeys ReadClientRegistry (AN_APPROACH, "Path" ) + lcase(theLocalFileName$), 50
  84.    Exit Sub
  85.  
  86. Case  7 
  87.    Delay 500
  88.    X = DoWhereIs (DIALOG_CONTROL_M,"",1,0,0,0,ClientID)
  89.    MoveToObj Center
  90.    DoMouse WM_LBUTTONDOWN%, 0
  91.    DoMouse WM_LBUTTONUP%, 0
  92.    Exit Sub
  93.  
  94. Case  8 
  95.    StepsText = GetString( "0041006", IResult% )
  96.    Delay 2000
  97.    WaitForChildDialog 20000        'Wait for Merge dialog to appear...
  98.    X = DoWhereIs (DIALOG_CONTROL_M,"",1,0,0,0,ClientID)
  99.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  100.    HideTextBubble
  101.    MoveToObj Center
  102.    DoMouse WM_LBUTTONDOWN%, 0
  103.    DoMouse WM_LBUTTONUP%, 0
  104.    Exit Sub
  105.  
  106. Case  9 
  107.    StepsText = GetString( "0041007", IResult% )
  108.    X = DoWhereIs (DIALOG_CONTROL_M,"",&H63EC,0,0,0,ClientID)
  109.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  110.    HideTextBubble
  111.    MoveToObj Center
  112.    DoMouse WM_LBUTTONDOWN%, 0
  113.    DoMouse WM_LBUTTONUP%, 0
  114.    Exit Sub
  115.  
  116. Case  10 
  117.    StepsText = GetString( "0041008", IResult% )
  118.    Delay 2000
  119.    X = DoWhereIs (BAR_CONTROL_M,"",&H6306,0,BAR_MAILMERGE_M,0,ClientID)
  120.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  121.    HideTextBubble
  122.    Exit Sub
  123.  
  124. Case  11 
  125.    X = RunScriptCommand (".GoToBookMark ""address""", ClientID, DeskwHdl.val )
  126.    Exit Sub
  127.  
  128. Case  12 
  129.    X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
  130.    MoveToObj Center
  131.    DoMouse WM_LBUTTONDOWN%, 0
  132.    DoMouse WM_LBUTTONUP%, 0
  133.    Exit Sub
  134.  
  135. Case  13 
  136.    Delay 2000
  137.    ' ***** Insert FIRST NAME field *****
  138.    X = DoWhereIs (BAR_CONTROL_M,"",&H63F1,0,BAR_MAILMERGE_M,0,ClientID)
  139.    MoveToObj Center
  140.    DoMouse WM_LBUTTONDOWN%, 0
  141.    DoMouse WM_LBUTTONUP%, 0
  142.    Exit Sub
  143.  
  144. Case  14 
  145.    StepsText = GetString( "0041009", IResult% )
  146.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  147.    HideTextBubble
  148.    Exit Sub
  149.  
  150. Case  15 
  151.    X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
  152.    SendTextKeys  GetString( "0042015", IResult% ), 50
  153.    Exit Sub
  154.  
  155. Case  16 
  156.    Delay 500
  157.    ' ***** Insert LAST NAME field *****
  158.    X = DoWhereIs (BAR_CONTROL_M,"",&H6306,0,BAR_MAILMERGE_M,0,ClientID)
  159.    MoveToObjRel  25 , 30 
  160.    DoMouse WM_LBUTTONDOWN%, 0
  161.    DoMouse WM_LBUTTONUP%, 0
  162.    Exit Sub
  163.  
  164. Case  17 
  165.    Delay 500
  166.    X = DoWhereIs (BAR_CONTROL_M,"",&H63F1,0,BAR_MAILMERGE_M,0,ClientID)
  167.    MoveToObj Center
  168.    DoMouse WM_LBUTTONDOWN%, 0
  169.    DoMouse WM_LBUTTONUP%, 0
  170.    Exit Sub
  171.  
  172. Case  18 
  173.    X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
  174.    SendCtrlKeys  "{ENTER}", 100
  175.    Exit Sub
  176.  
  177. Case  19 
  178.    Delay 500
  179.    ' *****  Select ADDRESS field *****
  180.    X = DoWhereIs (BAR_CONTROL_M,"",&H6306,0,BAR_MAILMERGE_M,0,ClientID)
  181.    MoveToObjRel  25 , 65 
  182.    DoMouse WM_LBUTTONDOWN%, 0
  183.    DoMouse WM_LBUTTONUP%, 0
  184.    Exit Sub
  185.  
  186. Case  20 
  187.    Delay 500
  188.    ' ***** Insert ADDRESS field *****
  189.    X = DoWhereIs (BAR_CONTROL_M,"",&H63F1,0,BAR_MAILMERGE_M,0,ClientID)
  190.    MoveToObj Center
  191.    DoMouse WM_LBUTTONDOWN%, 0
  192.    DoMouse WM_LBUTTONUP%, 0
  193.    Exit Sub
  194.  
  195. Case  21 
  196.    X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
  197.    SendCtrlKeys  "{ENTER}", 100
  198.    Exit Sub
  199.  
  200. Case  22 
  201.    Delay 500
  202.    ' ***** Select CITY field *****
  203.    X = DoWhereIs (BAR_CONTROL_M,"",&H6306,0,BAR_MAILMERGE_M,0,ClientID)
  204.    MoveToObjRel  25 , 90 
  205.    DoMouse WM_LBUTTONDOWN%, 0
  206.    DoMouse WM_LBUTTONUP%, 0
  207.    Exit Sub
  208.  
  209. Case  23 
  210.    Delay 500
  211.    ' ***** Insert CITY field *****
  212.    X = DoWhereIs (BAR_CONTROL_M,"",&H63F1,0,BAR_MAILMERGE_M,0,ClientID)
  213.    MoveToObj Center
  214.    DoMouse WM_LBUTTONDOWN%, 0
  215.    DoMouse WM_LBUTTONUP%, 0
  216.    Exit Sub
  217.  
  218. Case  24 
  219.    X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
  220.    SendTextKeys  GetString( "0042024", IResult% ), 50
  221.    Exit Sub
  222.  
  223. Case  25 
  224.    Delay 500
  225.    ' ***** Select STATE field *****
  226.    X = DoWhereIs (BAR_CONTROL_M,"",&H6306,0,BAR_MAILMERGE_M,0,ClientID)
  227.    MoveToObjRel  25 , 90 
  228.    DoMouse WM_LBUTTONDOWN%, 0
  229.    DoMouse WM_LBUTTONUP%, 0
  230.    Exit Sub
  231.  
  232. Case  26 
  233.    Delay 500
  234.    SendCtrlKeys  "{DOWN}", 100
  235.    Exit Sub
  236.  
  237. Case  27 
  238.    Delay 500
  239.    ' ***** Insert STATE field ******
  240.    X = DoWhereIs (BAR_CONTROL_M,"",&H63F1,0,BAR_MAILMERGE_M,0,ClientID)
  241.    MoveToObj Center
  242.    DoMouse WM_LBUTTONDOWN%, 0
  243.    DoMouse WM_LBUTTONUP%, 0
  244.    Exit Sub
  245.  
  246. Case  28 
  247.    X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
  248.    SendTextKeys  GetString( "0042028", IResult% ), 50
  249.    Exit Sub
  250.  
  251. Case  29 
  252.    ' ***** Select ZIP field *****
  253.    X = DoWhereIs (BAR_CONTROL_M,"",&H6306,0,BAR_MAILMERGE_M,0,ClientID)
  254.    MoveToObjRel  25 , 90 
  255.    DoMouse WM_LBUTTONDOWN%, 0
  256.    DoMouse WM_LBUTTONUP%, 0
  257.    Exit Sub
  258.  
  259. Case  30 
  260.    Delay 500
  261.    SendCtrlKeys  "{DOWN}", 100
  262.    Exit Sub
  263.  
  264. Case  31 
  265.    ' ***** Insert ZIP field *****
  266.    X = DoWhereIs (BAR_CONTROL_M,"",&H63F1,0,BAR_MAILMERGE_M,0,ClientID)
  267.    MoveToObj Center
  268.    DoMouse WM_LBUTTONDOWN%, 0
  269.    DoMouse WM_LBUTTONUP%, 0
  270.    Exit Sub
  271.  
  272. Case  32 
  273.    X = RunScriptCommand (".GoToBookMark ""name""", ClientID, DeskwHdl.val )
  274.    Exit Sub
  275.  
  276. Case  33 
  277.    X = DoWhereIs (INSERTION_POINT_M,"",0,0,0,0,ClientID)
  278.    Exit Sub
  279.  
  280. Case  34 
  281.    Delay 500
  282.    ' ***** Select NAME field *****
  283.    X = DoWhereIs (BAR_CONTROL_M,"",&H6306,0,BAR_MAILMERGE_M,0,ClientID)
  284.    MoveToObj Center
  285.    DoMouse WM_LBUTTONDOWN%, 0
  286.    DoMouse WM_LBUTTONUP%, 0
  287.    Exit Sub
  288.  
  289. Case  35 
  290.    Delay 500
  291.    SendCtrlKeys  "{HOME}", 100
  292.    Exit Sub
  293.  
  294. Case  36 
  295.    ' ***** Insert NAME field *****
  296.    X = DoWhereIs (BAR_CONTROL_M,"",&H63F1,0,BAR_MAILMERGE_M,0,ClientID)
  297.    MoveToObj Center
  298.    DoMouse WM_LBUTTONDOWN%, 0
  299.    DoMouse WM_LBUTTONUP%, 0
  300.    Exit Sub
  301.  
  302. Case  37 
  303.    ' ***** Click DONE *****
  304.    X = DoWhereIs (BAR_CONTROL_M,"",&H63F2,0,BAR_MAILMERGE_M,0,ClientID)
  305.    MoveToObj Center
  306.    DoMouse WM_LBUTTONDOWN%, 0
  307.    DoMouse WM_LBUTTONUP%, 0
  308.    Exit Sub
  309.  
  310. Case  38 
  311.    StepsText = GetString( "0041010", IResult% )
  312.    Delay 2000
  313.    X = DoWhereIs (DIALOG_CONTROL_M,"",1,0,0,0,ClientID)
  314.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  315.    HideTextBubble
  316.    MoveToObj Center
  317.    DoMouse WM_LBUTTONDOWN%, 0
  318.    DoMouse WM_LBUTTONUP%, 0
  319.    Exit Sub
  320.  
  321. Case  39 
  322.    StepsText = GetString( "0041011", IResult% )
  323.    X = DoWhereIs (DIALOG_CONTROL_M,"",&H6465,0,0,0,ClientID)
  324.    ShowTextBubble StepsText,  .5,  .5, SouthEast
  325.    HideTextBubble
  326.    Exit Sub
  327.  
  328. Case  40 
  329.    StepsText = GetString( "0041012", IResult% )
  330.    Delay 1000
  331.    X = DoWhereIs (DIALOG_CONTROL_M,"",1,0,0,0,ClientID)
  332.    ShowTextBubble StepsText,  .5,  .5, NorthEast
  333.    HideTextBubble
  334.    MoveToObj Center
  335.    DoMouse WM_LBUTTONDOWN%, 0
  336.    DoMouse WM_LBUTTONUP%, 0
  337.    Exit Sub
  338.  
  339. Case  41 
  340.    Delay 2000
  341.    SendCtrlKeys  "{TAB}", 100
  342.    Exit Sub
  343.  
  344. Case  42 
  345.    Delay 1000
  346.    SendCtrlKeys  "{ENTER}", 100
  347.    Exit Sub
  348.  
  349. Case  43 
  350.    Delay 1000
  351.    SendCtrlKeys  "{ENTER}", 100
  352.    Exit Sub
  353.  
  354. Case  44 
  355.    Delay 1000
  356.    SendCtrlKeys  "{ENTER}", 100
  357.    Exit Sub
  358.  
  359. Case  45 
  360.    Delay 2000
  361.    Exit Sub
  362. End Select
  363. End Sub
  364.