home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS009.DSK / FLWSHOW.SMM < prev    next >
INI File  |  1993-06-25  |  20KB  |  1,342 lines

  1. [ver]
  2.     4
  3. [sty]
  4.     _default.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     HP LaserJet III
  13. [port]
  14.     LPT2:
  15. [lang]
  16.     1
  17. [desc]
  18.     Prepare Freelance screen show from Ami Pro outline
  19.     
  20.     
  21.     
  22.     DEZ
  23.     741034420
  24.     39
  25.     680497042
  26.     1753
  27.     5
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     ZED
  35.     
  36.     
  37.     
  38.     0
  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.         49152
  63.     [algn]
  64.         1
  65.         1
  66.         0
  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.         0
  99.         0
  100.         0
  101.     [nfmt]
  102.         280
  103.         1
  104.         2
  105.         .
  106.         ,
  107.         $
  108.     Body Text
  109.     0
  110.     0
  111. [tag]
  112.     Subhead
  113.     7
  114.     [fnt]
  115.         Times New Roman
  116.         200
  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.         72
  130.         72
  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.         272
  159.         1
  160.         2
  161.         .
  162.         ,
  163.         $
  164.     Subhead
  165.     0
  166.     0
  167. [tag]
  168.     Title
  169.     8
  170.     [fnt]
  171.         Arial
  172.         240
  173.         0
  174.         16385
  175.     [algn]
  176.         4
  177.         1
  178.         0
  179.         0
  180.         0
  181.     [spc]
  182.         33
  183.         446
  184.         1
  185.         144
  186.         72
  187.         1
  188.         100
  189.     [brk]
  190.         16
  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.         0
  205.         
  206.         0
  207.         1
  208.         1
  209.         0
  210.         0
  211.         0
  212.         0
  213.     [nfmt]
  214.         272
  215.         1
  216.         2
  217.         .
  218.         ,
  219.         $
  220.     Title
  221.     0
  222.     0
  223. [tag]
  224.     comment
  225.     12
  226.     [fnt]
  227.         Times New Roman
  228.         200
  229.         12730624
  230.         49154
  231.     [algn]
  232.         1
  233.         1
  234.         0
  235.         0
  236.         0
  237.     [spc]
  238.         33
  239.         273
  240.         1
  241.         72
  242.         72
  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.         0
  261.         
  262.         0
  263.         1
  264.         1
  265.         0
  266.         0
  267.         0
  268.         0
  269.     [nfmt]
  270.         272
  271.         1
  272.         2
  273.         .
  274.         ,
  275.         $
  276.     comment
  277.     0
  278.     0
  279. [tag]
  280.     Outline1
  281.     0
  282.     [fnt]
  283.         Arial
  284.         240
  285.         0
  286.         16385
  287.     [algn]
  288.         4
  289.         1
  290.         0
  291.         0
  292.         0
  293.     [spc]
  294.         33
  295.         446
  296.         1
  297.         144
  298.         72
  299.         1
  300.         100
  301.     [brk]
  302.         16
  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.         1
  317.         
  318.         0
  319.         1
  320.         1
  321.         0
  322.         0
  323.         0
  324.         0
  325.     [nfmt]
  326.         272
  327.         1
  328.         2
  329.         .
  330.         ,
  331.         $
  332.     Outline1
  333.     0
  334.     0
  335. [tag]
  336.     Outline2
  337.     0
  338.     [fnt]
  339.         Times New Roman
  340.         200
  341.         0
  342.         49152
  343.     [algn]
  344.         1
  345.         1
  346.         0
  347.         0
  348.         0
  349.     [spc]
  350.         33
  351.         273
  352.         1
  353.         72
  354.         72
  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.         2
  373.         
  374.         0
  375.         1
  376.         1
  377.         0
  378.         0
  379.         0
  380.         0
  381.     [nfmt]
  382.         272
  383.         1
  384.         2
  385.         .
  386.         ,
  387.         $
  388.     Outline2
  389.     0
  390.     0
  391. [tag]
  392.     Outline3
  393.     0
  394.     [fnt]
  395.         Times New Roman
  396.         200
  397.         0
  398.         49152
  399.     [algn]
  400.         1
  401.         1
  402.         0
  403.         0
  404.         0
  405.     [spc]
  406.         33
  407.         273
  408.         1
  409.         0
  410.         0
  411.         1
  412.         100
  413.     [brk]
  414.         4
  415.     [line]
  416.         8
  417.         0
  418.         1
  419.         0
  420.         1
  421.         1
  422.         1
  423.         10
  424.         10
  425.         1
  426.     [spec]
  427.         0
  428.         3
  429.         
  430.         0
  431.         1
  432.         1
  433.         0
  434.         0
  435.         0
  436.         0
  437.     [nfmt]
  438.         280
  439.         1
  440.         2
  441.         .
  442.         ,
  443.         $
  444.     Outline3
  445.     0
  446.     0
  447. [tag]
  448.     Outline4
  449.     0
  450.     [fnt]
  451.         Times New Roman
  452.         200
  453.         0
  454.         49152
  455.     [algn]
  456.         1
  457.         1
  458.         0
  459.         0
  460.         0
  461.     [spc]
  462.         33
  463.         273
  464.         1
  465.         0
  466.         0
  467.         1
  468.         100
  469.     [brk]
  470.         4
  471.     [line]
  472.         8
  473.         0
  474.         1
  475.         0
  476.         1
  477.         1
  478.         1
  479.         10
  480.         10
  481.         1
  482.     [spec]
  483.         0
  484.         4
  485.         
  486.         0
  487.         1
  488.         1
  489.         0
  490.         0
  491.         0
  492.         0
  493.     [nfmt]
  494.         280
  495.         1
  496.         2
  497.         .
  498.         ,
  499.         $
  500.     Outline4
  501.     0
  502.     0
  503. [tag]
  504.     Outline5
  505.     0
  506.     [fnt]
  507.         Times New Roman
  508.         200
  509.         0
  510.         49152
  511.     [algn]
  512.         1
  513.         1
  514.         0
  515.         0
  516.         0
  517.     [spc]
  518.         33
  519.         273
  520.         1
  521.         0
  522.         0
  523.         1
  524.         100
  525.     [brk]
  526.         4
  527.     [line]
  528.         8
  529.         0
  530.         1
  531.         0
  532.         1
  533.         1
  534.         1
  535.         10
  536.         10
  537.         1
  538.     [spec]
  539.         0
  540.         5
  541.         
  542.         0
  543.         1
  544.         1
  545.         0
  546.         0
  547.         0
  548.         0
  549.     [nfmt]
  550.         280
  551.         1
  552.         2
  553.         .
  554.         ,
  555.         $
  556.     Outline5
  557.     0
  558.     0
  559. [lay]
  560.     Standard
  561.     513
  562.     [rght]
  563.         15840
  564.         12240
  565.         1
  566.         1440
  567.         1440
  568.         1
  569.         1440
  570.         1440
  571.         0
  572.         1
  573.         0
  574.         1
  575.         0
  576.         2
  577.         1
  578.         1440
  579.         10800
  580.         12
  581.         1
  582.         720
  583.         1
  584.         1440
  585.         1
  586.         2160
  587.         1
  588.         2880
  589.         1
  590.         3600
  591.         1
  592.         4320
  593.         1
  594.         5040
  595.         1
  596.         5760
  597.         1
  598.         6480
  599.         1
  600.         7200
  601.         1
  602.         7920
  603.         1
  604.         8640
  605.     [hrght]
  606.     [lyfrm]
  607.         1
  608.         11200
  609.         0
  610.         0
  611.         12240
  612.         1440
  613.         0
  614.         1
  615.         3
  616.         1 0 0 0 0 0 0
  617.         0
  618.         0
  619.         1
  620.     [frmlay]
  621.         1440
  622.         12240
  623.         1
  624.         1440
  625.         72
  626.         1
  627.         792
  628.         1440
  629.         0
  630.         1
  631.         0
  632.         1
  633.         1
  634.         0
  635.         1
  636.         1440
  637.         10800
  638.         1
  639.         3
  640.         9360
  641.     [txt]
  642. <+B><:da<*!><* >>  -- Freelance for Windows Screen Show Macro
  643.  
  644. <+B>DEZ - <:da<*%><* >>
  645.  
  646. >
  647.     [frght]
  648.     [lyfrm]
  649.         1
  650.         13248
  651.         0
  652.         14400
  653.         12240
  654.         15840
  655.         0
  656.         1
  657.         3
  658.         1 0 0 0 0 0 0
  659.         0
  660.         0
  661.         2
  662.     [frmlay]
  663.         15840
  664.         12240
  665.         1
  666.         1440
  667.         792
  668.         1
  669.         14472
  670.         1440
  671.         0
  672.         1
  673.         0
  674.         1
  675.         1
  676.         0
  677.         1
  678.         1440
  679.         10800
  680.         2
  681.         2
  682.         4680
  683.         3
  684.         9360
  685.     [txt]
  686. >
  687. [elay]
  688. [l1]
  689.     0
  690. [pg]
  691.     5
  692.     49 0 65 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
  693.     96 0 27 32 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
  694.     138 0 24 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
  695.     181 0 31 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
  696.     213 0 0 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
  697. [edoc]
  698. @Outline1@<:#293,9360>'declares & defines
  699.  
  700. @Outline2@<:#241,9360>'strings to be localized
  701.  
  702. @Outline3@<:#241,9360><:X3,-32768;Include "amixlate.sam!FLWSHOW">define MyAppName    "Ami Pro Screen Show"
  703.  
  704. @Outline3@<:#241,9360>define apptitle        "Freelance Graphics"
  705.  
  706. @Outline3@<:#241,9360>define PageLayoutDlgText    "Choose Page Layout"
  707.  
  708. @Outline3@<:#241,9360>define err_cantlaunchapp    "Unable to launch Freelance for Windows."
  709.  
  710. @Outline3@<:#241,9360>define err_cantfindapp        "Unable to find Freelance for Windows."
  711.  
  712. @Outline3@<:#241,9360>define err_cantcopyhere    "Cannot copy any text."
  713.  
  714. @Outline3@<:#241,9360>define Q_BACKTOPRO    "Return to Ami Pro?"
  715.  
  716. @Outline3@<:#241,9360>define StatusBarWaitText    "Preparing Freelance Graphics for Windows screen show....."
  717.  
  718. @Outline3@<:#241,9360>define Q_USEENTIREFILE    "Use entire document for screen show?"
  719.  
  720. @Outline3@<:#241,9360>define SelectAndReRunText    "Select the text to use and click the icon again."<:X~3,-32768;Include "amixlate.sam!FLWSHOW">
  721.  
  722. @Outline2@<:#241,9360>'strings not to be localized
  723.  
  724. @Outline3@<:#241,9360>define appname    "FLW"
  725.  
  726. @Outline3@<:#241,9360>define appmodule    "FLWMAIN"
  727.  
  728. @Outline3@<:#241,9360>define appclass    "flwapp"
  729.  
  730. @Outline3@<:#241,9360>define pasteformat    "Windows Metafile"
  731.  
  732. @Outline3@<:#241,9360>define LotusIniFile    "lotus.ini"
  733.  
  734. @Outline3@<:#241,9360>define LotusAppSection    "Lotus Applications"
  735.  
  736. @Outline3@<:#241,9360>define ERR_DIECLEANLY    -2
  737.  
  738. @Outline3@<:#241,9360>define FILE_ALREADYOPEN    1
  739.  
  740. @Outline3@<:#241,9360>define FILE_NOTOPEN        -1
  741.  
  742. @Outline3@<:#241,9360>define salesmsgsmm    lotuspal.smm!salesmsg
  743.  
  744. @Outline2@<:#241,9360>'private functions
  745.  
  746. @Outline3@<:#241,9360>declare box2(hdlg, id, val)
  747.  
  748. @Outline3@<:#241,9360>declare done()
  749.  
  750. @Outline3@<:#241,9360>declare onmenu(menu, item, casc)
  751.  
  752. @Outline3@<:#241,9360>define IsOKToRun(menuname)    GetInfo(217, 24, %1);
  753.  
  754. @Outline3@<:#241,9360>declare freeglobals()
  755.  
  756. @Outline3@<:#241,9360>declare GetChildHandle(parentclass, childclass);
  757.  
  758. @Outline3@<:#241,9360>declare h_LoadLotusApp(Name, Module);
  759.  
  760. @Outline3@<:#241,9360>declare hideami(rect)
  761.  
  762. @Outline3@<:#241,9360>declare insertdata(hdlg, id, val)
  763.  
  764. @Outline3@<:#241,9360>define MsgBox(msgtext)    Message(%1, myappname)
  765.  
  766. @Outline3@<:#241,9360>declare modframe()
  767.  
  768. @Outline3@<:#241,9360>declare newnow()
  769.  
  770. @Outline3@<:#241,9360>declare openfile()
  771.  
  772. @Outline3@<:#241,9360>declare setpagelayout()
  773.  
  774. @Outline3@<:#241,9360>declare showami(rect)
  775.  
  776. @Outline3@<:#241,9360>declare winproc(hdlg, id, val)
  777.  
  778. @Outline3@<:#482,9360>declare MyPostMessage(hwnd, msg, wparam, lparam)    DllCall("User,PostMessage,HHHHJ",%1,%2,%3,%4)
  779.  
  780. @Outline2@<:#241,9360>'api call defines
  781.  
  782. @Outline3@<:#241,9360>Define EnableWindow() DllCall("user,EnableWindow,HHH", %1, %2)
  783.  
  784. @Outline3@<:#241,9360>Define FindWindow() DllCall("user,FindWindow,HCC", %1, %2)
  785.  
  786. @Outline3@<:#241,9360>Define GetClassName(hwnd, name, len) dllcall("user,GetClassName,HHCH", %1, %2, %3)
  787.  
  788. @Outline3@<:#241,9360>Define GetActiveWindow() DllCall("user,GetActiveWindow,H")
  789.  
  790. @Outline3@<:#241,9360>Define Getfocus() DllCall("user,GetFocus,H")
  791.  
  792. @Outline3@<:#241,9360>Define GetModuleHandle() DllCall("kernel,GetModuleHandle,HC", %1)
  793.  
  794. @Outline3@<:#241,9360>Define GetWindow(hwnd, cmd) dllcall("user,GetWindow,HHH", %1, %2)
  795.  
  796. @Outline3@<:#241,9360>Define GetWindowText(hwnd, lpsz, cbMax)    dllcall("user,GetWindowText,HHCH", %1, %2, %3)
  797.  
  798. @Outline3@<:#241,9360>DEFINE GetWindowrect()    DllCall("user,GetWindowRect,HHN",%1,%2)
  799.  
  800. @Outline3@<:#241,9360>define IsIconic(hWnd) DllCall("user,IsIconic,HH", %1)
  801.  
  802. @Outline3@<:#241,9360>Define MoveWindow() DllCall("User,MoveWindow,HHHHHHA",%1,%2,%3,%4,%5,%6)
  803.  
  804. @Outline3@<:#241,9360>Define PostMessage() DllCall("User,PostMessage,HHHHJ",%1,%2,%3,%4)
  805.  
  806. @Outline3@<:#482,9360>define PeekMessage(lpmsg, hwnd, uFilterFirst, uFilterLast, fuRemove)    DllCall("User,PostMessage,ACHHHH",%1,%2,%3,%4, %5)
  807.  
  808. @Outline3@<:#241,9360>Define SendMessage(hwnd, message, wparam, lparao) Dllcall("user,SendMessage,JHHHJ", %1, %2, %3, %4)
  809.  
  810. @Outline3@<:#241,9360>Define SendMessageC(hwnd, message, wparam, lparao) Dllcall("user,SendMessage,HHHHC", %1, %2, %3, %4)
  811.  
  812. @Outline3@<:#241,9360>Define SetFocus() DllCall("user,SetFocus,HH",%1)
  813.  
  814. @Outline3@<:#241,9360>Define ShowWindow(hWnd, stuff) DllCall("user,ShowWindow,HHH", %1, %2)
  815.  
  816. @Outline3@<:#482,9360>define SetWindowPos(hwnd, hwndinsertafter, x, y, cx, cy, wflags) DllCall("user,SetWindowPos,HHHHHHHI", %1, %2, %3, %4, %5, %6, %7)
  817.  
  818. @Outline3@<:#241,9360>define SetCursor(hwnd)        DllCall("user,SetCursor,HH",%1)
  819.  
  820. @Outline3@<:#241,9360>define LoadCursor(hwnd, lpcursor)        DllCall("user,LoadCursor,HHC",%1, %2)
  821.  
  822. @Outline3@<:#241,9360>define    GetMenu(HWND)    DllCall("user,GetMenu,HH", %1)
  823.  
  824. @Outline3@<:#482,9360>define    GetMenuString(HMENU, WORD, LPSTR, int, WORD)    DllCall("user,GetMenuString,HHHFHH", %1, %2, %3, %4, %5)
  825.  
  826. @Outline3@<:#241,9360>define    GetSubMenu(HMENU, int)    DllCall("user,GetSubMenu,HHH", %1, %2)
  827.  
  828. @Outline3@<:#241,9360>define    GetMenuItemID(HMENU, int)    DllCall("user,GetMenuItemID,LHH", %1, %2)
  829.  
  830. @Outline3@<:#241,9360>define    GetMenuItemCount(HMENU)    DllCall("user,GetMenuItemCount,HH", %1)
  831.  
  832. @Outline3@<:#241,9360>
  833.  
  834. @Outline2@<:#241,9360>'menu pick defines
  835.  
  836. @Outline3@<:#241,9360>define FLW_COPY        142
  837.  
  838. @Outline3@<:#241,9360>define FLW_CURVEDTEXT    307
  839.  
  840. @Outline3@<:#241,9360>define FLW_CURRENTPAGE    228
  841.  
  842. @Outline3@<:#241,9360>define FLW_EDITCLEAR    145
  843.  
  844. @Outline3@<:#241,9360>define FLW_INBW        269
  845.  
  846. @Outline3@<:#241,9360>define FLW_INCOLOR        270
  847.  
  848. @Outline3@<:#241,9360>define FLW_NEW        61
  849.  
  850. @Outline3@<:#241,9360>define FLW_NEWPAGE    241
  851.  
  852. @Outline3@<:#241,9360>define FLW_ORGCHART    5202
  853.  
  854. @Outline3@<:#241,9360>define FLW_OUTLINER    230
  855.  
  856. @Outline3@<:#241,9360>define FLW_PAGESORTER    229
  857.  
  858. @Outline3@<:#241,9360>define FLW_PASTE        144
  859.  
  860. @Outline3@<:#241,9360>define FLW_REMOVEPAGE    242
  861.  
  862. @Outline3@<:#241,9360>define FLW_SCREENSHOWRUN    481
  863.  
  864. @Outline3@<:#241,9360>define FLW_SELECTNONE    166
  865.  
  866. @Outline3@<:#241,9360>define FLW_SELECTALL    165
  867.  
  868. @Outline3@<:#241,9360>define FLW_SPEAKERNOTES    253
  869.  
  870. @Outline2@<:#241,9360>'api defines
  871.  
  872. @Outline3@<:#241,9360>Define GW_CHILD        5
  873.  
  874. @Outline3@<:#241,9360>Define GW_HWNDNEXT    2
  875.  
  876. @Outline3@<:#241,9360>define PM_NOREMOVE    0x0000
  877.  
  878. @Outline3@<:#241,9360>Define WM_SETREDRAW            0x000B
  879.  
  880. @Outline3@<:#241,9360>define NO_DUPS    0
  881.  
  882. @Outline3@<:#241,9360>define SWP_NOMOVE        0x0002
  883.  
  884. @Outline3@<:#241,9360>define WM_COMMAND    0x0111
  885.  
  886. @Outline3@<:#241,9360>define WM_GETTEXT           0x000D
  887.  
  888. @Outline3@<:#241,9360>define MF_BYPOSITION    0x0400
  889.  
  890. @Outline1@<:#293,9360>function remshow()
  891.  
  892. @Outline2@<:#241,9360>onerror endit
  893.  
  894. @Outline2@<:#241,9360>oncancel endit
  895.  
  896. @Outline2@<:#241,9360>if GetOpenFileCount() << 1
  897.  
  898. @Outline2@<:#241,9360>    exit function
  899.  
  900. @Outline2@<:#241,9360>endif
  901.  
  902. @Outline2@<:#241,9360>ignorekeyboard(2)
  903.  
  904. @Outline2@<:#241,9360>amidir=GetAmiDirectory$()
  905.  
  906. @Outline2@<:#241,9360>dim rect(4)
  907.  
  908. @Outline2@<:#241,9360>again:
  909.  
  910. @Outline2@<:#241,9360>txt = curshade$()    'get text for show
  911.  
  912. @Outline3@<:#241,9360>if txt = ""
  913.  
  914. @Outline3@<:#241,9360>    if decide (Q_USEENTIREFILE, MyAppName) != 1
  915.  
  916. @Outline3@<:#241,9360>        message(SelectAndReRunText, MyAppName)
  917.  
  918. @Outline3@<:#241,9360>        exit function
  919.  
  920. @Outline3@<:#241,9360>    endif
  921.  
  922. @Outline3@<:#241,9360>    'mark position, darkmode on, etc
  923.  
  924. @Outline3@<:#241,9360>    type ("<[>ctrlhome]<[>shiftctrlend]")
  925.  
  926. @Outline3@<:#241,9360>endif
  927.  
  928. @Outline3@<:#241,9360>If IsOKToRun(Copy) != 1
  929.  
  930. @Outline3@<:#241,9360>    msgbox(err_cantcopyhere)
  931.  
  932. @Outline3@<:#241,9360>    Exit Function
  933.  
  934. @Outline3@<:#241,9360>Endif
  935.  
  936. @Outline3@<:#241,9360>Copy()
  937.  
  938. @Outline2@<:#241,9360>statusbarmsg(StatusBarWaitText)
  939.  
  940. @Outline2@<:#241,9360>focusnow=GetFocus()
  941.  
  942. @Outline2@<:#241,9360>hFLW = h_LoadLotusApp(appname, appmodule);
  943.  
  944. @Outline3@<:#241,9360>if hFLW = 0
  945.  
  946. @Outline3@<:#241,9360>    goto endit
  947.  
  948. @Outline3@<:#241,9360>endif
  949.  
  950. @Outline2@<:#241,9360>rmac = getrunningmacrofile$()
  951.  
  952. @Outline2@<:#241,9360>'get handles to everything
  953.  
  954. @Outline3@<:#241,9360>hwndpro = findwindow("amiprownda", 0)
  955.  
  956. @Outline3@<:#241,9360>if isiconic(hFLW)
  957.  
  958. @Outline3@<:#241,9360>    appmaximize(apptitle)
  959.  
  960. @Outline3@<:#241,9360>endif
  961.  
  962. @Outline2@<+@><:#241,9360>pause(002)
  963.  
  964. @Outline2@<:#241,9360>dim size(4)        'move FLW off-screen
  965.  
  966. @Outline3@<:#241,9360>getwindowrect(hFLW, &size)
  967.  
  968. @Outline3@<:#241,9360>movewindow(hFLW, 0, -1160, 768, 80, 1)
  969.  
  970. @Outline2@<:#241,9360>'openfile()
  971.  
  972. @Outline2@<:#241,9360>EnableWindow(hwndpro, 0)
  973.  
  974. @Outline2@<:#241,9360>activateapp(apptitle)
  975.  
  976. @Outline2@<:#241,9360>pause(002)
  977.  
  978. @Outline2@<:#241,9360>'send the menu picks
  979.  
  980. @Outline3@<:#241,9360>defstr titletext;
  981.  
  982. @Outline3@<+@><:I0,0,0,0><:S+-1><:#241,9360>PostMessage(hflw, WM_COMMAND, FLW_NEW, "")
  983.  
  984. @Outline4@<+@><:I0,0,0,0><:S+-1><:#241,9360>pause(010)
  985.  
  986. @Outline4@<:#241,9360>while GetActiveWindow() != hflw
  987.  
  988. @Outline4@<:I0,0,0,0><:S+-1><:#241,9360>    GetWindowText(GetActiveWindow(), &titletext, 60)
  989.  
  990. @Outline4@<:I0,0,0,0><:S+-1><:#241,9360>    if titletext = PageLayoutDlgText
  991.  
  992. @Outline4@<:I0,0,0,0><:S+-1><:#241,9360>        pause(002)
  993.  
  994. @Outline4@<:I0,0,0,0><:S+-1><:#241,9360>        break
  995.  
  996. @Outline4@<:#241,9360>    endif
  997.  
  998. @Outline4@<:#241,9360>    pause(003)
  999.  
  1000. @Outline4@<:#241,9360>wend
  1001.  
  1002. @Outline3@<:#241,9360>pause(003)
  1003.  
  1004. @Outline3@<:#241,9360>sendkeys("<[>esc]")
  1005.  
  1006. @Outline3@<+@><:I0,0,0,0><:S+-1><:#241,9360>PostMessage(hflw, WM_COMMAND, FLW_OUTLINER, "")
  1007.  
  1008. @Outline3@<:I0,0,0,0><:S+-1><:#241,9360>pause(005)
  1009.  
  1010. @Outline3@<+@><:I0,0,0,0><:S+-1><:#241,9360>sendkeys("<[>shiftins]")
  1011.  
  1012. @Outline3@<:I0,0,0,0><:S+-1><:#241,9360>'bring back FLW
  1013.  
  1014. @Outline4@<:I0,0,0,0><:S+-1><:#241,9360>cx = size(3) - size(1)
  1015.  
  1016. @Outline4@<:#241,9360>cy = size(4) - size(2)
  1017.  
  1018. @Outline3@<+@><:I0,0,0,0><:S+-1><:#241,9360>PostMessage(hflw, WM_COMMAND, FLW_SCREENSHOWRUN, "")
  1019.  
  1020. @Outline3@<+@><:I0,0,0,0><:S+-1><:#241,9360>pause(005)
  1021.  
  1022. @Outline3@<:#241,9360>movewindow(hFLW, size(1), size(2), cx, cy, 1)
  1023.  
  1024. @Outline3@<:#241,9360>while GetActiveWindow() != hflw
  1025.  
  1026. @Outline3@<:#241,9360>    pause(003)
  1027.  
  1028. @Outline3@<:#241,9360>wend
  1029.  
  1030. @Outline2@<:#241,9360>if decide(Q_BACKTOPRO, MyAppName)
  1031.  
  1032. @Outline2@<:#241,9360>    Activateapp("")
  1033.  
  1034. @Outline2@<:#241,9360>endif
  1035.  
  1036. @Outline2@<:#241,9360>endit:
  1037.  
  1038. @Outline2@<:#241,9360>statusbarmsg("")
  1039.  
  1040. @Outline2@<:#241,9360>hourglass(0)
  1041.  
  1042. @Outline2@<+@><:#241,9360>'activateapp("")
  1043.  
  1044. @Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9360>EnableWindow(hwndpro, 1)
  1045.  
  1046. @Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9360>'SetFocus(focusnow)
  1047.  
  1048. @Outline2@<:#241,9360>exit function
  1049.  
  1050. @Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9360>end function
  1051.  
  1052. @Outline1@<:#293,9360>function h_LoadLotusApp(name, module)
  1053.  
  1054. @Outline2@<:#241,9360>onerror endit
  1055.  
  1056. @Outline2@<:#241,9360>oncancel endit
  1057.  
  1058. @Outline2@hwnd =  findwindow(appclass, 0)
  1059.  
  1060. @Outline2@<:#241,9360>if hwnd = 0
  1061.  
  1062. @Outline2@<:#241,9360>    app = GetProfileString$(LotusAppSection, name, LotusIniFile)
  1063.  
  1064. @Outline2@<:#241,9360>    if app <<<;> ""
  1065.  
  1066. @Outline2@<:#241,9360>        offset1stspace=strchr(1, app, " ")
  1067.  
  1068. @Outline2@<:#241,9360>        app = strfield$(app, 1, " ")
  1069.  
  1070. @Outline2@<:#241,9360>        lotusappname=MID$(app, offset1stspace, len(app))    'DEZ
  1071.  
  1072. @Outline2@<:#241,9360>        'lotusappname = strfield$(app, 2, " ")
  1073.  
  1074. @Outline2@<:#241,9360>        if exec(app, "/q") << 32
  1075.  
  1076. @Outline2@<:#241,9360>            'MsgBox(err_cantlaunchapp)
  1077.  
  1078. @Outline2@<:#241,9360>            call salesmsgsmm(3)
  1079.  
  1080. @Outline2@<:#241,9360>            return 0
  1081.  
  1082. @Outline2@<:#241,9360>        endif
  1083.  
  1084. @Outline2@<:#241,9360>        pause(004)
  1085.  
  1086. <:#241,9360>    endif
  1087.  
  1088. <:#241,9360>    hwnd = findwindow(appclass, 0)
  1089.  
  1090. <:#241,9360>    if hwnd = 0
  1091.  
  1092. <:#241,9360>        call salesmsgsmm(3)
  1093.  
  1094. @Outline2@<:#241,9360>    endif
  1095.  
  1096. @Outline2@<:#241,9360>    return hwnd
  1097.  
  1098. @Outline2@<:#241,9360>endif
  1099.  
  1100. @Outline2@<:#241,9360>endit:
  1101.  
  1102. @Outline2@<:#241,9360>return hwnd
  1103.  
  1104. @Outline2@<:#241,9360>end function
  1105.  
  1106. @Outline1@<:#293,9360>function MyPostMessage(hwnd, msg, wparam, lparam)
  1107.  
  1108. @Outline2@<:#241,9360>hflw=findwindow(appclass, 0)
  1109.  
  1110. @Outline2@<:#241,9360>PostMessage(hwnd, msg, wparam, lparam)
  1111.  
  1112. @Outline2@<:#241,9360>pause(010)
  1113.  
  1114. @Outline2@<:#241,9360>while GetActiveWindow() != hflw
  1115.  
  1116. @Outline2@<:#241,9360>    pause(002)
  1117.  
  1118. @Outline2@<:#241,9360>wend
  1119.  
  1120. @Outline2@<:#241,9360>end function
  1121.  
  1122. @Outline2@<:#241,9360>
  1123.  
  1124. >
  1125.  
  1126. [Embedded]
  1127. 00017193
  1128. >
  1129. [macsum] 3
  1130. remshow 0 0 12 96
  1131. h_LoadLotusApp 1873 2 5 177
  1132. MyPostMessage 2421 4 2 204
  1133. [macse]
  1134. 14 remshow
  1135. 20 00001791
  1136. 19 00001791
  1137. 0 1050
  1138. 13
  1139. 5 1
  1140. 18 5
  1141. 11 00000086
  1142. 6 0
  1143. 15
  1144. 9
  1145. 0 32 2
  1146. 0 798
  1147. 13
  1148. 8 1
  1149. 5 4
  1150. 21 2 [X]
  1151. 0 24
  1152. 13
  1153. 8 3
  1154. 6 3
  1155. 7 ""
  1156. 18 0
  1157. 11 00000376
  1158. 0 2 "Use entire document for screen show?" "Ami Pro Screen Show"
  1159. 13
  1160. 5 1
  1161. 18 1
  1162. 11 00000354
  1163. 0 3 "Select the text to use and click the icon again." "Ami Pro Screen Show"
  1164. 6 0
  1165. 15
  1166. 9
  1167. 0 6 "[16420][20515]"
  1168. 0 1313 217 24 154
  1169. 13
  1170. 5 1
  1171. 18 1
  1172. 11 00000486
  1173. 0 3 "Cannot copy any text." "Ami Pro Screen Show"
  1174. 6 0
  1175. 15
  1176. 9
  1177. 2 154 1
  1178. 0 789 "Preparing Freelance Graphics for Windows screen show....."
  1179. 0 284 "user,GetFocus,H"
  1180. 13
  1181. 8 4
  1182. 16 h_LoadLotusApp "FLW" "FLWMAIN"
  1183. 13
  1184. 8 5
  1185. 6 5
  1186. 5 0
  1187. 18 0
  1188. 11 00000682
  1189. 10 00001791
  1190. 0 802
  1191. 13
  1192. 8 6
  1193. 0 284 "user,FindWindow,HCC" "amiprownda" 0
  1194. 13
  1195. 8 7
  1196. 0 284 "user,IsIconic,HH" "{5}"
  1197. 13
  1198. 11 00000829
  1199. 0 1029 "Freelance Graphics"
  1200. 0 274 002
  1201. 5 4
  1202. 21 8 [X]
  1203. 0 284 "user,GetWindowRect,HHN" "{5}" &8
  1204. 0 284 "User,MoveWindow,HHHHHHA" "{5}" 0 -1160 768 80 1
  1205. 0 284 "user,EnableWindow,HHH" "{7}" 0
  1206. 0 38 "Freelance Graphics"
  1207. 0 274 002
  1208. 0 284 "User,PostMessage,HHHHJ" "{5}" 273 61 ""
  1209. 0 274 010
  1210. 0 284 "user,GetActiveWindow,H"
  1211. 13
  1212. 6 5
  1213. 18 1
  1214. 11 00001323
  1215. 0 284 "user,GetActiveWindow,H"
  1216. 13
  1217. 0 284 "user,GetWindowText,HHCH" [X] &9 60
  1218. 6 9
  1219. 7 "Choose Page Layout"
  1220. 18 0
  1221. 11 00001299
  1222. 0 274 002
  1223. 10 00001323
  1224. 0 274 003
  1225. 10 00001088
  1226. 0 274 003
  1227. 0 36 "[27]"
  1228. 0 284 "User,PostMessage,HHHHJ" "{5}" 273 230 ""
  1229. 0 274 005
  1230. 0 36 "[4141]"
  1231. 5 3
  1232. 22 8
  1233. 5 1
  1234. 22 8
  1235. 3 1
  1236. 8 10
  1237. 5 4
  1238. 22 8
  1239. 5 2
  1240. 22 8
  1241. 3 1
  1242. 8 11
  1243. 0 284 "User,PostMessage,HHHHJ" "{5}" 273 481 ""
  1244. 0 274 005
  1245. 5 1
  1246. 22 8
  1247. 5 2
  1248. 22 8
  1249. 0 284 "User,MoveWindow,HHHHHHA" "{5}" [X] [X] "{10}" "{11}" 1
  1250. 0 284 "user,GetActiveWindow,H"
  1251. 13
  1252. 6 5
  1253. 18 1
  1254. 11 00001717
  1255. 0 274 003
  1256. 10 00001633
  1257. 0 2 "Return to Ami Pro?" "Ami Pro Screen Show"
  1258. 13
  1259. 11 00001791
  1260. 0 38 ""
  1261. 0 789 ""
  1262. 0 296 0
  1263. 0 284 "user,EnableWindow,HHH" "{7}" 1
  1264. 6 0
  1265. 15
  1266. 9
  1267. 6 0
  1268. 15
  1269. 9
  1270. 14 h_LoadLotusApp
  1271. 20 00000524
  1272. 19 00000524
  1273. 0 284 "user,FindWindow,HCC" "flwapp" 0
  1274. 13
  1275. 8 3
  1276. 6 3
  1277. 5 0
  1278. 18 0
  1279. 11 00000524
  1280. 0 286 "Lotus Applications" "{0}" "lotus.ini"
  1281. 13
  1282. 8 4
  1283. 6 4
  1284. 7 ""
  1285. 18 1
  1286. 11 00000406
  1287. 0 13 1 "{4}" " "
  1288. 13
  1289. 8 5
  1290. 0 20 "{4}" 1 " "
  1291. 13
  1292. 8 4
  1293. 0 14 "{4}"
  1294. 13
  1295. 0 15 "{4}" "{5}" [X]
  1296. 13
  1297. 8 6
  1298. 0 22 "{4}" "/q"
  1299. 13
  1300. 5 32
  1301. 18 5
  1302. 11 00000395
  1303. 16 lotuspal.smm!salesmsg 3
  1304. 5 0
  1305. 15
  1306. 9
  1307. 0 274 004
  1308. 0 284 "user,FindWindow,HCC" "flwapp" 0
  1309. 13
  1310. 8 3
  1311. 6 3
  1312. 5 0
  1313. 18 0
  1314. 11 00000512
  1315. 16 lotuspal.smm!salesmsg 3
  1316. 6 3
  1317. 15
  1318. 9
  1319. 6 3
  1320. 15
  1321. 9
  1322. 6 2
  1323. 15
  1324. 9
  1325. 14 MyPostMessage
  1326. 0 284 "user,FindWindow,HCC" "flwapp" 0
  1327. 13
  1328. 8 5
  1329. 0 284 "User,PostMessage,HHHHJ" "{0}" "{1}" "{2}" "{3}"
  1330. 0 274 010
  1331. 0 284 "user,GetActiveWindow,H"
  1332. 13
  1333. 6 5
  1334. 18 1
  1335. 11 00000218
  1336. 0 274 002
  1337. 10 00000134
  1338. 6 4
  1339. 15
  1340. 9
  1341. 00017218
  1342.