home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 14 / 14.iso / s / s005 / 52.ddi / SAMPMAC.LIB / FONTDN.SMM < prev    next >
Encoding:
INI File  |  1993-10-21  |  6.5 KB  |  652 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 smaller
  62.     
  63.     
  64.     
  65.     
  66.     751229207
  67.     2
  68.     750620291
  69.     63
  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.     Outline3
  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.         3
  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.     Outline1
  158.     1
  159.     [fnt]
  160.         Times New Roman
  161.         240
  162.         0
  163.         49153
  164.     [algn]
  165.         1
  166.         1
  167.         0
  168.         0
  169.         0
  170.     [spc]
  171.         33
  172.         0
  173.         1
  174.         72
  175.         0
  176.         1
  177.         100
  178.     [brk]
  179.         16
  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.         1
  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.     Outline1
  210.     0
  211.     0
  212. [tag]
  213.     Outline2
  214.     1
  215.     [fnt]
  216.         Times New Roman
  217.         200
  218.         0
  219.         49152
  220.     [algn]
  221.         1
  222.         1
  223.         216
  224.         0
  225.         0
  226.     [spc]
  227.         33
  228.         0
  229.         1
  230.         0
  231.         0
  232.         1
  233.         100
  234.     [brk]
  235.         4
  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.         2
  250.         
  251.         0
  252.         1
  253.         1
  254.         0
  255.         16
  256.         0
  257.         0
  258.     [nfmt]
  259.         272
  260.         1
  261.         3
  262.         .
  263.         ,
  264.         $
  265.     Outline2
  266.     0
  267.     0
  268. [tag]
  269.     Title
  270.     8
  271.     [fnt]
  272.         Helvetica
  273.         280
  274.         0
  275.         49153
  276.     [algn]
  277.         1
  278.         1
  279.         0
  280.         0
  281.         0
  282.     [spc]
  283.         33
  284.         0
  285.         1
  286.         144
  287.         72
  288.         1
  289.         100
  290.     [brk]
  291.         16
  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.         1
  306.         
  307.         0
  308.         1
  309.         1
  310.         0
  311.         0
  312.         0
  313.         0
  314.     [nfmt]
  315.         272
  316.         1
  317.         2
  318.         .
  319.         ,
  320.         $
  321.     Title
  322.     0
  323.     0
  324. [lay]
  325.     Standard
  326.     513
  327.     [rght]
  328.         15840
  329.         12240
  330.         1
  331.         1440
  332.         1440
  333.         1
  334.         1440
  335.         1440
  336.         0
  337.         1
  338.         0
  339.         1
  340.         0
  341.         2
  342.         1
  343.         1440
  344.         10800
  345.         12
  346.         1
  347.         720
  348.         1
  349.         1440
  350.         1
  351.         2160
  352.         1
  353.         2880
  354.         1
  355.         3600
  356.         1
  357.         4320
  358.         1
  359.         5040
  360.         1
  361.         5760
  362.         1
  363.         6480
  364.         1
  365.         7200
  366.         1
  367.         7920
  368.         1
  369.         8640
  370.     [frght]
  371.     [lyfrm]
  372.         0
  373.         13184
  374.         0
  375.         14400
  376.         12240
  377.         15840
  378.         0
  379.         1
  380.         1
  381.         0 0 0 0 0 0 0
  382.         0
  383.         16777215
  384.         0
  385.     [frmlay]
  386.         15840
  387.         12240
  388.         1
  389.         1440
  390.         792
  391.         1
  392.         14472
  393.         1440
  394.         0
  395.         1
  396.         0
  397.         0
  398.         0
  399.         0
  400.         1
  401.         1440
  402.         10800
  403.         2
  404.         2
  405.         4680
  406.         3
  407.         9360
  408.     [txt]
  409. <:s><:#P30670848,P943718>
  410.  
  411. >
  412.     [hrght]
  413.     [lyfrm]
  414.         0
  415.         11136
  416.         0
  417.         0
  418.         12240
  419.         1440
  420.         0
  421.         1
  422.         1
  423.         0 0 0 0 0 0 0
  424.         0
  425.         16777215
  426.         0
  427.     [frmlay]
  428.         1440
  429.         12240
  430.         1
  431.         1440
  432.         72
  433.         1
  434.         792
  435.         1440
  436.         0
  437.         1
  438.         0
  439.         0
  440.         0
  441.         0
  442.         1
  443.         1440
  444.         10800
  445.         2
  446.         2
  447.         4680
  448.         3
  449.         9360
  450.     [txt]
  451. <:s><:#P30670848,P943718>
  452.  
  453. >
  454. [elay]
  455. [l1]
  456.     0
  457. [edoc]
  458. <:s><:#P30670848,P943718>Macro by <+!>Charlie Pappas & Mark Osborne
  459.  
  460. <:s><:#P30670848,P943718><:X3,0;Include "amixlate.sam!fontdn">define TEXT_MENU    "&Text"
  461.  
  462. @Outline2@<:s>define DOWN_ITEM_POS    12
  463.  
  464. @Outline2@<:s>define DOWN_ITEM    "Font Down"
  465.  
  466. @Outline2@<:s>define DOWN_ITEM_HELP    "Decreases the font size by 2 points"<:X~3,0;Include "amixlate.sam!fontdn">
  467.  
  468. @Function@<:s><:#P30670848,P943718><-!>function main()
  469.  
  470. <:s><:#P30670848,P943718>result=IsOKToRun(FontChange)
  471.  
  472. <:s><:#P30670848,P943718>if result !=1
  473.  
  474. <:s><:#P30670848,P943718>    exit function
  475.  
  476. <:s><:#P30670848,P943718>endif
  477.  
  478. <:s><:#P30670848,P943718>ignorekeyboard(2)
  479.  
  480. <:s><:#P30670848,P943718>macfile = GetRunningMacroFile$() ' <:f200,QCourier,0,0,255>dos file name and path
  481.  
  482. <:s><:#P30670848,P959447><:f,,>globtot = GetGlobalVarCount() ' <:f240,QCourier,0,0,255>how many global variables
  483.  
  484. <:s><:#P30670848,P943718><:f,,>menustat = "OFF"
  485.  
  486. <:s><:#P30670848,P943718>if globtot <<<;> 0
  487.  
  488. <:s><:#P30670848,P943718>    Dim globnames(globtot)
  489.  
  490. <:s><:#P30670848,P943718>    GetGlobalVarNames(&globnames)
  491.  
  492. <:s><:#P30670848,P943718>    for i = 1 to globtot ' <:f200,QCourier,0,0,255>run through globals looking for our var
  493.  
  494. <:s><:#P30670848,P943718>        <:f,,>if (globnames(i) = "FontDnStat")
  495.  
  496. <:s><:#P30670848,P943718>            menustat = "ON"
  497.  
  498. <:s><:#P30670848,P943718>        endif
  499.  
  500. <:s><:#P30670848,P943718>    next 
  501.  
  502. <:s><:#P30670848,P943718>endif
  503.  
  504. <:s><:#P30670848,P943718>
  505.  
  506. <:s><:#P30670848,P943718>If menustat = "OFF"
  507.  
  508. <:s><:#P30670848,P943718>    AllocGlobalVar("FontDnStat",1) ' <:f200,QCourier,0,0,255>first time played so add menus
  509.  
  510. <:s><:#P30670848,P943718>    <:f,,>DeleteMenuItem(1,TEXT_MENU, DOWN_ITEM)
  511.  
  512. <:s><:#P30670848,P1887436>    InsertMenuItem(1,TEXT_MENU, DOWN_ITEM_POS, DOWN_ITEM,  "{MacFile}!smaller()", DOWN_ITEM_HELP)
  513.  
  514. <:s><:#P30670848,P943718>    SetGlobalVar("FontDnStat","ON")
  515.  
  516. <:s><:#P30670848,P943718>Endif
  517.  
  518. <:s><:#P30670848,P943718>
  519.  
  520. <:s><:#P30670848,P943718>call smaller() ' <:f200,QCourier,0,0,255>make the font smaller
  521.  
  522. <:s><:#P30670848,P943718>
  523.  
  524. <:s><:#P30670848,P943718><:f,,>end function
  525.  
  526. <:s><:#P30670848,P943718>
  527.  
  528. <:s><:#P30670848,P943718>
  529.  
  530. <:s><:#P30670848,P943718>function smaller() ' <:f200,QCourier,0,0,255>function to make the font smaller
  531.  
  532. <:s><:#P30670848,P943718><:f,,>defstr name, color, size, family
  533.  
  534. <:s><:#P30670848,P943718>GetCurFontInfo(&name, &color, &size, &family) ' <:f200,QCourier,0,0,255>what size is it?
  535.  
  536. <:s><:#P30670848,P943718><:f,,>FontChange(Name, 0, Color, (Size - 40)) ' <:f200,QCourier,0,0,255>make it smaller
  537.  
  538. <:s><:#P30670848,P943718><:f,,>end function
  539. >
  540.  
  541. [Embedded]
  542. 00005631
  543. >
  544. [macsum4] 2 13
  545. main 0 0 7 5
  546. smaller 770 0 5 36
  547. [macse]
  548. 14 main
  549. 29 0 main
  550. 17 1
  551. 29 1 result
  552. 0 79 251
  553. 13
  554. 8 1
  555. 17 2
  556. 6 1
  557. 5 1
  558. 18 1
  559. 11 00000105
  560. 6 0
  561. 15
  562. 9
  563. 17 5
  564. 0 32 2
  565. 17 6
  566. 29 2 macfile
  567. 0 802
  568. 13
  569. 8 2
  570. 17 7
  571. 29 3 globtot
  572. 0 299
  573. 13
  574. 8 3
  575. 17 8
  576. 29 4 menustat
  577. 7 "OFF"
  578. 8 4
  579. 17 9
  580. 6 3
  581. 5 0
  582. 18 1
  583. 11 00000502
  584. 17 10
  585. 6 3
  586. 29 5 globnames
  587. 21 5 [X]
  588. 17 11
  589. 0 300 &5
  590. 29 6 i
  591. 5 1
  592. 8 6
  593. 17 12
  594. 6 3
  595. 6 6
  596. 18 2
  597. 12 00000416
  598. 10 00000502
  599. 5 1
  600. 6 6
  601. 3 0
  602. 8 6
  603. 10 00000334
  604. 17 13
  605. 6 6
  606. 22 5
  607. 7 "FontDnStat"
  608. 18 0
  609. 11 00000489
  610. 17 14
  611. 7 "ON"
  612. 8 4
  613. 10 00000383
  614. 17 19
  615. 6 4
  616. 7 "OFF"
  617. 18 0
  618. 11 00000732
  619. 17 20
  620. 0 271 "FontDnStat" 1
  621. 17 21
  622. 0 520 1 "&Text" "Font Down"
  623. 17 22
  624. 0 527 1 "&Text" 12 "Font Down" "{2}!smaller()" "Decreases the font size by 2 points"
  625. 17 23
  626. 0 264 "FontDnStat" "ON"
  627. 17 26
  628. 16 smaller
  629. 6 0
  630. 15
  631. 17 28
  632. 9
  633. 14 smaller
  634. 29 0 smaller
  635. 17 1
  636. 29 1 name
  637. 29 2 color
  638. 29 3 size
  639. 29 4 family
  640. 17 2
  641. 0 804 &1 &2 &3 &4
  642. 17 3
  643. 6 3
  644. 5 40
  645. 3 1
  646. 16 _$$1FontChange "{1}" 0 "{2}" [X]
  647. 6 0
  648. 15
  649. 17 4
  650. 9
  651. 00005656
  652.