home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS009.DSK / FLWCOPY.SMM < prev    next >
INI File  |  1993-06-25  |  35KB  |  1,965 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _MACRO.STY
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     Apple LaserWriter Plus
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Collect and Copy for Freelance for Windows.
  19.     
  20.     
  21.     
  22.     
  23.     741032464
  24.     30
  25.     731818190
  26.     799
  27.     8
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     1
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [tag]
  56.     Body Text
  57.     2
  58.     [fnt]
  59.         Times New Roman
  60.         200
  61.         0
  62.         16384
  63.     [algn]
  64.         1
  65.         1
  66.         216
  67.         0
  68.         0
  69.     [spc]
  70.         33
  71.         273
  72.         1
  73.         0
  74.         0
  75.         1
  76.         100
  77.     [brk]
  78.         4
  79.     [line]
  80.         8
  81.         0
  82.         1
  83.         0
  84.         1
  85.         1
  86.         1
  87.         10
  88.         10
  89.         1
  90.     [spec]
  91.         0
  92.         0
  93.         
  94.         0
  95.         1
  96.         1
  97.         0
  98.         16
  99.         0
  100.         0
  101.     [nfmt]
  102.         272
  103.         1
  104.         3
  105.         .
  106.         ,
  107.         $
  108.     Body Text
  109.     0
  110.     0
  111. [tag]
  112.     Body Single
  113.     3
  114.     [fnt]
  115.         Times New Roman
  116.         240
  117.         0
  118.         49152
  119.     [algn]
  120.         1
  121.         1
  122.         0
  123.         0
  124.         0
  125.     [spc]
  126.         33
  127.         273
  128.         1
  129.         0
  130.         0
  131.         1
  132.         100
  133.     [brk]
  134.         4
  135.     [line]
  136.         8
  137.         0
  138.         1
  139.         0
  140.         1
  141.         1
  142.         1
  143.         10
  144.         10
  145.         1
  146.     [spec]
  147.         0
  148.         0
  149.         
  150.         0
  151.         1
  152.         1
  153.         0
  154.         0
  155.         0
  156.         0
  157.     [nfmt]
  158.         280
  159.         1
  160.         2
  161.         .
  162.         ,
  163.         $
  164.     Body Single
  165.     0
  166.     0
  167. [tag]
  168.     Function
  169.     4
  170.     [fnt]
  171.         Times New Roman
  172.         240
  173.         0
  174.         16385
  175.     [algn]
  176.         1
  177.         1
  178.         0
  179.         0
  180.         0
  181.     [spc]
  182.         33
  183.         244
  184.         1
  185.         0
  186.         0
  187.         1
  188.         100
  189.     [brk]
  190.         68
  191.     [line]
  192.         8
  193.         0
  194.         1
  195.         0
  196.         1
  197.         1
  198.         1
  199.         10
  200.         10
  201.         1
  202.     [spec]
  203.         0
  204.         1
  205.         
  206.         0
  207.         1
  208.         1
  209.         0
  210.         0
  211.         0
  212.         0
  213.     [nfmt]
  214.         272
  215.         1
  216.         3
  217.         .
  218.         ,
  219.         $
  220.     Body Text
  221.     0
  222.     0
  223. [tag]
  224.     Outline2
  225.     5
  226.     [fnt]
  227.         Times New Roman
  228.         200
  229.         0
  230.         49152
  231.     [algn]
  232.         1
  233.         1
  234.         216
  235.         0
  236.         0
  237.     [spc]
  238.         33
  239.         273
  240.         1
  241.         0
  242.         0
  243.         1
  244.         100
  245.     [brk]
  246.         4
  247.     [line]
  248.         8
  249.         0
  250.         1
  251.         0
  252.         1
  253.         1
  254.         1
  255.         10
  256.         10
  257.         1
  258.     [spec]
  259.         0
  260.         2
  261.         
  262.         0
  263.         1
  264.         1
  265.         0
  266.         16
  267.         0
  268.         0
  269.     [nfmt]
  270.         272
  271.         1
  272.         3
  273.         .
  274.         ,
  275.         $
  276.     Outline2
  277.     0
  278.     0
  279. [tag]
  280.     Outline3
  281.     6
  282.     [fnt]
  283.         Times New Roman
  284.         200
  285.         0
  286.         16384
  287.     [algn]
  288.         1
  289.         1
  290.         216
  291.         0
  292.         0
  293.     [spc]
  294.         33
  295.         273
  296.         1
  297.         0
  298.         0
  299.         1
  300.         100
  301.     [brk]
  302.         4
  303.     [line]
  304.         8
  305.         0
  306.         1
  307.         0
  308.         1
  309.         1
  310.         1
  311.         10
  312.         10
  313.         1
  314.     [spec]
  315.         0
  316.         3
  317.         
  318.         0
  319.         1
  320.         1
  321.         0
  322.         16
  323.         0
  324.         0
  325.     [nfmt]
  326.         272
  327.         1
  328.         3
  329.         .
  330.         ,
  331.         $
  332.     Outline3
  333.     0
  334.     0
  335. [tag]
  336.     Outline4
  337.     7
  338.     [fnt]
  339.         Times New Roman
  340.         200
  341.         0
  342.         16384
  343.     [algn]
  344.         1
  345.         1
  346.         216
  347.         0
  348.         0
  349.     [spc]
  350.         33
  351.         273
  352.         1
  353.         0
  354.         0
  355.         1
  356.         100
  357.     [brk]
  358.         4
  359.     [line]
  360.         8
  361.         0
  362.         1
  363.         0
  364.         1
  365.         1
  366.         1
  367.         10
  368.         10
  369.         1
  370.     [spec]
  371.         0
  372.         4
  373.         
  374.         0
  375.         1
  376.         1
  377.         0
  378.         16
  379.         0
  380.         0
  381.     [nfmt]
  382.         272
  383.         1
  384.         3
  385.         .
  386.         ,
  387.         $
  388.     Outline4
  389.     0
  390.     0
  391. [lay]
  392.     Standard
  393.     516
  394.     [rght]
  395.         16833
  396.         11908
  397.         1
  398.         1440
  399.         1440
  400.         1
  401.         1440
  402.         1440
  403.         0
  404.         1
  405.         0
  406.         1
  407.         0
  408.         2
  409.         1
  410.         1440
  411.         10465
  412.         12
  413.         1
  414.         720
  415.         1
  416.         1440
  417.         1
  418.         2160
  419.         1
  420.         2880
  421.         1
  422.         3600
  423.         1
  424.         4320
  425.         1
  426.         5040
  427.         1
  428.         5760
  429.         1
  430.         6480
  431.         1
  432.         7200
  433.         1
  434.         7920
  435.         1
  436.         8640
  437.     [hrght]
  438.     [lyfrm]
  439.         1
  440.         11208
  441.         0
  442.         0
  443.         11908
  444.         1440
  445.         0
  446.         1
  447.         3
  448.         1 0 0 0 0 0 0
  449.         0
  450.         0
  451.         1
  452.     [frmlay]
  453.         1440
  454.         11908
  455.         1
  456.         1440
  457.         72
  458.         1
  459.         792
  460.         1440
  461.         0
  462.         1
  463.         0
  464.         1
  465.         1
  466.         0
  467.         1
  468.         1440
  469.         10465
  470.         1
  471.         3
  472.         9360
  473.     [txt]
  474. >
  475.     [frght]
  476.     [lyfrm]
  477.         1
  478.         13256
  479.         0
  480.         15393
  481.         11908
  482.         16833
  483.         0
  484.         1
  485.         3
  486.         1 0 0 0 0 0 0
  487.         0
  488.         0
  489.         2
  490.     [frmlay]
  491.         16833
  492.         11908
  493.         1
  494.         1440
  495.         792
  496.         1
  497.         15465
  498.         1440
  499.         0
  500.         1
  501.         0
  502.         1
  503.         1
  504.         0
  505.         1
  506.         1440
  507.         10465
  508.         2
  509.         2
  510.         4680
  511.         3
  512.         9360
  513.     [txt]
  514. >
  515. [elay]
  516. [l1]
  517.     0
  518. [pg]
  519.     8
  520.     56 0 44 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  521.     108 0 14 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  522.     165 0 11 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  523.     222 0 29 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  524.     279 0 13 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  525.     329 0 33 0 1 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  526.     386 0 79 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  527.     414 0 15 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  528. [edoc]
  529. @Function@<:#284,9025>'declares & defines
  530.  
  531. @Outline2@<:#241,9025>'string defines, to be localized
  532.  
  533. @Outline3@<:#241,9025><:X3,-32768;Include "amixlate.sam!FLWCOPY">define MyAppName    "Ami Pro Collect & Copy"
  534.  
  535. @Outline3@<:#241,9025>define apptitle        "Freelance Graphics"
  536.  
  537. @Outline3@<:#241,9025>define err_cantlaunchapp    "Unable to launch Freelance for Windows."
  538.  
  539. @Outline3@<:#241,9025>define err_cantfindapp        "Unable to find Freelance for Windows."
  540.  
  541. @Outline3@<:#241,9025>define err_nofilesopen        "You must have a presentation open to use Collect and Copy."
  542.  
  543. @Outline3@<:#241,9025>define err_appmustberunning    "Freelance must be running to use Collect and Copy."
  544.  
  545. @Outline3@<:#241,9025>define err_selectonlyoneslide    "Please select a single slide."
  546.  
  547. @Outline3@<:#241,9025>define err_cantfindmenu    "Cannot locate the correct menu."
  548.  
  549. @Outline3@<:#241,9025>define err_cantfindmenubar    "Cannot locate the menu bar."
  550.  
  551. @Outline3@<:#241,9025>define pasteformat    "Windows Metafile"
  552.  
  553. @Outline3@<:#241,9025>define FLW_WINDOWMENU    "&Window"
  554.  
  555. @Outline3@<:#241,9025>define FLW_TILEITEM        "&Tile"
  556.  
  557. @Outline3@<:#241,9025>define CurUnits        1
  558.  
  559. @Outline3@<:#241,9025>define err_maybenotinslidesorter    "Cannot paste from this view."<:X~3,-32768;Include "amixlate.sam!FLWCOPY">
  560.  
  561. @Outline2@<:#241,9025>'string defines, not to be localized
  562.  
  563. @Outline3@<:#241,9025>define appname    "FLW"
  564.  
  565. @Outline3@<:#241,9025>define appmodule    "FLWMAIN"
  566.  
  567. @Outline3@<:#241,9025>define appclass    "flwapp"
  568.  
  569. @Outline3@<:#241,9025>define LotusIniFile    "lotus.ini"
  570.  
  571. @Outline3@<:#241,9025>define LotusAppSection    "Lotus Applications"
  572.  
  573. @Outline3@<:#241,9025>define ERR_DIECLEANLY    -2
  574.  
  575. @Outline3@<:#241,9025>define FILE_ALREADYOPEN    1
  576.  
  577. @Outline3@<:#241,9025>define FILE_NOTOPEN        -1
  578.  
  579. @Outline3@<:#241,9025>define salesmsgsmm    lotuspal.smm!salesmsg
  580.  
  581. @Outline3@<:#241,9025>define helpfile        "HELPPACK.HLP"
  582.  
  583. @Outline3@<:#241,9025>define helpnum    110
  584.  
  585. @Outline3@<:#241,9025>define HELP_CONTEXT    0x0001
  586.  
  587. @Outline3@<:#241,9025>define VK_F1            112
  588.  
  589. @Outline2@<:#241,9025>'private functions
  590.  
  591. @Outline3@<:#241,9025>declare box2(hdlg, id, val)
  592.  
  593. @Outline3@<:#241,9025>declare done()
  594.  
  595. @Outline3@<:#241,9025>declare onmenu(menu, item, casc)
  596.  
  597. @Outline3@<:#241,9025>declare freeglobals()
  598.  
  599. @Outline3@<:#241,9025>declare GetChildHandle(parentclass, childclass);
  600.  
  601. @Outline3@<:#241,9025>declare h_LoadLotusApp(Name, Module);
  602.  
  603. @Outline3@<:#241,9025>declare h_RunningLotusApp(Name, Module);
  604.  
  605. @Outline3@<:#241,9025>declare hideami(rect)
  606.  
  607. @Outline3@<:#241,9025>declare insertdata(hdlg, id, val)
  608.  
  609. @Outline3@<:#241,9025>define IsOKToRun(menuname)    GetInfo(217, 24, %1);
  610.  
  611. @Outline3@<:#241,9025>define MsgBox(msgtext)    Message(%1, myappname)
  612.  
  613. @Outline3@<:#241,9025>declare modframe()
  614.  
  615. @Outline3@<:#241,9025>declare newnow()
  616.  
  617. @Outline3@<:#241,9025>declare openfile()
  618.  
  619. @Outline3@<:#241,9025>declare setpagelayout()
  620.  
  621. @Outline3@<:#241,9025>declare showami(rect)
  622.  
  623. @Outline3@<:#241,9025>declare winproc(hdlg, id, val)
  624.  
  625. @Outline3@<:#241,9025>declare box2(hdlg, id, val)
  626.  
  627. @Outline3@<:#482,9025>declare MyPostMessage(hwnd, msg, wparam, lparam)    DllCall("User,PostMessage,HHHHJ",%1,%2,%3,%4)
  628.  
  629. @Outline2@<:#241,9025>'api call defines
  630.  
  631. @Outline3@<:#241,9025>Define EnableWindow() DllCall("user,EnableWindow,HHH", %1, %2)
  632.  
  633. @Outline3@<:#241,9025>Define FindWindow() DllCall("user,FindWindow,HCC", %1, %2)
  634.  
  635. @Outline3@<:#241,9025>Define GetClassName(hwnd, name, len) dllcall("user,GetClassName,HHCH", %1, %2, %3)
  636.  
  637. @Outline3@<:#241,9025>Define GetActiveWindow() DllCall("user,GetActiveWindow,H")
  638.  
  639. @Outline3@<:#241,9025>Define Getfocus() DllCall("user,GetFocus,H")
  640.  
  641. @Outline3@<:#241,9025>Define GetModuleHandle() DllCall("kernel,GetModuleHandle,HC", %1)
  642.  
  643. @Outline3@<:#241,9025>Define GetWindow(hwnd, cmd) dllcall("user,GetWindow,HHH", %1, %2)
  644.  
  645. @Outline3@<:#241,9025>DEFINE GetWindowrect()    DllCall("user,GetWindowRect,HHN",%1,%2)
  646.  
  647. @Outline3@<:#241,9025>define IsIconic(hWnd) DllCall("user,IsIconic,HH", %1)
  648.  
  649. @Outline3@<:#241,9025>Define MoveWindow() DllCall("User,MoveWindow,HHHHHHA",%1,%2,%3,%4,%5,%6)
  650.  
  651. @Outline3@<:#241,9025>Define PostMessage() DllCall("User,PostMessage,HHHHJ",%1,%2,%3,%4)
  652.  
  653. @Outline3@<:#482,9025>define PeekMessage(lpmsg, hwnd, uFilterFirst, uFilterLast, fuRemove)    DllCall("User,PostMessage,ACHHHH",%1,%2,%3,%4, %5)
  654.  
  655. @Outline3@<:#482,9025>Define SendMessage(hwnd, message, wparam, lparao) Dllcall("user,SendMessage,JHHHJ", %1, %2, %3, %4)
  656.  
  657. @Outline3@<:#482,9025>Define SendMessageC(hwnd, message, wparam, lparao) Dllcall("user,SendMessage,HHHHC", %1, %2, %3, %4)
  658.  
  659. @Outline3@<:#241,9025>Define SetFocus() DllCall("user,SetFocus,HH",%1)
  660.  
  661. @Outline3@<:#241,9025>Define ShowWindow(hWnd, stuff) DllCall("user,ShowWindow,HHH", %1, %2)
  662.  
  663. @Outline3@<:#482,9025>define SetWindowPos(hwnd, hwndinsertafter, x, y, cx, cy, wflags) DllCall("user,SetWindowPos,HHHHHHHI", %1, %2, %3, %4, %5, %6, %7)
  664.  
  665. @Outline3@<:#241,9025>define SetCursor(hwnd)        DllCall("user,SetCursor,HH",%1)
  666.  
  667. @Outline3@<:#241,9025>define LoadCursor(hwnd, lpcursor)        DllCall("user,LoadCursor,HHC",%1, %2)
  668.  
  669. @Outline3@<:#241,9025>define    GetMenu(HWND)    DllCall("user,GetMenu,HH", %1)
  670.  
  671. @Outline3@<:#482,9025>define    GetMenuString(HMENU, WORD, LPSTR, int, WORD)    DllCall("user,GetMenuString,HHHFHH", %1, %2, %3, %4, %5)
  672.  
  673. @Outline3@<:#241,9025>define    GetSubMenu(HMENU, int)    DllCall("user,GetSubMenu,HHH", %1, %2)
  674.  
  675. @Outline3@<:#241,9025>define    GetMenuItemID(HMENU, int)    DllCall("user,GetMenuItemID,LHH", %1, %2)
  676.  
  677. @Outline3@<:#241,9025>define    GetMenuItemCount(HMENU)    DllCall("user,GetMenuItemCount,HH", %1)
  678.  
  679. @Outline3@<:#241,9025>
  680.  
  681. @Outline3@<:#241,9025>define WinHelp(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
  682.  
  683. @Outline2@<:#241,9025>'menu pick defines
  684.  
  685. @Outline3@<:#241,9025>define FLW_COPY        142
  686.  
  687. @Outline3@<:#241,9025>define FLW_CURVEDTEXT    307
  688.  
  689. @Outline3@<:#241,9025>define FLW_CURRENTPAGE    228
  690.  
  691. @Outline3@<:#241,9025>define FLW_EDITCLEAR    145
  692.  
  693. @Outline3@<:#241,9025>define FLW_INBW        269
  694.  
  695. @Outline3@<:#241,9025>define FLW_INCOLOR        270
  696.  
  697. @Outline3@<:#241,9025>define FLW_NEW        61
  698.  
  699. @Outline3@<:#241,9025>define FLW_NEWPAGE    241
  700.  
  701. @Outline3@<:#241,9025>define FLW_ORGCHART    5202
  702.  
  703. @Outline3@<:#241,9025>define FLW_OUTLINER    230
  704.  
  705. @Outline3@<:#241,9025>define FLW_PAGESORTER    229
  706.  
  707. @Outline3@<:#241,9025>define FLW_PASTE        144
  708.  
  709. @Outline3@<:#241,9025>define FLW_REMOVEPAGE    242
  710.  
  711. @Outline3@<:#241,9025>define FLW_SCREENSHOWRUN    481
  712.  
  713. @Outline3@<:#241,9025>define FLW_SELECTNONE    166
  714.  
  715. @Outline3@<:#241,9025>define FLW_SELECTALL    165
  716.  
  717. @Outline3@<:#241,9025>define FLW_SPEAKERNOTES    253
  718.  
  719. @Outline2@<:#241,9025>'api defines
  720.  
  721. @Outline3@<:#241,9025>Define GW_CHILD        5
  722.  
  723. @Outline3@<:#241,9025>Define GW_HWNDNEXT    2
  724.  
  725. @Outline3@<:#241,9025>define PM_NOREMOVE    0x0000
  726.  
  727. @Outline3@<:#241,9025>Define WM_SETREDRAW            0x000B
  728.  
  729. @Outline3@<:#241,9025>define NO_DUPS    0
  730.  
  731. @Outline3@<:#241,9025>define SWP_NOMOVE        0x0002
  732.  
  733. @Outline3@<:#241,9025>define WM_COMMAND    0x0111
  734.  
  735. @Outline3@<:#241,9025>define WM_GETTEXT           0x000D
  736.  
  737. @Outline3@<:#241,9025>define MF_BYPOSITION    0x0400
  738.  
  739. @Function@<:#284,9025>function FLWbits()
  740.  
  741. @Outline2@<:#241,9025>onerror endit
  742.  
  743. @Outline2@<:#241,9025>oncancel endit
  744.  
  745. @Outline2@<:#241,9025>if GetOpenFileCount()  << 1
  746.  
  747. @Outline2@<:#241,9025>    exit function
  748.  
  749. @Outline2@<:#241,9025>endif
  750.  
  751. @Outline2@<:#241,9025>ignorekeyboard(2)
  752.  
  753. @Outline2@<:#241,9025>dim rect(4)
  754.  
  755. @Outline2@<:#241,9025>'hFLW = h_LoadLotusApp(appname, appmodule);
  756.  
  757. @Outline2@<:#241,9025>hFLW = h_RunningLotusApp(appname, appmodule);
  758.  
  759. @Outline2@<:#241,9025>if hFLW = 0
  760.  
  761. @Outline2@<:#241,9025>    return 0
  762.  
  763. @Outline2@<:#241,9025>endif
  764.  
  765. @Outline2@<:#241,9025>rmac=GetRunningMacroFile$()
  766.  
  767. @Outline2@<:#241,9025>'get handles to everything
  768.  
  769. @Outline3@<:#241,9025>hwndpro = findwindow("amiprownda", 0)
  770.  
  771. @Outline3@<:#241,9025>'hwndFLW = findwindow("flwapp", 0)
  772.  
  773. @Outline3@<:#241,9025>if isiconic(hFLW)
  774.  
  775. @Outline3@<:#241,9025>    appmaximize(apptitle)
  776.  
  777. @Outline3@<:#241,9025>endif
  778.  
  779. @Outline2@<:#241,9025>'do global var stuff
  780.  
  781. @Outline3@<:#241,9025>allocglobalvar("bits", 1)
  782.  
  783. @Outline3@<:#241,9025>setglobalvar("bits", 0)
  784.  
  785. @Outline3@<:#241,9025>allocglobalvar("framecount", 1)
  786.  
  787. @Outline3@<:#241,9025>setglobalvar("framecount", 0)
  788.  
  789. @Outline2@<:#241,9025>activateapp(apptitle)
  790.  
  791. @Outline2@<:#241,9025>appmaximize(apptitle)
  792.  
  793. @Outline2@<+@><:#241,9025>PostMessage(hFLW, WM_COMMAND, FLW_INBW, "")
  794.  
  795. @Outline2@<+@><:#241,9025>pause(002)
  796.  
  797. @Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9025>PostMessage(hFLW, WM_COMMAND, FLW_PAGESORTER, "")
  798.  
  799. @Outline2@<+@><:#241,9025>pause(002)
  800.  
  801. @Outline2@<:#241,9025>showwindow(hflw, 5)
  802.  
  803. @Outline2@<:#241,9025>showwindow(hwndpro, 0)
  804.  
  805. @Outline2@<:#241,9025>type ("<[>esc]<[>esc]<[>esc]")
  806.  
  807. @Outline2@<:#241,9025>newnow()
  808.  
  809. @Outline2@<:#241,9025>rmac = getrunningmacrofile$()
  810.  
  811. @Outline2@<:#241,9025>setdlgcallback(0, "{rmac}!initdlg")
  812.  
  813. @Outline2@<:#241,9025>setdlgcallback(71, "{rmac}!insertdata")
  814.  
  815. @Outline2@<:#241,9025>dialogbox(".", "box1")
  816.  
  817. @Outline2@<+@><:#241,9025>PostMessage(hFLW, WM_COMMAND, FLW_INCOLOR, "")
  818.  
  819. @Outline2@<:#241,9025>DlgKeyInterrupt(VK_F1, "{rmac}!helper")
  820.  
  821. @Outline2@<:#241,9025>box = dialogbox(".", "box2")
  822.  
  823. @Outline2@<:#241,9025>if box = 1
  824.  
  825. @Outline2@<:#241,9025>    showwindow(hwndpro, 5)
  826.  
  827. @Outline2@<:#241,9025>else
  828.  
  829. @Outline2@<:#241,9025>    showwindow(hwndpro, 5)
  830.  
  831. @Outline2@<:#241,9025>    activateapp(apptitle)
  832.  
  833. @Outline2@<:#241,9025>endif
  834.  
  835. @Outline2@<:#241,9025>freeglobals()
  836.  
  837. @Outline2@<:#241,9025>return 1
  838.  
  839. @Outline2@<:#241,9025>endit:
  840.  
  841. @Outline2@<:#241,9025>showwindow(hwndpro, 5)
  842.  
  843. @Outline2@<:#241,9025>activateapp(apptitle)
  844.  
  845. @Outline2@<:#241,9025>end function
  846.  
  847. @Function@<:#284,9025>function freeglobals()
  848.  
  849. @Outline2@<:#241,9025>freeglobalvar("framecount")
  850.  
  851. @Outline2@<:#241,9025>freeglobalvar("bits")
  852.  
  853. @Outline2@<:#241,9025>end function
  854.  
  855. @Function@<:#284,9025>function initdlg(hdlg, id, value)
  856.  
  857. @Outline2@<:#241,9025>dim rect(4)
  858.  
  859. @Outline2@<:#241,9025>GetWindowRect(hdlg, &rect)
  860.  
  861. @Outline2@<:#241,9025>x = rect(1)
  862.  
  863. @Outline2@<:#241,9025>y = rect(2)
  864.  
  865. @Outline2@<:#241,9025>cx = rect(3) - x
  866.  
  867. @Outline2@<:#241,9025>cy = rect(4) - y
  868.  
  869. @Outline2@<:#241,9025>setwindowpos(hdlg, -1, x, y, cx, cy, 0)
  870.  
  871. @Outline2@<:#241,9025>end function
  872.  
  873. @Function@<:#284,9025>function insertdata(hdlg, id, val)
  874.  
  875. @Outline2@<:#241,9025>activateapp(apptitle)
  876.  
  877. @Outline2@<:#241,9025>hwndflw = findwindow(appclass, 0)
  878.  
  879. @Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9025>PostMessage(hwndFLW, WM_COMMAND, FLW_PAGESORTER, "")
  880.  
  881. @Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9025>pause(002)
  882.  
  883. @Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9025>result=AppSendMessage(hwndflw, WM_COMMAND, FLW_COPY, "")
  884.  
  885. @Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9025>pause(002)
  886.  
  887. @Outline2@<:#241,9025>activateapp("")
  888.  
  889. @Outline2@<:#241,9025>if IsOKToRun(pastespecial) != 1
  890.  
  891. @Outline2@<:#241,9025>    msgbox(err_selectonlyoneslide)
  892.  
  893. @Outline2@<:#241,9025>    return 0
  894.  
  895. @Outline2@<:#241,9025>endif
  896.  
  897. @Outline2@<:#241,9025>if getmode() <<<;> 1
  898.  
  899. @Outline2@<:#241,9025>    layoutmode()
  900.  
  901. @Outline2@<:#241,9025>    if getmode() <<<;> 1
  902.  
  903. @Outline2@<:#241,9025>        return 0
  904.  
  905. @Outline2@<:#241,9025>    endif
  906.  
  907. @Outline2@<:#241,9025>endif
  908.  
  909. @Outline2@<:#241,9025>count = getglobalvar$("framecount")
  910.  
  911. @Outline2@<:#241,9025>count = count + 1
  912.  
  913. @Outline2@<:#241,9025>if count = 6
  914.  
  915. @Outline2@<:#241,9025>    PageBreak(1  )
  916.  
  917. @Outline2@<:#241,9025>    count = 1
  918.  
  919. @Outline2@<:#241,9025>endif
  920.  
  921. @Outline2@<+@><:#241,9025>'message("here")
  922.  
  923. @Outline2@<:#241,9025>setglobalvar("framecount", count)
  924.  
  925. @Outline2@<:#241,9025>'paste()
  926.  
  927. @Outline2@<:#241,9025>If IsOKToRun(PasteSpecial) != 1
  928.  
  929. @Outline2@<:#241,9025>    msgbox(err_maybenotinslidesorter)
  930.  
  931. @Outline2@<:#241,9025>    return 0
  932.  
  933. @Outline2@<:#241,9025>Endif
  934.  
  935. @Outline2@<:#241,9025>pastespecial(pasteformat)
  936.  
  937. @Outline2@<:#241,9025>modframe()
  938.  
  939. @Outline2@<:#241,9025>type("<[>esc]")
  940.  
  941. @Outline2@<:#241,9025>endit:
  942.  
  943. @Outline2@<:#241,9025>activateapp(apptitle)
  944.  
  945. @Outline2@<:#241,9025>END FUNCTION
  946.  
  947. @Function@<:#284,9025>function h_LoadLotusApp(name, module)
  948.  
  949. @Outline2@<:#241,9025>onerror endit
  950.  
  951. @Outline2@<:#241,9025>oncancel endit
  952.  
  953. @Outline2@<:#241,9025>hwnd =  findwindow(appclass, 0)
  954.  
  955. @Outline2@<:#241,9025>if hwnd = 0
  956.  
  957. @Outline2@<:#241,9025>    app = GetProfileString$(LotusAppSection, name, LotusIniFile)
  958.  
  959. @Outline2@<:#241,9025>    if app <<<;> ""
  960.  
  961. @Outline2@<:#241,9025>        offset1stspace=strchr(1, app, " ")
  962.  
  963. @Outline2@<:#241,9025>        app = strfield$(app, 1, " ")
  964.  
  965. @Outline2@<:#241,9025>        lotusappname=MID$(app, offset1stspace, len(app))    'DEZ
  966.  
  967. @Outline2@<:#241,9025>        'lotusappname = strfield$(app, 2, " ")
  968.  
  969. @Outline2@<:#241,9025>        if exec(app, "/q") << 32
  970.  
  971. @Outline2@<:#241,9025>            'MsgBox(err_cantlaunchapp)
  972.  
  973. @Outline2@<:#241,9025>            call salesmsgsmm(3)
  974.  
  975. @Outline2@<:#241,9025>            return 0
  976.  
  977. @Outline2@<:#241,9025>        endif
  978.  
  979. @Outline2@<:#241,9025>        pause(004)
  980.  
  981. @Outline2@<:#241,9025>    endif
  982.  
  983. @Outline2@<:#241,9025>    hwnd = findwindow(appclass, 0)
  984.  
  985. @Outline2@<:#241,9025>    if hwnd = 0
  986.  
  987. @Outline2@<:#241,9025>        call salesmsgsmm(3)
  988.  
  989. @Outline2@<:#241,9025>    endif
  990.  
  991. @Outline2@<:#241,9025>    return hwnd
  992.  
  993. @Outline2@<:#241,9025>endif
  994.  
  995. @Outline2@<:#241,9025>endit:
  996.  
  997. @Outline2@<:#241,9025>return hwnd
  998.  
  999. @Outline2@<:#241,9025>end function
  1000.  
  1001. @Function@<:I0,360,360,360><:S+-1><:#284,9025>function h_RunningLotusApp(name, module)
  1002.  
  1003. @Outline2@<:#241,9025>onerror endit
  1004.  
  1005. @Outline2@<:#241,9025>oncancel endit
  1006.  
  1007. @Outline2@<:#241,9025>hwnd =  findwindow(appclass, 0)
  1008.  
  1009. @Outline2@<:#241,9025>if hwnd = 0
  1010.  
  1011. @Outline2@<:#241,9025>    MsgBox(err_appmustberunning)
  1012.  
  1013. @Outline2@<:#241,9025>    app = GetProfileString$(LotusAppSection, name, LotusIniFile)
  1014.  
  1015. @Outline2@<:#241,9025>    if app = ""
  1016.  
  1017. @Outline2@<:#241,9025>        call salesmsgsmm(3)
  1018.  
  1019. @Outline2@<:#241,9025>    endif
  1020.  
  1021. @Outline2@<:#241,9025>    return 0
  1022.  
  1023. @Outline2@<:#241,9025>endif
  1024.  
  1025. @Outline2@<:#241,9025>isitopen=onmenu(FLW_WINDOWMENU, FLW_TILEITEM, 0)
  1026.  
  1027. @Outline2@<:#241,9025>if isitopen != FILE_ALREADYOPEN
  1028.  
  1029. @Outline2@<:#241,9025>    MsgBox(err_nofilesopen)
  1030.  
  1031. @Outline2@<:#241,9025>    return 0
  1032.  
  1033. @Outline2@<:#241,9025>endif
  1034.  
  1035. @Outline2@<:#241,9025>endit:
  1036.  
  1037. @Outline2@<:#241,9025>return hwnd
  1038.  
  1039. @Outline2@<:#241,9025>end function
  1040.  
  1041. @Function@<:I0,360,360,360><:S+-1><:#284,9025>function helper()
  1042.  
  1043. @Outline2@<:#241,9025>prohWnd = FindWindow("AmiProWndA", 0)
  1044.  
  1045. @Outline2@<:#241,9025>fullhelpfile = strcat$(GetAmiDirectory$(), helpfile)
  1046.  
  1047. @Outline2@<:#241,9025>WinHelp (prohWnd, fullhelpfile, HELP_CONTEXT, helpnum)    
  1048.  
  1049. @Outline2@<:#241,9025>end function
  1050.  
  1051. @Function@<:#284,9025>DIALOG    box1
  1052.  
  1053. <:#241,9025>-2134376448    9    170    210    185    38    ""    ""    "Collect & Copy"
  1054.  
  1055. <:#241,9025>FONT    8    "Helv"
  1056.  
  1057. <:#241,9025>118    3    63    14    71    1342373889    "button"    "&Copy to Ami Pro"    0 
  1058.  
  1059. <:#241,9025>118    19    63    14    2    1342373888    "button"    "Done"    0 
  1060.  
  1061. <:#241,9025>10    2    87    10    1000    1342177280    "static"    "Select the slide you want"    0 
  1062.  
  1063. <:#241,9025>10    9    95    10    1001    1342177280    "static"    "to include in your document."    0 
  1064.  
  1065. <:#241,9025>10    18    81    10    1002    1342177280    "static"    "Choose Copy to Ami Pro."    0 
  1066.  
  1067. <:#241,9025>10    27    103    10    1003    1342177280    "static"    "Repeat these steps if desired."    0 
  1068.  
  1069. <:#241,9025>2    2    6    10    1004    1342177280    "static"    "1."    0 
  1070.  
  1071. <:#241,9025>2    18    6    10    1005    1342177280    "static"    "2."    0 
  1072.  
  1073. <:#241,9025>2    27    6    10    1006    1342177280    "static"    "3."    0 
  1074.  
  1075. <:#241,9025>END DIALOG
  1076.  
  1077. <:#241,9025>
  1078.  
  1079. <:#241,9025>
  1080.  
  1081. @Function@<:#284,9025>DIALOG    box2
  1082.  
  1083. <:#241,9025>-2134376448    9    90    50    200    67    ""    "AmiDialog"    "Collect & Copy"
  1084.  
  1085. <:#241,9025>FONT    8    "Helv"
  1086.  
  1087. <:#241,9025>126    3    68    14    1    1342373889    "button"    "&Switch to Ami Pro"    0 
  1088.  
  1089. <:#241,9025>126    19    68    14    2    1342373888    "button"    "Done"    0 
  1090.  
  1091. <:#482,9025>3    2    117    10    1000    1342177280    "static"    "You have selected some data to be"    0 
  1092.  
  1093. <:#482,9025>3    10    117    10    1007    1342177280    "static"    "included in an Ami Pro document."    0 
  1094.  
  1095. <:#241,9025>3    18    117    10    1008    1342177280    "static"    ""    0 
  1096.  
  1097. <:#241,9025>3    26    117    10    1009    1342177280    "static"    ""    0 
  1098.  
  1099. <:#482,9025>3    38    117    10    1010    1342177280    "static"    "You may now continue to work in"    0 
  1100.  
  1101. <:#482,9025>3    46    117    10    1011    1342177280    "static"    "Freelance, or you may switch to Ami Pro"    0 
  1102.  
  1103. <:#482,9025>3    54    117    10    1012    1342177280    "static"    "to arrange or format your document."    0 
  1104.  
  1105. <:#241,9025>END DIALOG
  1106.  
  1107. <:#241,9025>
  1108.  
  1109. @Function@<:#284,9025>FUNCTION newnow()
  1110.  
  1111. @Outline3@<:#241,9025>'defstyle=getprofilestring$("AmiPro", "defstyle", "AMIPRO.INI")
  1112.  
  1113. <:#241,9025>'New(defstyle  1 1024  )
  1114.  
  1115. <:#241,9025>fullpageview()
  1116.  
  1117. <:#241,9025>setpagelayout()
  1118.  
  1119. <:#241,9025>END FUNCTION
  1120.  
  1121. <:#241,9025>
  1122.  
  1123. <:#241,9025>
  1124.  
  1125. @Function@<:#284,9025>FUNCTION modframe()
  1126.  
  1127. <:#241,9025>count = getglobalvar$("framecount")
  1128.  
  1129. <:#241,9025>defstr width, length, left, top, leftx, leftmarg, topmarg, rightmarg, bottommarg, units;
  1130.  
  1131. <:#482,9025>getcurframeborders(&width, &length, &top, &leftx, &leftmarg, &topmarg, &rightmarg, &bottommarg, &units)
  1132.  
  1133. <:#241,9025>'top = count * 1.60 * 1440    'decimal-separator independent
  1134.  
  1135. <:#241,9025>top = count * (16/10) * 1440
  1136.  
  1137. <:#241,9025>'GraphicsScaling(2 100 1 "1.80"  "1.34"  0  )
  1138.  
  1139. <:#241,9025>'GraphicsScaling(2 100 1 "(18/10)"  "(134/100)"  0  )    'decimal-separator independent
  1140.  
  1141. <:#241,9025>GraphicsScaling(2 100 CurUnits ""  ""  0  )    'decimal-separator independent
  1142.  
  1143. <:#241,9025>FrameModInit( )
  1144.  
  1145. <:#241,9025>FrameModLines(1 2 1 12763842 16777215 12763842 0 0 57 57  )
  1146.  
  1147. <:#241,9025>FrameModType(536936640 0 ""   )
  1148.  
  1149. <:#241,9025>FrameModBorders(2664 2001 4608 1440 0 0 0 0 1  )
  1150.  
  1151. <:#241,9025>FrameModBorders(2666, 2000, top, leftx, leftmarg, topmarg, rightmarg, bottommarg, units)
  1152.  
  1153. <:#241,9025>FrameModFinish( )
  1154.  
  1155. <:#241,9025>END FUNCTION
  1156.  
  1157. @Function@<:#284,9025>function setpagelayout()
  1158.  
  1159. @Outline2@<:#241,9025>ModLayoutInit(512  )
  1160.  
  1161. @Outline2@<:#482,9025>'ModLayoutRightPage(1440 1440 1440 1440 1 0 1 1440 10465 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640  )
  1162.  
  1163. @Outline2@<:#241,9025>'ModLayoutRightLines(0 1 0 1 2  )
  1164.  
  1165. @Outline2@<:#241,9025>country = GetProfileString$("intl", "sCountry")
  1166.  
  1167. @Outline2@<:#241,9025>if country <<<;> "United States" and country <<<;> "Canada"
  1168.  
  1169. @Outline2@<:#241,9025>    ModLayoutPageSize(16833 11908 CurUnits 4  ) ' A4
  1170.  
  1171. @Outline2@<:#241,9025>else
  1172.  
  1173. @Outline2@<:#241,9025>    ModLayoutPageSize(15840 12240 CurUnits 1  ) ' Letter
  1174.  
  1175. @Outline2@<:#241,9025>endif
  1176.  
  1177. @Outline2@<:#241,9025>'ModLayoutRightHeader(1440 792 1440 72 1 0 1 1440 10465 2 2 4680 3 9360  )
  1178.  
  1179. @Outline2@<:#241,9025>'ModLayoutRightFooter(1440 72 1440 792 1 0 1 1440 10465 2 2 4680 3 9360  )
  1180.  
  1181. @Outline2@<:#241,9025>ModLayoutFinish( )
  1182.  
  1183. @Outline2@<:#241,9025>END FUNCTION
  1184.  
  1185. @Function@<:#284,9025>function onmenu(menu, item, casc)
  1186.  
  1187. @Outline2@<:#241,9025>isthistheone=0
  1188.  
  1189. @Outline2@<:#241,9025>defstr menuitemnum;
  1190.  
  1191. @Outline2@<:#241,9025>defstr cascmenuitemnum;
  1192.  
  1193. @Outline2@<:#241,9025>hwnd=findwindow(appclass, 0)
  1194.  
  1195. @Outline2@<:#241,9025>hmenubar=GetMenu(hwnd)
  1196.  
  1197. @Outline2@<:#241,9025>'get handle to menu
  1198.  
  1199. @Outline3@<:#241,9025>nummenus=getmenuitemcount(hmenubar)
  1200.  
  1201. @Outline3@<:#241,9025>if nummenus << 1
  1202.  
  1203. @Outline3@<:#241,9025>    msgbox(err_cantfindmenubar)
  1204.  
  1205. @Outline3@<:#241,9025>    goto out
  1206.  
  1207. @Outline3@<:#241,9025>endif
  1208.  
  1209. @Outline3@<:#241,9025>for i = 0 to nummenus - 1
  1210.  
  1211. @Outline3@<:#241,9025>    GetMenuString(hmenubar, i, &isthistheone,  25, MF_BYPOSITION)
  1212.  
  1213. @Outline3@<:#241,9025>    menulen=len(menu)
  1214.  
  1215. @Outline3@<:#241,9025>    if ucase$(left$(isthistheone, menulen)) = ucase$(left$(menu, menulen))
  1216.  
  1217. @Outline3@<:#241,9025>        menunum=i
  1218.  
  1219. @Outline3@<:#241,9025>    endif
  1220.  
  1221. @Outline3@<:#241,9025>next
  1222.  
  1223. @Outline3@<:#241,9025>hmenu=getsubmenu(hmenubar, menunum)
  1224.  
  1225. @Outline2@<:#241,9025>'get position or handle of item
  1226.  
  1227. @Outline3@<:#241,9025>'get position of item
  1228.  
  1229. @Outline4@<:#241,9025>    extra = 0
  1230.  
  1231. @Outline4@<:#241,9025>    menuitemnum = 0
  1232.  
  1233. @Outline4@<:#241,9025>    cascmenuitemnum = 0
  1234.  
  1235. @Outline4@<:#241,9025>    nummenuitems=getmenuitemcount(hmenu)
  1236.  
  1237. @Outline4@<:#241,9025>    if nummenuitems << 1
  1238.  
  1239. @Outline4@<:#241,9025>        msgbox(err_cantfindmenu)
  1240.  
  1241. @Outline4@<:#241,9025>        goto out
  1242.  
  1243. @Outline4@<:#241,9025>    endif
  1244.  
  1245. @Outline4@<:#241,9025>    for i= 0 to (nummenuitems - 1)
  1246.  
  1247. @Outline4@<:#241,9025>        GetMenuString(hmenu, i, &isthistheone,  25, MF_BYPOSITION)
  1248.  
  1249. @Outline4@<:#241,9025>        itemlen=len(item)
  1250.  
  1251. @Outline4@<:#241,9025>        length=len(isthistheone)
  1252.  
  1253. @Outline4@<:#241,9025>        if length << 1 and menuitemnum = 0
  1254.  
  1255. @Outline4@<:#241,9025>            extra=extra + 1
  1256.  
  1257. @Outline4@<:#241,9025>        endif
  1258.  
  1259. @Outline4@<:#241,9025>        text=ucase$(isthistheone)
  1260.  
  1261. @Outline4@<:#241,9025>        pattern=ucase$(item)
  1262.  
  1263. @Outline4@<:#241,9025>        'if ucase$(left$(item, itemlen)) = ucase$(left$(isthistheone, itemlen))
  1264.  
  1265. @Outline4@<:#241,9025>        if Instr(1, Text, Pattern) != 0
  1266.  
  1267. @Outline4@<:#241,9025>            return FILE_ALREADYOPEN
  1268.  
  1269. @Outline4@<:#241,9025>            menuitemnum=i
  1270.  
  1271. @Outline4@<:#241,9025>            break
  1272.  
  1273. @Outline4@<:#241,9025>        endif
  1274.  
  1275. @Outline4@<:#241,9025>    next
  1276.  
  1277. @Outline4@<:#241,9025>    'couldn't find it
  1278.  
  1279. @Outline4@<:#241,9025>    return FILE_NOTOPEN
  1280.  
  1281. @Outline4@<:#241,9025>    menuitemnum=menuitemnum - extra
  1282.  
  1283. @Outline3@<:#241,9025>'get handle to casc menu
  1284.  
  1285. @Outline4@<:#241,9025>numcascmenus=getmenuitemcount(hmenu)
  1286.  
  1287. @Outline4@<:#241,9025>if numcascmenus << 1
  1288.  
  1289. @Outline4@<:#241,9025>    goto out
  1290.  
  1291. @Outline4@<:#241,9025>endif
  1292.  
  1293. @Outline4@<:#241,9025>for i = 0 to numcascmenus - 1
  1294.  
  1295. @Outline4@<:#241,9025>    GetMenuString(hmenu, i, &isthistheone,  25, MF_BYPOSITION)
  1296.  
  1297. @Outline4@<:#241,9025>    cascmenulen=len(item)
  1298.  
  1299. @Outline4@<:#241,9025>    if ucase$(left$(isthistheone, cascmenulen)) = ucase$(left$(item, cascmenulen))
  1300.  
  1301. @Outline4@<:#241,9025>        cascmenunum=i
  1302.  
  1303. @Outline4@<:#241,9025>    endif
  1304.  
  1305. @Outline4@<:#241,9025>next
  1306.  
  1307. @Outline4@<:#241,9025>hcascmenu=getsubmenu(hmenu, cascmenunum)
  1308.  
  1309. @Outline3@<:#241,9025>'get position of casc item
  1310.  
  1311. @Outline4@<:#241,9025>    extra = 0
  1312.  
  1313. @Outline4@<:#241,9025>    numcascmenuitems=getmenuitemcount(hcascmenu)
  1314.  
  1315. @Outline4@<:#241,9025>    if numcascmenuitems << 1
  1316.  
  1317. @Outline4@<:#241,9025>        goto out
  1318.  
  1319. @Outline4@<:#241,9025>    endif
  1320.  
  1321. @Outline4@<:#241,9025>    for i= 0 to (numcascmenuitems - 1)
  1322.  
  1323. @Outline4@<:#241,9025>        GetMenuString(hcascmenu, i, &isthistheone,  25, MF_BYPOSITION)
  1324.  
  1325. @Outline4@<:#241,9025>        cascitemlen=len(casc)
  1326.  
  1327. @Outline4@<:#241,9025>        length=len(isthistheone)
  1328.  
  1329. @Outline4@<:#241,9025>        if length << 1 and cascmenuitemnum = 0
  1330.  
  1331. @Outline4@<:#241,9025>            extra=extra + 1
  1332.  
  1333. @Outline4@<:#241,9025>        endif
  1334.  
  1335. @Outline4@<:#241,9025>        if ucase$(left$(casc, cascitemlen)) = ucase$(left$(isthistheone, cascitemlen))
  1336.  
  1337. @Outline4@<:#241,9025>            cascmenuitemnum=i
  1338.  
  1339. @Outline4@<:#241,9025>            break
  1340.  
  1341. @Outline4@<:#241,9025>        endif
  1342.  
  1343. @Outline4@<:#241,9025>    next
  1344.  
  1345. @Outline4@<:#241,9025>    cascmenuitemnum=cascmenuitemnum - extra
  1346.  
  1347. @Outline2@<:#241,9025>'return numbers
  1348.  
  1349. @Outline3@<:#241,9025>out:
  1350.  
  1351. @Outline3@<:#241,9025>getdist=strcat$(menuitemnum, ", ", cascmenuitemnum, ",",  casc)
  1352.  
  1353. @Outline3@<:#241,9025>hourglass(0)
  1354.  
  1355. @Outline2@<:#241,9025>end function<:>
  1356.  
  1357. >
  1358.  
  1359. [Embedded]
  1360. 00027125
  1361. >
  1362. [macsum] 13
  1363. FLWbits 0 0 6 105
  1364. freeglobals 1127 0 1 159
  1365. initdlg 1189 3 6 163
  1366. insertdata 1424 3 4 172
  1367. h_LoadLotusApp 2176 2 5 209
  1368. h_RunningLotusApp 2724 2 4 236
  1369. helper 3254 0 3 256
  1370. box1 3421 0 -1 261
  1371. box2 4020 0 -1 276
  1372. newnow 4692 0 1 290
  1373. modframe 4742 0 12 298
  1374. setpagelayout 5098 0 2 314
  1375. onmenu 5318 3 24 328
  1376. [macse]
  1377. 14 FLWbits
  1378. 20 00001051
  1379. 19 00001051
  1380. 0 1050
  1381. 13
  1382. 5 1
  1383. 18 5
  1384. 11 00000086
  1385. 6 0
  1386. 15
  1387. 9
  1388. 0 32 2
  1389. 5 4
  1390. 21 1 [X]
  1391. 16 h_RunningLotusApp "FLW" "FLWMAIN"
  1392. 13
  1393. 8 2
  1394. 6 2
  1395. 5 0
  1396. 18 0
  1397. 11 00000197
  1398. 5 0
  1399. 15
  1400. 9
  1401. 0 802
  1402. 13
  1403. 8 3
  1404. 0 284 "user,FindWindow,HCC" "amiprownda" 0
  1405. 13
  1406. 8 4
  1407. 0 284 "user,IsIconic,HH" "{2}"
  1408. 13
  1409. 11 00000344
  1410. 0 1029 "Freelance Graphics"
  1411. 0 271 "bits" 1
  1412. 0 264 "bits" 0
  1413. 0 271 "framecount" 1
  1414. 0 264 "framecount" 0
  1415. 0 38 "Freelance Graphics"
  1416. 0 1029 "Freelance Graphics"
  1417. 0 284 "User,PostMessage,HHHHJ" "{2}" 273 269 ""
  1418. 0 274 002
  1419. 0 284 "User,PostMessage,HHHHJ" "{2}" 273 229 ""
  1420. 0 274 002
  1421. 0 284 "user,ShowWindow,HHH" "{2}" 5
  1422. 0 284 "user,ShowWindow,HHH" "{4}" 0
  1423. 0 6 "[27][27][27]"
  1424. 16 newnow
  1425. 0 802
  1426. 13
  1427. 8 3
  1428. 0 41 0 "{3}!initdlg"
  1429. 0 41 71 "{3}!insertdata"
  1430. 0 26 "." "box1"
  1431. 0 284 "User,PostMessage,HHHHJ" "{2}" 273 270 ""
  1432. 0 47 112 "{3}!helper"
  1433. 0 26 "." "box2"
  1434. 13
  1435. 8 5
  1436. 6 5
  1437. 5 1
  1438. 18 0
  1439. 11 00000959
  1440. 0 284 "user,ShowWindow,HHH" "{4}" 5
  1441. 10 00001023
  1442. 0 284 "user,ShowWindow,HHH" "{4}" 5
  1443. 0 38 "Freelance Graphics"
  1444. 16 freeglobals
  1445. 5 1
  1446. 15
  1447. 9
  1448. 0 284 "user,ShowWindow,HHH" "{4}" 5
  1449. 0 38 "Freelance Graphics"
  1450. 6 0
  1451. 15
  1452. 9
  1453. 14 freeglobals
  1454. 0 266 "framecount"
  1455. 0 266 "bits"
  1456. 6 0
  1457. 15
  1458. 9
  1459. 14 initdlg
  1460. 5 4
  1461. 21 4 [X]
  1462. 0 284 "user,GetWindowRect,HHN" "{0}" &4
  1463. 5 1
  1464. 22 4
  1465. 8 5
  1466. 5 2
  1467. 22 4
  1468. 8 6
  1469. 5 3
  1470. 22 4
  1471. 6 5
  1472. 3 1
  1473. 8 7
  1474. 5 4
  1475. 22 4
  1476. 6 6
  1477. 3 1
  1478. 8 8
  1479. 0 284 "user,SetWindowPos,HHHHHHHI" "{0}" -1 "{5}" "{6}" "{7}" "{8}" 0
  1480. 6 3
  1481. 15
  1482. 9
  1483. 14 insertdata
  1484. 0 38 "Freelance Graphics"
  1485. 0 284 "user,FindWindow,HCC" "flwapp" 0
  1486. 13
  1487. 8 4
  1488. 0 284 "User,PostMessage,HHHHJ" "{4}" 273 229 ""
  1489. 0 274 002
  1490. 0 1036 "{4}" 273 142 ""
  1491. 13
  1492. 8 5
  1493. 0 274 002
  1494. 0 38 ""
  1495. 0 1313 217 24 588
  1496. 13
  1497. 5 1
  1498. 18 1
  1499. 11 00000326
  1500. 0 3 "Please select a single slide." "Ami Pro Collect & Copy"
  1501. 5 0
  1502. 15
  1503. 9
  1504. 0 29
  1505. 13
  1506. 5 1
  1507. 18 1
  1508. 11 00000415
  1509. 2 210 1
  1510. 0 29
  1511. 13
  1512. 5 1
  1513. 18 1
  1514. 11 00000415
  1515. 5 0
  1516. 15
  1517. 9
  1518. 0 265 "framecount"
  1519. 13
  1520. 8 6
  1521. 6 6
  1522. 5 1
  1523. 3 0
  1524. 8 6
  1525. 6 6
  1526. 5 6
  1527. 18 0
  1528. 11 00000514
  1529. 2 357 1 1
  1530. 5 1
  1531. 8 6
  1532. 0 264 "framecount" "{6}"
  1533. 0 1313 217 24 588
  1534. 13
  1535. 5 1
  1536. 18 1
  1537. 11 00000660
  1538. 0 3 "Cannot paste from this view." "Ami Pro Collect & Copy"
  1539. 5 0
  1540. 15
  1541. 9
  1542. 2 588 1 "Windows Metafile"
  1543. 16 modframe
  1544. 0 6 "[27]"
  1545. 0 38 "Freelance Graphics"
  1546. 6 3
  1547. 15
  1548. 9
  1549. 14 h_LoadLotusApp
  1550. 20 00000524
  1551. 19 00000524
  1552. 0 284 "user,FindWindow,HCC" "flwapp" 0
  1553. 13
  1554. 8 3
  1555. 6 3
  1556. 5 0
  1557. 18 0
  1558. 11 00000524
  1559. 0 286 "Lotus Applications" "{0}" "lotus.ini"
  1560. 13
  1561. 8 4
  1562. 6 4
  1563. 7 ""
  1564. 18 1
  1565. 11 00000406
  1566. 0 13 1 "{4}" " "
  1567. 13
  1568. 8 5
  1569. 0 20 "{4}" 1 " "
  1570. 13
  1571. 8 4
  1572. 0 14 "{4}"
  1573. 13
  1574. 0 15 "{4}" "{5}" [X]
  1575. 13
  1576. 8 6
  1577. 0 22 "{4}" "/q"
  1578. 13
  1579. 5 32
  1580. 18 5
  1581. 11 00000395
  1582. 16 lotuspal.smm!salesmsg 3
  1583. 5 0
  1584. 15
  1585. 9
  1586. 0 274 004
  1587. 0 284 "user,FindWindow,HCC" "flwapp" 0
  1588. 13
  1589. 8 3
  1590. 6 3
  1591. 5 0
  1592. 18 0
  1593. 11 00000512
  1594. 16 lotuspal.smm!salesmsg 3
  1595. 6 3
  1596. 15
  1597. 9
  1598. 6 3
  1599. 15
  1600. 9
  1601. 6 2
  1602. 15
  1603. 9
  1604. 14 h_RunningLotusApp
  1605. 20 00000506
  1606. 19 00000506
  1607. 0 284 "user,FindWindow,HCC" "flwapp" 0
  1608. 13
  1609. 8 3
  1610. 6 3
  1611. 5 0
  1612. 18 0
  1613. 11 00000334
  1614. 0 3 "Freelance must be running to use Collect and Copy." "Ami Pro Collect & Copy"
  1615. 0 286 "Lotus Applications" "{0}" "lotus.ini"
  1616. 13
  1617. 8 4
  1618. 6 4
  1619. 7 ""
  1620. 18 0
  1621. 11 00000322
  1622. 16 lotuspal.smm!salesmsg 3
  1623. 5 0
  1624. 15
  1625. 9
  1626. 16 onmenu "&Window" "&Tile" 0
  1627. 13
  1628. 8 5
  1629. 6 5
  1630. 5 1
  1631. 18 1
  1632. 11 00000506
  1633. 0 3 "You must have a presentation open to use Collect and Copy." "Ami Pro Collect & Copy"
  1634. 5 0
  1635. 15
  1636. 9
  1637. 6 3
  1638. 15
  1639. 9
  1640. 6 2
  1641. 15
  1642. 9
  1643. 14 helper
  1644. 0 284 "user,FindWindow,HCC" "AmiProWndA" 0
  1645. 13
  1646. 8 1
  1647. 0 798
  1648. 13
  1649. 0 16 [X] "HELPPACK.HLP"
  1650. 13
  1651. 8 2
  1652. 0 284 "user,WinHelp,HHCHJ" "{1}" "{2}" 1 110
  1653. 6 0
  1654. 15
  1655. 9
  1656. DIALOG box1
  1657. -2134376448 9 170 210 185 38 "" "" "Collect & Copy" 
  1658. FONT 8 "Helv" 
  1659. 118 3 63 14 71 1342373889 "button" "&Copy to Ami Pro" 0 
  1660. 118 19 63 14 2 1342373888 "button" "Done" 0 
  1661. 10 2 87 10 1000 1342177280 "static" "Select the slide you want" 0 
  1662. 10 9 95 10 1001 1342177280 "static" "to include in your document." 0 
  1663. 10 18 81 10 1002 1342177280 "static" "Choose Copy to Ami Pro." 0 
  1664. 10 27 103 10 1003 1342177280 "static" "Repeat these steps if desired." 0 
  1665. 2 2 6 10 1004 1342177280 "static" "1." 0 
  1666. 2 18 6 10 1005 1342177280 "static" "2." 0 
  1667. 2 27 6 10 1006 1342177280 "static" "3." 0 
  1668. DIALOG box2
  1669. -2134376448 9 90 50 200 67 "" "AmiDialog" "Collect & Copy" 
  1670. FONT 8 "Helv" 
  1671. 126 3 68 14 1 1342373889 "button" "&Switch to Ami Pro" 0 
  1672. 126 19 68 14 2 1342373888 "button" "Done" 0 
  1673. 3 2 117 10 1000 1342177280 "static" "You have selected some data to be" 0 
  1674. 3 10 117 10 1007 1342177280 "static" "included in an Ami Pro document." 0 
  1675. 3 18 117 10 1008 1342177280 "static" "" 0 
  1676. 3 26 117 10 1009 1342177280 "static" "" 0 
  1677. 3 38 117 10 1010 1342177280 "static" "You may now continue to work in" 0 
  1678. 3 46 117 10 1011 1342177280 "static" "Freelance, or you may switch to Ami Pro" 0 
  1679. 3 54 117 10 1012 1342177280 "static" "to arrange or format your document." 0 
  1680. 14 newnow
  1681. 2 201 1
  1682. 16 setpagelayout
  1683. 6 0
  1684. 15
  1685. 9
  1686. 14 modframe
  1687. 0 265 "framecount"
  1688. 13
  1689. 8 1
  1690. 0 795 &2 &3 &5 &6 &7 &8 &9 &10 &11
  1691. 6 1
  1692. 5 16
  1693. 5 10
  1694. 4 1
  1695. 4 0
  1696. 5 1440
  1697. 4 0
  1698. 8 5
  1699. 2 403 1 2 100 1 "" "" 0
  1700. 2 421 1
  1701. 2 416 1 1 2 1 12763842 16777215 12763842 0 0 57 57
  1702. 2 417 1 536936640 0 ""
  1703. 2 418 1 2664 2001 4608 1440 0 0 0 0 1
  1704. 2 418 1 2666 2000 "{5}" "{6}" "{7}" "{8}" "{9}" "{10}" "{11}"
  1705. 2 420 1
  1706. 6 0
  1707. 15
  1708. 9
  1709. 14 setpagelayout
  1710. 2 361 1 512
  1711. 0 286 "intl" "sCountry"
  1712. 13
  1713. 8 1
  1714. 6 1
  1715. 7 "United States"
  1716. 18 1
  1717. 6 1
  1718. 7 "Canada"
  1719. 18 1
  1720. 1 1
  1721. 11 00000174
  1722. 2 362 1 16833 11908 1 4
  1723. 10 00000199
  1724. 2 362 1 15840 12240 1 1
  1725. 2 376 1
  1726. 6 0
  1727. 15
  1728. 9
  1729. 14 onmenu
  1730. 5 0
  1731. 8 4
  1732. 0 284 "user,FindWindow,HCC" "flwapp" 0
  1733. 13
  1734. 8 7
  1735. 0 284 "user,GetMenu,HH" "{7}"
  1736. 13
  1737. 8 8
  1738. 0 284 "user,GetMenuItemCount,HH" "{8}"
  1739. 13
  1740. 8 9
  1741. 6 9
  1742. 5 1
  1743. 18 5
  1744. 11 00000261
  1745. 0 3 "Cannot locate the menu bar." "Ami Pro Collect & Copy"
  1746. 10 00002241
  1747. 5 0
  1748. 8 10
  1749. 6 9
  1750. 5 1
  1751. 3 1
  1752. 6 10
  1753. 18 2
  1754. 12 00000360
  1755. 10 00000561
  1756. 5 1
  1757. 6 10
  1758. 3 0
  1759. 8 10
  1760. 10 00000272
  1761. 0 284 "user,GetMenuString,HHHFHH" "{8}" "{10}" &4 25 1024
  1762. 0 14 "{0}"
  1763. 13
  1764. 8 11
  1765. 0 806 "{4}" "{11}"
  1766. 13
  1767. 0 18 [X]
  1768. 13
  1769. 0 806 "{0}" "{11}"
  1770. 13
  1771. 0 18 [X]
  1772. 13
  1773. 18 0
  1774. 11 00000548
  1775. 6 10
  1776. 8 12
  1777. 10 00000325
  1778. 0 284 "user,GetSubMenu,HHH" "{8}" "{12}"
  1779. 13
  1780. 8 13
  1781. 5 0
  1782. 8 14
  1783. 5 0
  1784. 8 5
  1785. 5 0
  1786. 8 6
  1787. 0 284 "user,GetMenuItemCount,HH" "{13}"
  1788. 13
  1789. 8 15
  1790. 6 15
  1791. 5 1
  1792. 18 5
  1793. 11 00000802
  1794. 0 3 "Cannot locate the correct menu." "Ami Pro Collect & Copy"
  1795. 10 00002241
  1796. 5 0
  1797. 8 10
  1798. 6 15
  1799. 5 1
  1800. 3 1
  1801. 6 10
  1802. 18 2
  1803. 12 00000902
  1804. 10 00001223
  1805. 5 1
  1806. 6 10
  1807. 3 0
  1808. 8 10
  1809. 10 00000813
  1810. 0 284 "user,GetMenuString,HHHFHH" "{13}" "{10}" &4 25 1024
  1811. 0 14 "{1}"
  1812. 13
  1813. 8 16
  1814. 0 14 "{4}"
  1815. 13
  1816. 8 17
  1817. 6 17
  1818. 5 1
  1819. 18 5
  1820. 6 5
  1821. 5 0
  1822. 18 0
  1823. 1 1
  1824. 11 00001079
  1825. 6 14
  1826. 5 1
  1827. 3 0
  1828. 8 14
  1829. 0 18 "{4}"
  1830. 13
  1831. 8 18
  1832. 0 18 "{1}"
  1833. 13
  1834. 8 19
  1835. 0 808 1 "{18}" "{19}"
  1836. 13
  1837. 5 0
  1838. 18 1
  1839. 11 00001210
  1840. 5 1
  1841. 15
  1842. 9
  1843. 6 10
  1844. 8 5
  1845. 10 00001223
  1846. 10 00000867
  1847. 5 -1
  1848. 15
  1849. 9
  1850. 6 5
  1851. 6 14
  1852. 3 1
  1853. 8 5
  1854. 0 284 "user,GetMenuItemCount,HH" "{13}"
  1855. 13
  1856. 8 20
  1857. 6 20
  1858. 5 1
  1859. 18 5
  1860. 11 00001351
  1861. 10 00002241
  1862. 5 0
  1863. 8 10
  1864. 6 20
  1865. 5 1
  1866. 3 1
  1867. 6 10
  1868. 18 2
  1869. 12 00001451
  1870. 10 00001653
  1871. 5 1
  1872. 6 10
  1873. 3 0
  1874. 8 10
  1875. 10 00001362
  1876. 0 284 "user,GetMenuString,HHHFHH" "{13}" "{10}" &4 25 1024
  1877. 0 14 "{1}"
  1878. 13
  1879. 8 21
  1880. 0 806 "{4}" "{21}"
  1881. 13
  1882. 0 18 [X]
  1883. 13
  1884. 0 806 "{1}" "{21}"
  1885. 13
  1886. 0 18 [X]
  1887. 13
  1888. 18 0
  1889. 11 00001640
  1890. 6 10
  1891. 8 22
  1892. 10 00001416
  1893. 0 284 "user,GetSubMenu,HHH" "{13}" "{22}"
  1894. 13
  1895. 8 23
  1896. 5 0
  1897. 8 14
  1898. 0 284 "user,GetMenuItemCount,HH" "{23}"
  1899. 13
  1900. 8 24
  1901. 6 24
  1902. 5 1
  1903. 18 5
  1904. 11 00001811
  1905. 10 00002241
  1906. 5 0
  1907. 8 10
  1908. 6 24
  1909. 5 1
  1910. 3 1
  1911. 6 10
  1912. 18 2
  1913. 12 00001911
  1914. 10 00002220
  1915. 5 1
  1916. 6 10
  1917. 3 0
  1918. 8 10
  1919. 10 00001822
  1920. 0 284 "user,GetMenuString,HHHFHH" "{23}" "{10}" &4 25 1024
  1921. 0 14 "{2}"
  1922. 13
  1923. 8 25
  1924. 0 14 "{4}"
  1925. 13
  1926. 8 17
  1927. 6 17
  1928. 5 1
  1929. 18 5
  1930. 6 6
  1931. 5 0
  1932. 18 0
  1933. 1 1
  1934. 11 00002088
  1935. 6 14
  1936. 5 1
  1937. 3 0
  1938. 8 14
  1939. 0 806 "{2}" "{25}"
  1940. 13
  1941. 0 18 [X]
  1942. 13
  1943. 0 806 "{4}" "{25}"
  1944. 13
  1945. 0 18 [X]
  1946. 13
  1947. 18 0
  1948. 11 00002207
  1949. 6 10
  1950. 8 6
  1951. 10 00002220
  1952. 10 00001876
  1953. 6 6
  1954. 6 14
  1955. 3 1
  1956. 8 6
  1957. 0 16 "{5}" ", " "{6}" "," "{2}"
  1958. 13
  1959. 8 26
  1960. 0 296 0
  1961. 6 3
  1962. 15
  1963. 9
  1964. 00027150
  1965.