home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS029.DSK / COLLECT.SMM < prev    next >
INI File  |  1992-07-22  |  19KB  |  1,328 lines

  1. [ver]
  2.     4
  3. [sty]
  4.     
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     QMS-PS 810
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Data gatherer for auto style sheets
  19.     
  20.     
  21.     
  22.     
  23.     711832064
  24.     7
  25.     707673680
  26.     179
  27.     5
  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.         240
  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.     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.     Bullet
  169.     4
  170.     [fnt]
  171.         Times New Roman
  172.         240
  173.         0
  174.         49152
  175.     [algn]
  176.         1
  177.         1
  178.         0
  179.         288
  180.         288
  181.     [spc]
  182.         33
  183.         273
  184.         1
  185.         0
  186.         0
  187.         1
  188.         100
  189.     [brk]
  190.         4
  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.         <*0>
  206.         360
  207.         1
  208.         1
  209.         0
  210.         0
  211.         0
  212.         0
  213.     [nfmt]
  214.         272
  215.         1
  216.         2
  217.         .
  218.         ,
  219.         $
  220.     Bullet
  221.     0
  222.     0
  223. [tag]
  224.     Bullet 1
  225.     5
  226.     [fnt]
  227.         Times New Roman
  228.         240
  229.         0
  230.         49152
  231.     [algn]
  232.         1
  233.         1
  234.         288
  235.         288
  236.         288
  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.         0
  261.         <*5>
  262.         0
  263.         1
  264.         1
  265.         0
  266.         0
  267.         0
  268.         0
  269.     [nfmt]
  270.         280
  271.         1
  272.         2
  273.         .
  274.         ,
  275.         $
  276.     Bullet 1
  277.     0
  278.     0
  279. [tag]
  280.     Number List
  281.     6
  282.     [fnt]
  283.         Times New Roman
  284.         240
  285.         0
  286.         49152
  287.     [algn]
  288.         1
  289.         1
  290.         360
  291.         360
  292.         360
  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.         0
  317.         <*:>.
  318.         360
  319.         1
  320.         1
  321.         0
  322.         0
  323.         0
  324.         0
  325.     [nfmt]
  326.         272
  327.         1
  328.         2
  329.         .
  330.         ,
  331.         $
  332.     Number List
  333.     0
  334.     0
  335. [tag]
  336.     Subhead
  337.     7
  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.     Subhead
  389.     0
  390.     0
  391. [tag]
  392.     Title
  393.     8
  394.     [fnt]
  395.         Arial
  396.         240
  397.         0
  398.         16385
  399.     [algn]
  400.         4
  401.         1
  402.         0
  403.         0
  404.         0
  405.     [spc]
  406.         33
  407.         446
  408.         1
  409.         144
  410.         72
  411.         1
  412.         100
  413.     [brk]
  414.         16
  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.         1
  429.         
  430.         0
  431.         1
  432.         1
  433.         0
  434.         0
  435.         0
  436.         0
  437.     [nfmt]
  438.         272
  439.         1
  440.         2
  441.         .
  442.         ,
  443.         $
  444.     Title
  445.     0
  446.     0
  447. [tag]
  448.     Header
  449.     9
  450.     [fnt]
  451.         Times New Roman
  452.         240
  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.         0
  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.     Header
  501.     0
  502.     0
  503. [tag]
  504.     Footer
  505.     11
  506.     [fnt]
  507.         Times New Roman
  508.         240
  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.         0
  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.     Footer
  557.     0
  558.     0
  559. [tag]
  560.     Outline3
  561.     12
  562.     [fnt]
  563.         Times New Roman
  564.         200
  565.         0
  566.         49152
  567.     [algn]
  568.         1
  569.         1
  570.         0
  571.         0
  572.         0
  573.     [spc]
  574.         33
  575.         273
  576.         1
  577.         72
  578.         72
  579.         1
  580.         100
  581.     [brk]
  582.         4
  583.     [line]
  584.         8
  585.         0
  586.         1
  587.         0
  588.         1
  589.         1
  590.         1
  591.         10
  592.         10
  593.         1
  594.     [spec]
  595.         0
  596.         3
  597.         
  598.         0
  599.         1
  600.         1
  601.         0
  602.         0
  603.         0
  604.         0
  605.     [nfmt]
  606.         272
  607.         1
  608.         2
  609.         .
  610.         ,
  611.         $
  612.     Outline3
  613.     0
  614.     0
  615. [tag]
  616.     Outline4
  617.     0
  618.     [fnt]
  619.         Times New Roman
  620.         200
  621.         0
  622.         49152
  623.     [algn]
  624.         1
  625.         1
  626.         0
  627.         0
  628.         0
  629.     [spc]
  630.         33
  631.         273
  632.         1
  633.         72
  634.         72
  635.         1
  636.         100
  637.     [brk]
  638.         4
  639.     [line]
  640.         8
  641.         0
  642.         1
  643.         0
  644.         1
  645.         1
  646.         1
  647.         10
  648.         10
  649.         1
  650.     [spec]
  651.         0
  652.         4
  653.         
  654.         0
  655.         1
  656.         1
  657.         0
  658.         0
  659.         0
  660.         0
  661.     [nfmt]
  662.         272
  663.         1
  664.         2
  665.         .
  666.         ,
  667.         $
  668.     Outline4
  669.     0
  670.     0
  671. [lay]
  672.     Standard
  673.     513
  674.     [rght]
  675.         15840
  676.         12240
  677.         1
  678.         1440
  679.         1440
  680.         1
  681.         1440
  682.         1440
  683.         0
  684.         1
  685.         0
  686.         1
  687.         0
  688.         2
  689.         1
  690.         1440
  691.         10800
  692.         12
  693.         1
  694.         720
  695.         1
  696.         1440
  697.         1
  698.         2160
  699.         1
  700.         2880
  701.         1
  702.         3600
  703.         1
  704.         4320
  705.         1
  706.         5040
  707.         1
  708.         5760
  709.         1
  710.         6480
  711.         1
  712.         7200
  713.         1
  714.         7920
  715.         1
  716.         8640
  717.     [hrght]
  718.     [lyfrm]
  719.         1
  720.         11200
  721.         0
  722.         0
  723.         12240
  724.         1440
  725.         0
  726.         1
  727.         3
  728.         1 0 0 0 0 0 0
  729.         0
  730.         0
  731.         1
  732.     [frmlay]
  733.         1440
  734.         12240
  735.         1
  736.         1440
  737.         72
  738.         1
  739.         792
  740.         1440
  741.         0
  742.         1
  743.         0
  744.         1
  745.         1
  746.         0
  747.         1
  748.         1440
  749.         10800
  750.         2
  751.         2
  752.         4680
  753.         3
  754.         9360
  755.     [txt]
  756. >
  757.     [frght]
  758.     [lyfrm]
  759.         1
  760.         13248
  761.         0
  762.         14400
  763.         12240
  764.         15840
  765.         0
  766.         1
  767.         3
  768.         1 0 0 0 0 0 0
  769.         0
  770.         0
  771.         2
  772.     [frmlay]
  773.         15840
  774.         12240
  775.         1
  776.         1440
  777.         792
  778.         1
  779.         14472
  780.         1440
  781.         0
  782.         1
  783.         0
  784.         1
  785.         1
  786.         0
  787.         1
  788.         1440
  789.         10800
  790.         2
  791.         2
  792.         4680
  793.         3
  794.         9360
  795.     [txt]
  796. >
  797. [elay]
  798. [l1]
  799.     0
  800. [pg]
  801.     5
  802.     33 0 63 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
  803.     67 0 21 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
  804.     99 0 12 32 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
  805.     132 0 46 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
  806.     134 0 10 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
  807. [edoc]
  808. @Title@<:#288,9360>'declares and defines
  809.  
  810. @Subhead@<:#240,9360>define    HFONT    "Setfont:hFont"
  811.  
  812. @Subhead@<:#240,9360>define    SendMessage(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
  813.  
  814. @Subhead@<:#240,9360>define    WM_SETFONT    0x30
  815.  
  816. @Subhead@<:#480,9360>define CreateFont()    DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
  817.  
  818. @Subhead@<:#240,9360>define    DeleteObject(handle)    DllCall("gdi,DeleteObject,HH", %1)
  819.  
  820. @Subhead@<:#240,9360>
  821.  
  822. @Title@<:#288,9360>function datacollector()
  823.  
  824. @Subhead@<:#240,9360>'font hander
  825.  
  826. @Outline3@<:#240,9360>AllocGlobalVar(HFONT, 1)
  827.  
  828. @Outline3@<:#240,9360>SetGlobalVar(HFONT, 0)    
  829.  
  830. @Subhead@<:#240,9360>rmac=getrunningmacrofile$()
  831.  
  832. @Subhead@<:#240,9360>DataGood=getprofilestring$("AutoStyleSheets", "DataGood", "AMIPRO2.INI")
  833.  
  834. @Subhead@<:#240,9360>if DataGood = ""
  835.  
  836. @Subhead@<:#240,9360>    writeprofilestring("AutoStyleSheets", "DataGood", 0, "AMIPRO2.INI")
  837.  
  838. @Subhead@<:#240,9360>elseif DataGood = 1
  839.  
  840. @Outline3@<:#240,9360>'read it in
  841.  
  842. @Outline4@<:#240,9360>name=getprofilestring$("AutoStyleSheets", "Name", "AMIPRO2.INI")
  843.  
  844. @Outline4@<:#240,9360>title=getprofilestring$("AutoStyleSheets", "Title", "AMIPRO2.INI")
  845.  
  846. @Outline4@<:#240,9360>company=getprofilestring$("AutoStyleSheets", "Company", "AMIPRO2.INI")
  847.  
  848. @Outline4@<:#240,9360>address1=getprofilestring$("AutoStyleSheets", "Address1", "AMIPRO2.INI")
  849.  
  850. @Outline4@<:#240,9360>address2=getprofilestring$("AutoStyleSheets", "Address2", "AMIPRO2.INI")
  851.  
  852. @Outline4@<:#240,9360>csz=getprofilestring$("AutoStyleSheets", "CSZ", "AMIPRO2.INI")
  853.  
  854. @Outline4@<:#240,9360>phone=getprofilestring$("AutoStyleSheets", "Phone", "AMIPRO2.INI")
  855.  
  856. @Outline4@<:#240,9360>fax=getprofilestring$("AutoStyleSheets", "Fax", "AMIPRO2.INI")
  857.  
  858. @Outline3@<:#240,9360>goto boxer
  859.  
  860. @Subhead@<:#240,9360>endif
  861.  
  862. @Subhead@<:#240,9360>name=getprofilestring$("AmiPro", "UserName", "AMIPRO.INI")
  863.  
  864. @Subhead@<:#240,9360>'get word data
  865.  
  866. @Outline3@<:#240,9360>sal=getprofilestring$("MS Word User", "Sal", "WIN.INI")
  867.  
  868. @Outline3@<:#240,9360>Name=getprofilestring$("MS Word User", "Name", "WIN.INI")
  869.  
  870. @Outline3@<:#240,9360>Suffix=getprofilestring$("MS Word User", "Suffix", "WIN.INI")
  871.  
  872. @Outline3@Company=getprofilestring$("MS Word User", "Company", "WIN.INI")
  873.  
  874. @Outline3@<:#240,9360>title=getprofilestring$("MS Word User", "Position", "WIN.INI")
  875.  
  876. @Outline3@<:#240,9360>Address1=getprofilestring$("MS Word User", "Address1", "WIN.INI")
  877.  
  878. @Outline3@<:#240,9360>Address2=getprofilestring$("MS Word User", "Address2", "WIN.INI")
  879.  
  880. @Outline3@<:#240,9360>Town=getprofilestring$("MS Word User", "Town", "WIN.INI")
  881.  
  882. @Outline3@<:#240,9360>County=getprofilestring$("MS Word User", "County", "WIN.INI")
  883.  
  884. @Outline3@<:#240,9360>Postcode=getprofilestring$("MS Word User", "Postcode", "WIN.INI")
  885.  
  886. @Outline3@<:#240,9360>Phone=getprofilestring$("MS Word User", "Phone", "WIN.INI")
  887.  
  888. @Outline3@<:#240,9360>Fax=getprofilestring$("MS Word User", "Fax", "WIN.INI")
  889.  
  890. @Outline3@<:#240,9360>writer=getprofilestring$("MS Word User", "Writer", "WIN.INI")
  891.  
  892. @Outline3@<:#240,9360>typist=getprofilestring$("MS Word User", "Typist", "WIN.INI")
  893.  
  894. @Subhead@<:#240,9360>'make it pro
  895.  
  896. @Outline3@<:#240,9360>name=strcat$(sal, " ", name, " ", suffix)
  897.  
  898. @Outline3@<:#240,9360>csz=strcat$(town, ", ", county, "  ", postcode)
  899.  
  900. @Subhead@<:#240,9360>'check envelope info
  901.  
  902. @Outline3@<:#240,9360>envretname=getprofilestring$("AmiEnv", "defretad", "AMIPRO2.INI")
  903.  
  904. @Outline3@<:#240,9360>if envretname != ""
  905.  
  906. @Outline3@<:#240,9360>    addressline=getprofilestring$("AdrsBook", envretname, "AMIPRO2.INI")
  907.  
  908. @Outline3@<:#240,9360>    goodaddress=strfield$(addressline, 2, "</e>")
  909.  
  910. @Outline3@<:#240,9360>    if goodaddress != (-1) and left$(goodaddress, 6) != "Type y"
  911.  
  912. @Outline3@<:#240,9360>        address1=strfield$(addressline, 2, "</e>")
  913.  
  914. @Outline3@<:#240,9360>        address2=strfield$(addressline, 3, "</e>")
  915.  
  916. @Outline3@<:#240,9360>    endif
  917.  
  918. @Outline3@<:#240,9360>endif
  919.  
  920. @Subhead@<:#240,9360>boxer:
  921.  
  922. @Subhead@<:#240,9360>SetDlgCallback(0, "{rmac}!initdlg")
  923.  
  924. @Subhead@<:#240,9360>'filledits
  925.  
  926. @Outline3@<:#240,9360>filledit(1011, "Type the information that you would like for your automated style sheets.")
  927.  
  928. @Outline3@<:#240,9360>filledit(8000, name)
  929.  
  930. @Outline3@<:#240,9360>filledit(8001, title)
  931.  
  932. @Outline3@<:#240,9360>filledit(8002, company)
  933.  
  934. @Outline3@<:#240,9360>filledit(8003, address1)
  935.  
  936. @Outline3@<:#240,9360>filledit(8004, address2)
  937.  
  938. @Outline3@<:#240,9360>filledit(8005, csz)
  939.  
  940. @Outline3@<:#240,9360>filledit(8006, phone)
  941.  
  942. @Outline3@<:#240,9360>filledit(8007, fax)
  943.  
  944. @Subhead@<:#240,9360>box = dialogbox(".", "collect")
  945.  
  946. @Subhead@<:#240,9360>if box = 0 
  947.  
  948. @Subhead@<:#240,9360>    exit function
  949.  
  950. @Subhead@<:#240,9360>endif
  951.  
  952. @Subhead@<:#240,9360>'get the stuff back out of the box
  953.  
  954. @Outline3@<:#240,9360>name=getdialogfield$(8000)
  955.  
  956. @Outline3@<:#240,9360>title=getdialogfield$(8001)
  957.  
  958. @Outline3@<:#240,9360>company=getdialogfield$(8002)
  959.  
  960. @Outline3@<:#240,9360>address1=getdialogfield$(8003) 
  961.  
  962. @Outline3@<:#240,9360>address2=getdialogfield$(8004) 
  963.  
  964. @Outline3@<:#240,9360>csz=getdialogfield$(8005)
  965.  
  966. @Outline3@<:#240,9360>phone=getdialogfield$(8006)
  967.  
  968. @Outline3@<:#240,9360>fax=getdialogfield$(8007)
  969.  
  970. @Subhead@<:#240,9360>'write it out
  971.  
  972. @Outline3@<:#240,9360>writeprofilestring("AutoStyleSheets", "Name", name, "AMIPRO2.INI")
  973.  
  974. @Outline3@<:#240,9360>writeprofilestring("AutoStyleSheets", "Title", title, "AMIPRO2.INI")
  975.  
  976. @Outline3@<:#240,9360>writeprofilestring("AutoStyleSheets", "Company", Company, "AMIPRO2.INI")
  977.  
  978. @Outline3@<:#240,9360>writeprofilestring("AutoStyleSheets", "Address1", address1, "AMIPRO2.INI")
  979.  
  980. @Outline3@<:#240,9360>writeprofilestring("AutoStyleSheets", "Address2", address2, "AMIPRO2.INI")
  981.  
  982. @Outline3@<:#240,9360>writeprofilestring("AutoStyleSheets", "CSZ", csz, "AMIPRO2.INI")
  983.  
  984. @Outline3@<:#240,9360>writeprofilestring("AutoStyleSheets", "Phone", phone, "AMIPRO2.INI")
  985.  
  986. @Outline3@<:#240,9360>writeprofilestring("AutoStyleSheets", "Fax", fax, "AMIPRO2.INI")
  987.  
  988. @Outline3@<:#240,9360>writeprofilestring("AutoStyleSheets", "DataGood", 1, "AMIPRO2.INI")
  989.  
  990. @Subhead@<:#240,9360>'put envelope builder here
  991.  
  992. @Subhead@<:#240,9360>'font handler
  993.  
  994. @Outline3@<:#240,9360>font = GetGlobalVar$(HFONT)        ' If we created
  995.  
  996. @Outline3@<:#240,9360>if (0 != font)                ' the font.
  997.  
  998. @Outline3@<:#240,9360>    DeleteObject(font)        ' Delete it
  999.  
  1000. @Outline3@<:#240,9360>endif
  1001.  
  1002. @Outline3@<:#240,9360>freeglobalvar(HFONT)
  1003.  
  1004. @Subhead@<:#240,9360>end function
  1005.  
  1006. @Title@<:#288,9360>function initdlg(hdlg, id, stuff)
  1007.  
  1008. @Subhead@<:#240,9360>Font = CreateFont(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
  1009.  
  1010. @Subhead@<:#240,9360>if (Font)
  1011.  
  1012. @Subhead@<:#240,9360>    for i = 8000 to 8007
  1013.  
  1014. @Subhead@<:#240,9360>        hctl = GetDlgItem(hDlg, i)
  1015.  
  1016. @Subhead@<:#240,9360>        SendMessage(hctl, WM_SETFONT, font, 0)
  1017.  
  1018. @Subhead@<:#240,9360>    next
  1019.  
  1020. @Subhead@<:#240,9360>    hctl=GetDlgItem(hDlg, 1011)
  1021.  
  1022. @Subhead@<:#240,9360>    SendMessage(hctl, WM_SETFONT, font, 0)
  1023.  
  1024. @Subhead@<:#240,9360>    SetGlobalVar(HFONT, Font)
  1025.  
  1026. @Subhead@<:#240,9360>endif 
  1027.  
  1028. @Subhead@<:#240,9360>end function
  1029.  
  1030. @Title@<:#288,9360>DIALOG    collect
  1031.  
  1032. @Subhead@<:#240,9360>-2134376448    19    22    44    280    148    ""    ""    "Personal Information"
  1033.  
  1034. @Subhead@<:#240,9360>FONT    8    "Helv"
  1035.  
  1036. @Subhead@<:#240,9360>15    7    30    10    1000    1342177280    "static"    "Name:"    0 
  1037.  
  1038. @Subhead@<:#240,9360>15    23    24    10    1001    1342177280    "static"    "Title:"    0 
  1039.  
  1040. @Subhead@<:#240,9360>15    38    38    10    1002    1342177280    "static"    "Company:"    0 
  1041.  
  1042. @Subhead@<:#240,9360>15    52    38    10    1003    1342177280    "static"    "Address 1:"    0 
  1043.  
  1044. @Subhead@<:#240,9360>15    68    38    10    1004    1342177280    "static"    "Address 2:"    0 
  1045.  
  1046. @Subhead@<:#240,9360>15    84    80    10    1005    1342177280    "static"    "Town, County Postcode:"    0 
  1047.  
  1048. @Subhead@<:#240,9360>15    99    30    10    1006    1342177280    "static"    "Phone:"    0 
  1049.  
  1050. @Subhead@<:#240,9360>15    116    30    10    1007    1342177280    "static"    "Fax:"    0 
  1051.  
  1052. @Subhead@<:#240,9360>111    4    122    12    8000    1350631552    "edit"    ""    0 
  1053.  
  1054. @Subhead@<:#240,9360>111    20    122    12    8001    1350631552    "edit"    ""    0 
  1055.  
  1056. @Subhead@<:#240,9360>111    36    122    12    8002    1350631552    "edit"    ""    0 
  1057.  
  1058. @Subhead@<:#240,9360>111    52    122    12    8003    1350631552    "edit"    ""    0 
  1059.  
  1060. @Subhead@<:#240,9360>111    68    122    12    8004    1350631552    "edit"    ""    0 
  1061.  
  1062. @Subhead@<:#240,9360>111    84    122    12    8005    1350631552    "edit"    ""    0 
  1063.  
  1064. @Subhead@<:#240,9360>111    100    122    12    8006    1350631552    "edit"    ""    0 
  1065.  
  1066. @Subhead@<:#240,9360>111    116    122    12    8007    1350631552    "edit"    ""    0 
  1067.  
  1068. @Subhead@<:#240,9360>236    4    40    14    1    1342373889    "button"    "OK"    0 
  1069.  
  1070. @Subhead@<:#240,9360>236    20    40    14    2    1342373888    "button"    "Cancel"    0 
  1071.  
  1072. @Subhead@<:#240,9360>15    130    220    12    1011    1342177280    "static"    "text"    0 
  1073.  
  1074. @Subhead@<:#240,9360>END DIALOG
  1075.  
  1076. >
  1077.  
  1078. [Embedded]
  1079. 00014255
  1080. >
  1081. [macsum] 3
  1082. datacollector 0 0 23 7
  1083. initdlg 2968 3 4 99
  1084. collect 3379 0 -1 111
  1085. [macse]
  1086. 14 datacollector
  1087. 0 271 "Setfont:hFont" 1
  1088. 0 264 "Setfont:hFont" 0
  1089. 0 802
  1090. 13
  1091. 8 1
  1092. 0 286 "AutoStyleSheets" "DataGood" "AMIPRO2.INI"
  1093. 13
  1094. 8 2
  1095. 6 2
  1096. 7 ""
  1097. 18 0
  1098. 11 00000238
  1099. 0 287 "AutoStyleSheets" "DataGood" 0 "AMIPRO2.INI"
  1100. 10 00000732
  1101. 6 2
  1102. 5 1
  1103. 18 0
  1104. 11 00000732
  1105. 0 286 "AutoStyleSheets" "Name" "AMIPRO2.INI"
  1106. 13
  1107. 8 3
  1108. 0 286 "AutoStyleSheets" "Title" "AMIPRO2.INI"
  1109. 13
  1110. 8 4
  1111. 0 286 "AutoStyleSheets" "Company" "AMIPRO2.INI"
  1112. 13
  1113. 8 5
  1114. 0 286 "AutoStyleSheets" "Address1" "AMIPRO2.INI"
  1115. 13
  1116. 8 6
  1117. 0 286 "AutoStyleSheets" "Address2" "AMIPRO2.INI"
  1118. 13
  1119. 8 7
  1120. 0 286 "AutoStyleSheets" "CSZ" "AMIPRO2.INI"
  1121. 13
  1122. 8 8
  1123. 0 286 "AutoStyleSheets" "Phone" "AMIPRO2.INI"
  1124. 13
  1125. 8 9
  1126. 0 286 "AutoStyleSheets" "Fax" "AMIPRO2.INI"
  1127. 13
  1128. 8 10
  1129. 10 00001875
  1130. 0 286 "AmiPro" "UserName" "AMIPRO.INI"
  1131. 13
  1132. 8 3
  1133. 0 286 "MS Word User" "Sal" "WIN.INI"
  1134. 13
  1135. 8 11
  1136. 0 286 "MS Word User" "Name" "WIN.INI"
  1137. 13
  1138. 8 3
  1139. 0 286 "MS Word User" "Suffix" "WIN.INI"
  1140. 13
  1141. 8 12
  1142. 0 286 "MS Word User" "Company" "WIN.INI"
  1143. 13
  1144. 8 5
  1145. 0 286 "MS Word User" "Position" "WIN.INI"
  1146. 13
  1147. 8 4
  1148. 0 286 "MS Word User" "Address1" "WIN.INI"
  1149. 13
  1150. 8 6
  1151. 0 286 "MS Word User" "Address2" "WIN.INI"
  1152. 13
  1153. 8 7
  1154. 0 286 "MS Word User" "Town" "WIN.INI"
  1155. 13
  1156. 8 13
  1157. 0 286 "MS Word User" "County" "WIN.INI"
  1158. 13
  1159. 8 14
  1160. 0 286 "MS Word User" "Postcode" "WIN.INI"
  1161. 13
  1162. 8 15
  1163. 0 286 "MS Word User" "Phone" "WIN.INI"
  1164. 13
  1165. 8 9
  1166. 0 286 "MS Word User" "Fax" "WIN.INI"
  1167. 13
  1168. 8 10
  1169. 0 286 "MS Word User" "Writer" "WIN.INI"
  1170. 13
  1171. 8 16
  1172. 0 286 "MS Word User" "Typist" "WIN.INI"
  1173. 13
  1174. 8 17
  1175. 0 16 "{11}" " " "{3}" " " "{12}"
  1176. 13
  1177. 8 3
  1178. 0 16 "{13}" ", " "{14}" "  " "{15}"
  1179. 13
  1180. 8 8
  1181. 0 286 "AmiEnv" "defretad" "AMIPRO2.INI"
  1182. 13
  1183. 8 18
  1184. 6 18
  1185. 7 ""
  1186. 18 1
  1187. 11 00001875
  1188. 0 286 "AdrsBook" "{18}" "AMIPRO2.INI"
  1189. 13
  1190. 8 19
  1191. 0 20 "{19}" 2 "</e>"
  1192. 13
  1193. 8 20
  1194. 6 20
  1195. 5 -1
  1196. 18 1
  1197. 0 806 "{20}" 6
  1198. 13
  1199. 7 "Type y"
  1200. 18 1
  1201. 1 1
  1202. 11 00001875
  1203. 0 20 "{19}" 2 "</e>"
  1204. 13
  1205. 8 6
  1206. 0 20 "{19}" 3 "</e>"
  1207. 13
  1208. 8 7
  1209. 0 41 0 "{1}!initdlg"
  1210. 0 31 1011 "Type the information that you would like for your automated style sheets."
  1211. 0 31 8000 "{3}"
  1212. 0 31 8001 "{4}"
  1213. 0 31 8002 "{5}"
  1214. 0 31 8003 "{6}"
  1215. 0 31 8004 "{7}"
  1216. 0 31 8005 "{8}"
  1217. 0 31 8006 "{9}"
  1218. 0 31 8007 "{10}"
  1219. 0 26 "." "collect"
  1220. 13
  1221. 8 21
  1222. 6 21
  1223. 5 0
  1224. 18 0
  1225. 11 00002193
  1226. 6 0
  1227. 15
  1228. 9
  1229. 0 27 8000
  1230. 13
  1231. 8 3
  1232. 0 27 8001
  1233. 13
  1234. 8 4
  1235. 0 27 8002
  1236. 13
  1237. 8 5
  1238. 0 27 8003
  1239. 13
  1240. 8 6
  1241. 0 27 8004
  1242. 13
  1243. 8 7
  1244. 0 27 8005
  1245. 13
  1246. 8 8
  1247. 0 27 8006
  1248. 13
  1249. 8 9
  1250. 0 27 8007
  1251. 13
  1252. 8 10
  1253. 0 287 "AutoStyleSheets" "Name" "{3}" "AMIPRO2.INI"
  1254. 0 287 "AutoStyleSheets" "Title" "{4}" "AMIPRO2.INI"
  1255. 0 287 "AutoStyleSheets" "Company" "{5}" "AMIPRO2.INI"
  1256. 0 287 "AutoStyleSheets" "Address1" "{6}" "AMIPRO2.INI"
  1257. 0 287 "AutoStyleSheets" "Address2" "{7}" "AMIPRO2.INI"
  1258. 0 287 "AutoStyleSheets" "CSZ" "{8}" "AMIPRO2.INI"
  1259. 0 287 "AutoStyleSheets" "Phone" "{9}" "AMIPRO2.INI"
  1260. 0 287 "AutoStyleSheets" "Fax" "{10}" "AMIPRO2.INI"
  1261. 0 287 "AutoStyleSheets" "DataGood" 1 "AMIPRO2.INI"
  1262. 0 265 "Setfont:hFont"
  1263. 13
  1264. 8 22
  1265. 5 0
  1266. 6 22
  1267. 18 1
  1268. 11 00002933
  1269. 0 284 "gdi,DeleteObject,HH" "{22}"
  1270. 0 266 "Setfont:hFont"
  1271. 6 0
  1272. 15
  1273. 9
  1274. 14 initdlg
  1275. 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
  1276. 13
  1277. 8 4
  1278. 6 4
  1279. 11 00000399
  1280. 5 8000
  1281. 8 5
  1282. 5 8007
  1283. 6 5
  1284. 18 2
  1285. 12 00000206
  1286. 10 00000295
  1287. 5 1
  1288. 6 5
  1289. 3 0
  1290. 8 5
  1291. 10 00000128
  1292. 0 44 "{0}" "{5}"
  1293. 13
  1294. 8 6
  1295. 0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{4}" 0
  1296. 10 00000173
  1297. 0 44 "{0}" 1011
  1298. 13
  1299. 8 6
  1300. 0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{4}" 0
  1301. 0 264 "Setfont:hFont" "{4}"
  1302. 6 3
  1303. 15
  1304. 9
  1305. DIALOG collect
  1306. -2134376448 19 22 44 280 148 "" "" "Personal Information" 
  1307. FONT 8 "Helv" 
  1308. 15 7 30 10 1000 1342177280 "static" "Name:" 0 
  1309. 15 23 24 10 1001 1342177280 "static" "Title:" 0 
  1310. 15 38 38 10 1002 1342177280 "static" "Company:" 0 
  1311. 15 52 38 10 1003 1342177280 "static" "Address 1:" 0 
  1312. 15 68 38 10 1004 1342177280 "static" "Address 2:" 0 
  1313. 15 84 80 10 1005 1342177280 "static" "Town, County Postcode:" 0 
  1314. 15 99 30 10 1006 1342177280 "static" "Phone:" 0 
  1315. 15 116 30 10 1007 1342177280 "static" "Fax:" 0 
  1316. 111 4 122 12 8000 1350631552 "edit" "" 0 
  1317. 111 20 122 12 8001 1350631552 "edit" "" 0 
  1318. 111 36 122 12 8002 1350631552 "edit" "" 0 
  1319. 111 52 122 12 8003 1350631552 "edit" "" 0 
  1320. 111 68 122 12 8004 1350631552 "edit" "" 0 
  1321. 111 84 122 12 8005 1350631552 "edit" "" 0 
  1322. 111 100 122 12 8006 1350631552 "edit" "" 0 
  1323. 111 116 122 12 8007 1350631552 "edit" "" 0 
  1324. 236 4 40 14 1 1342373889 "button" "OK" 0 
  1325. 236 20 40 14 2 1342373888 "button" "Cancel" 0 
  1326. 15 130 220 12 1011 1342177280 "static" "text" 0 
  1327. 00014280
  1328.