home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 18 / 18.iso / w / w252 / 4.ddi / MACROS.CMZ / FONTUP.SMM < prev    next >
Encoding:
INI File  |  1991-08-19  |  863 b   |  83 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.     PostScript Printer
  13. [lang]
  14.     1
  15. [desc]
  16.     Makes the selected font 2 points bigger.  Assign to the icon that has the letter with the arrows pointing up.
  17.     Lotus WPD Marketing
  18.     Intermediate
  19.     GetCurFontInfo, FontChange
  20.     
  21.     682670327
  22.     9
  23.     670617369
  24.     13
  25.     1
  26.     0
  27.     0
  28.     0
  29.     0
  30.     
  31.     
  32.     
  33.     
  34.     
  35.     
  36.     0
  37. [fopts]
  38.     0
  39.     1
  40.     0
  41.     0
  42. [lnopts]
  43.     2
  44.     Body Text
  45.     1
  46. [docopts]
  47.     5
  48.     2
  49. [l1]
  50.     0
  51. [edoc]
  52. Macro by <+!>Charlie Pappas<-!>
  53.  
  54.  
  55. function bigger()
  56.  
  57. defstr name, color, size, family
  58.  
  59. GetCurFontInfo(&name, &color, &size, &family)
  60.  
  61. FontChange(Name, 0, Color, (Size + 40))
  62.  
  63. end function
  64.  
  65. >
  66.  
  67. [Embedded]
  68. 00000706
  69. >
  70. [macsum] 1
  71. bigger 0 0 5 2
  72. [macse]
  73. 14 bigger
  74. 0 804 &1 &2 &3 &4
  75. 6 3
  76. 5 40
  77. 3 0
  78. 2 251 1 "{1}" 0 "{2}" [X]
  79. 6 0
  80. 15
  81. 9
  82. 00000731
  83.