home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 14 / 14.iso / s / s005 / 52.ddi / SAMPMAC.LIB / FONTUP.SMM < prev    next >
Encoding:
INI File  |  1993-10-21  |  6.7 KB  |  708 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _default.sty
  5. [charset]
  6.     82
  7.     ANSI (Windows, IBM CP 1252)
  8. [PanoseFontTable]
  9.     6
  10.     5
  11.     Courier
  12.     1794
  13.     2310
  14.     514
  15.     517
  16.     1028
  17.     times
  18.     514
  19.     774
  20.     1030
  21.     517
  22.     1027
  23.     helvetica
  24.     2818
  25.     1029
  26.     514
  27.     2562
  28.     1026
  29.     Helvetica
  30.     2818
  31.     1029
  32.     514
  33.     514
  34.     1026
  35.     Helv
  36.     2818
  37.     1029
  38.     514
  39.     770
  40.     1026
  41.     Times New Roman
  42.     514
  43.     774
  44.     1029
  45.     517
  46.     1027
  47. [revisions]
  48.     0
  49. [recfile]
  50.     
  51.     *
  52.     1
  53.     1
  54.     3
  55.     8
  56.     0
  57.     0
  58. [lang]
  59.     1
  60. [desc]
  61.     Make text larger
  62.     
  63.     
  64.     
  65.     
  66.     751229370
  67.     1
  68.     750620291
  69.     73
  70.     0
  71.     0
  72.     0
  73.     0
  74.     0
  75.     
  76.     
  77.     
  78.     
  79.     
  80.     
  81.     1
  82. [prn]
  83.     QMS-PS 810
  84. [port]
  85.     NW:\\SPEEDY\QMS
  86. [fopts]
  87.     0
  88.     1
  89.     0
  90.     0
  91. [lnopts]
  92.     2
  93.     Body Text
  94.     1
  95. [docopts]
  96.     5
  97.     2
  98. [GramStyle]
  99.     
  100. [tag]
  101.     Outline4
  102.     1
  103.     [fnt]
  104.         Times New Roman
  105.         200
  106.         0
  107.         49152
  108.     [algn]
  109.         1
  110.         1
  111.         0
  112.         0
  113.         0
  114.     [spc]
  115.         33
  116.         0
  117.         1
  118.         72
  119.         72
  120.         1
  121.         100
  122.     [brk]
  123.         4
  124.     [line]
  125.         8
  126.         0
  127.         1
  128.         0
  129.         0
  130.         1
  131.         1
  132.         144
  133.         144
  134.         1
  135.     [spec]
  136.         0
  137.         4
  138.         
  139.         0
  140.         1
  141.         1
  142.         0
  143.         0
  144.         0
  145.         0
  146.     [nfmt]
  147.         272
  148.         1
  149.         2
  150.         .
  151.         ,
  152.         $
  153.     Outline3
  154.     0
  155.     0
  156. [tag]
  157.     Outline3
  158.     1
  159.     [fnt]
  160.         Times New Roman
  161.         200
  162.         0
  163.         49152
  164.     [algn]
  165.         1
  166.         1
  167.         0
  168.         0
  169.         0
  170.     [spc]
  171.         33
  172.         0
  173.         1
  174.         72
  175.         72
  176.         1
  177.         100
  178.     [brk]
  179.         4
  180.     [line]
  181.         8
  182.         0
  183.         1
  184.         0
  185.         0
  186.         1
  187.         1
  188.         144
  189.         144
  190.         1
  191.     [spec]
  192.         0
  193.         3
  194.         
  195.         0
  196.         1
  197.         1
  198.         0
  199.         0
  200.         0
  201.         0
  202.     [nfmt]
  203.         272
  204.         1
  205.         2
  206.         .
  207.         ,
  208.         $
  209.     Outline3
  210.     0
  211.     0
  212. [tag]
  213.     Outline1
  214.     1
  215.     [fnt]
  216.         Times New Roman
  217.         240
  218.         0
  219.         49153
  220.     [algn]
  221.         1
  222.         1
  223.         0
  224.         0
  225.         0
  226.     [spc]
  227.         33
  228.         0
  229.         1
  230.         72
  231.         0
  232.         1
  233.         100
  234.     [brk]
  235.         16
  236.     [line]
  237.         8
  238.         0
  239.         1
  240.         0
  241.         0
  242.         1
  243.         1
  244.         144
  245.         144
  246.         1
  247.     [spec]
  248.         0
  249.         1
  250.         
  251.         0
  252.         1
  253.         1
  254.         0
  255.         0
  256.         0
  257.         0
  258.     [nfmt]
  259.         272
  260.         1
  261.         2
  262.         .
  263.         ,
  264.         $
  265.     Outline1
  266.     0
  267.     0
  268. [tag]
  269.     Outline2
  270.     1
  271.     [fnt]
  272.         Times New Roman
  273.         200
  274.         0
  275.         49152
  276.     [algn]
  277.         1
  278.         1
  279.         216
  280.         0
  281.         0
  282.     [spc]
  283.         33
  284.         0
  285.         1
  286.         0
  287.         0
  288.         1
  289.         100
  290.     [brk]
  291.         4
  292.     [line]
  293.         8
  294.         0
  295.         1
  296.         0
  297.         0
  298.         1
  299.         1
  300.         144
  301.         144
  302.         1
  303.     [spec]
  304.         0
  305.         2
  306.         
  307.         0
  308.         1
  309.         1
  310.         0
  311.         16
  312.         0
  313.         0
  314.     [nfmt]
  315.         272
  316.         1
  317.         3
  318.         .
  319.         ,
  320.         $
  321.     Outline2
  322.     0
  323.     0
  324. [tag]
  325.     Title
  326.     8
  327.     [fnt]
  328.         Helvetica
  329.         280
  330.         0
  331.         49153
  332.     [algn]
  333.         1
  334.         1
  335.         0
  336.         0
  337.         0
  338.     [spc]
  339.         33
  340.         0
  341.         1
  342.         144
  343.         72
  344.         1
  345.         100
  346.     [brk]
  347.         16
  348.     [line]
  349.         8
  350.         0
  351.         1
  352.         0
  353.         0
  354.         1
  355.         1
  356.         144
  357.         144
  358.         1
  359.     [spec]
  360.         0
  361.         1
  362.         
  363.         0
  364.         1
  365.         1
  366.         0
  367.         0
  368.         0
  369.         0
  370.     [nfmt]
  371.         272
  372.         1
  373.         2
  374.         .
  375.         ,
  376.         $
  377.     Title
  378.     0
  379.     0
  380. [lay]
  381.     Standard
  382.     513
  383.     [rght]
  384.         15840
  385.         12240
  386.         1
  387.         1440
  388.         1440
  389.         1
  390.         1440
  391.         1440
  392.         0
  393.         1
  394.         0
  395.         1
  396.         0
  397.         2
  398.         1
  399.         1440
  400.         10800
  401.         12
  402.         1
  403.         720
  404.         1
  405.         1440
  406.         1
  407.         2160
  408.         1
  409.         2880
  410.         1
  411.         3600
  412.         1
  413.         4320
  414.         1
  415.         5040
  416.         1
  417.         5760
  418.         1
  419.         6480
  420.         1
  421.         7200
  422.         1
  423.         7920
  424.         1
  425.         8640
  426.     [frght]
  427.     [lyfrm]
  428.         0
  429.         13184
  430.         0
  431.         14400
  432.         12240
  433.         15840
  434.         0
  435.         1
  436.         1
  437.         0 0 0 0 0 0 0
  438.         0
  439.         16777215
  440.         0
  441.     [frmlay]
  442.         15840
  443.         12240
  444.         1
  445.         1440
  446.         792
  447.         1
  448.         14472
  449.         1440
  450.         0
  451.         1
  452.         0
  453.         0
  454.         0
  455.         0
  456.         1
  457.         1440
  458.         10800
  459.         2
  460.         2
  461.         4680
  462.         3
  463.         9360
  464.     [txt]
  465. <:s><:#P30670848,P943718>
  466.  
  467. >
  468.     [hrght]
  469.     [lyfrm]
  470.         0
  471.         11136
  472.         0
  473.         0
  474.         12240
  475.         1440
  476.         0
  477.         1
  478.         1
  479.         0 0 0 0 0 0 0
  480.         0
  481.         16777215
  482.         0
  483.     [frmlay]
  484.         1440
  485.         12240
  486.         1
  487.         1440
  488.         72
  489.         1
  490.         792
  491.         1440
  492.         0
  493.         1
  494.         0
  495.         0
  496.         0
  497.         0
  498.         1
  499.         1440
  500.         10800
  501.         2
  502.         2
  503.         4680
  504.         3
  505.         9360
  506.     [txt]
  507. <:s><:#P30670848,P943718>
  508.  
  509. >
  510. [elay]
  511. [l1]
  512.     0
  513. [edoc]
  514. <:s><:#P30670848,P943718>Macro by <+!>Charlie Pappas & Mark Osborne
  515.  
  516. <:s><:#P30670848,P943718><:X3,0;Include "amixlate.sam!fontup">define TEXT_MENU    "&Text"
  517.  
  518. @Outline2@<:s>define UP_ITEM_POS    12
  519.  
  520. @Outline2@<:s>define UP_ITEM    "Font Up"
  521.  
  522. @Outline2@<:s>define UP_ITEM_HELP    "Increases the font size by 2 points"<:X~3,0;Include "amixlate.sam!fontup">
  523.  
  524. <:s><:#P30670848,P943718><-!>function main()
  525.  
  526. <:s><:#P30670848,P943718>result=IsOKToRun(FontChange)
  527.  
  528. <:s><:#P30670848,P943718>if result !=1
  529.  
  530. <:s><:#P30670848,P943718>    exit function
  531.  
  532. <:s><:#P30670848,P943718>endif
  533.  
  534. <:s><:#P30670848,P943718>ignorekeyboard(2)
  535.  
  536. <:s><:#P30670848,P943718>macfile = GetRunningMacroFile$() ' <:f200,QCourier,0,0,255>get the dos file name
  537.  
  538. <:s><:#P30670848,P943718><:f,,>globtot = GetGlobalVarCount()
  539.  
  540. <:s><:#P30670848,P943718>menustat = "OFF"
  541.  
  542. <:s><:#P30670848,P943718>if globtot <<<;> 0
  543.  
  544. <:s><:#P30670848,P943718>    Dim globnames(globtot)
  545.  
  546. <:s><:#P30670848,P943718>    GetGlobalVarNames(&globnames)
  547.  
  548. <:s><:#P30670848,P943718>    for i = 1 to globtot ' <:f200,QCourier,0,0,255>find the global var
  549.  
  550. <:s><:#P30670848,P943718>        <:f,,>if (globnames(i) = "FontUpStat")
  551.  
  552. <:s><:#P30670848,P943718>            menustat = "ON"
  553.  
  554. <:s><:#P30670848,P943718>            
  555.  
  556. <:s><:#P30670848,P943718>        endif
  557.  
  558. <:s><:#P30670848,P943718>    next 
  559.  
  560. <:s><:#P30670848,P943718>EndIf
  561.  
  562. <:s><:#P30670848,P943718>If menustat = "OFF"
  563.  
  564. <:s><:#P30670848,P943718>    AllocGlobalVar("FontUpStat",1) ' <:f200,QCourier,0,0,255>first time played, add menus
  565.  
  566. <:s><:#P30670848,P943718>    <:f,,>DeleteMenuItem(1,TEXT_MENU, UP_ITEM)
  567.  
  568. <:s><:#P30670848,P1887436>    InsertMenuItem(1,TEXT_MENU, UP_ITEM_POS, UP_ITEM,  "{MacFile}!smaller()", UP_ITEM_HELP)
  569.  
  570. <:s><:#P30670848,P943718>    SetGlobalVar("FontUpStat","ON")
  571.  
  572. <:s><:#P30670848,P943718>Endif
  573.  
  574. <:s><:#P30670848,P943718>
  575.  
  576. <:s><:#P30670848,P943718>call bigger() ' <:f200,QCourier,0,0,255>make call to make the font bigger
  577.  
  578. <:s><:#P30670848,P943718>
  579.  
  580. <:s><:#P30670848,P943718><:f,,>end function
  581.  
  582. <:s><:#P30670848,P943718>
  583.  
  584. <:s><:#P30670848,P943718>
  585.  
  586. <:s><:#P30670848,P943718>function bigger()
  587.  
  588. <:s><:#P30670848,P943718>defstr name, color, size, family
  589.  
  590. <:s><:#P30670848,P943718>GetCurFontInfo(&name, &color, &size, &family) ' <:f200,QCourier,0,0,255>what is the current font?
  591.  
  592. <:s><:#P30670848,P943718><:f,,>FontChange(Name, 0, Color, (Size  + 40)) ' <:f200,QCourier,0,0,255>add size to existing size
  593.  
  594. <:s><:#P30670848,P943718><:f,,>end function
  595. >
  596.  
  597. [Embedded]
  598. 00005836
  599. >
  600. [macsum4] 2 12
  601. main 0 0 7 5
  602. bigger 765 0 5 36
  603. [macse]
  604. 14 main
  605. 29 0 main
  606. 17 1
  607. 29 1 result
  608. 0 79 251
  609. 13
  610. 8 1
  611. 17 2
  612. 6 1
  613. 5 1
  614. 18 1
  615. 11 00000105
  616. 6 0
  617. 15
  618. 9
  619. 17 5
  620. 0 32 2
  621. 17 6
  622. 29 2 macfile
  623. 0 802
  624. 13
  625. 8 2
  626. 17 7
  627. 29 3 globtot
  628. 0 299
  629. 13
  630. 8 3
  631. 17 8
  632. 29 4 menustat
  633. 7 "OFF"
  634. 8 4
  635. 17 9
  636. 6 3
  637. 5 0
  638. 18 1
  639. 11 00000502
  640. 17 10
  641. 6 3
  642. 29 5 globnames
  643. 21 5 [X]
  644. 17 11
  645. 0 300 &5
  646. 29 6 i
  647. 5 1
  648. 8 6
  649. 17 12
  650. 6 3
  651. 6 6
  652. 18 2
  653. 12 00000416
  654. 10 00000502
  655. 5 1
  656. 6 6
  657. 3 0
  658. 8 6
  659. 10 00000334
  660. 17 13
  661. 6 6
  662. 22 5
  663. 7 "FontUpStat"
  664. 18 0
  665. 11 00000489
  666. 17 14
  667. 7 "ON"
  668. 8 4
  669. 10 00000383
  670. 17 19
  671. 6 4
  672. 7 "OFF"
  673. 18 0
  674. 11 00000728
  675. 17 20
  676. 0 271 "FontUpStat" 1
  677. 17 21
  678. 0 520 1 "&Text" "Font Up"
  679. 17 22
  680. 0 527 1 "&Text" 12 "Font Up" "{2}!smaller()" "Increases the font size by 2 points"
  681. 17 23
  682. 0 264 "FontUpStat" "ON"
  683. 17 26
  684. 16 bigger
  685. 6 0
  686. 15
  687. 17 28
  688. 9
  689. 14 bigger
  690. 29 0 bigger
  691. 17 1
  692. 29 1 name
  693. 29 2 color
  694. 29 3 size
  695. 29 4 family
  696. 17 2
  697. 0 804 &1 &2 &3 &4
  698. 17 3
  699. 6 3
  700. 5 40
  701. 3 0
  702. 16 _$$1FontChange "{1}" 0 "{2}" [X]
  703. 6 0
  704. 15
  705. 17 4
  706. 9
  707. 00005861
  708.