home *** CD-ROM | disk | FTP | other *** search
/ Program Metropolis - Software Boutique 95 / SOFTWARECD.iso / camipro3 / macros.cmz / FONTUP.SMM < prev    next >
Encoding:
INI File  |  1994-08-14  |  3.0 KB  |  216 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     CHINESEBIG5 (Windows)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PostScript Printer
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     ¿╧ñσªr┼▄ñj
  19.     Lotus WPD Marketing
  20.     Intermediate
  21.     FontChange, GetCurFontInfo
  22.     noautorun
  23.     773686812
  24.     30
  25.     670617369
  26.     391
  27.     1
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  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. [l1]
  54.     0
  55. [pg]
  56.     1
  57.     39 0 12 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
  58. [edoc]
  59. <:#293,9025>Macro by <+!>Charlie Pappas & Mark Osborne<-!>
  60.  
  61. <:#284,9025>define IsOKToRun(menuname)    GetInfo(217, 24, %1);
  62.  
  63. <:#284,9025>
  64.  
  65. <:#284,9025>function main()
  66.  
  67. <:#284,9025>result=IsOKToRun(FontChange)
  68.  
  69. <:#284,9025>if result !=1
  70.  
  71. <:#284,9025>    exit function
  72.  
  73. <:#284,9025>endif
  74.  
  75. <:#284,9025>ignorekeyboard(2)
  76.  
  77. <:#284,9025>macfile = GetRunningMacroFile$() ' <:f200,QCourier,0,0,255>get the dos file name
  78.  
  79. <:#284,9025>globtot = GetGlobalVarCount()
  80.  
  81. <:#284,9025>menustat = "OFF"
  82.  
  83. <:#284,9025>if globtot <<<;> 0
  84.  
  85. <:#284,9025>    Dim globnames(globtot)
  86.  
  87. <:#284,9025>    GetGlobalVarNames(&globnames)
  88.  
  89. <:#284,9025>    for i = 1 to globtot ' <:f200,QCourier,0,0,255>find the global var
  90.  
  91. <:#284,9025>        if (globnames(i) = "FontUpStat")
  92.  
  93. <:#284,9025>            menustat = "ON"
  94.  
  95. <:#284,9025>        endif
  96.  
  97. <:#284,9025>    next 
  98.  
  99. <:#284,9025>EndIf
  100.  
  101. <:#284,9025>If menustat = "OFF"
  102.  
  103. <:#284,9025>    AllocGlobalVar("FontUpStat",1) ' <:f200,QCourier,0,0,255>first time played, add menus<:f>
  104.  
  105. <:#284,9025>    DeleteMenuItem(1,"ñσªr(&T)", "Font Up")
  106.  
  107. <:#568,9025>    InsertMenuItem(1,"ñσªr(&T)", 12,"Font Up", "{MacFile}!bigger()", "Increases the 
  108.         font     size by 2 points")
  109.  
  110. <:#284,9025>    
  111.  
  112. <:#284,9025>    SetGlobalVar("FontUpStat","ON")
  113.  
  114. <:#284,9025>Endif
  115.  
  116. <:#284,9025>
  117.  
  118. <:#284,9025>call bigger() ' <:f200,QCourier,0,0,255>make call to make the font bigger
  119.  
  120. <:#284,9025>
  121.  
  122. <:#284,9025>end function
  123.  
  124. <:#284,9025>
  125.  
  126. <:#284,9025>
  127.  
  128. <:#284,9025>function bigger()
  129.  
  130. <:#284,9025>defstr name, color, size, family
  131.  
  132. <:#284,9025>GetCurFontInfo(&name, &color, &size, &family) ' <:f200,QCourier,0,0,255>what is the current font?<:f>
  133.  
  134. <:#284,9025>FontChange(Name, 0, Color, (Size  + 40)) ' <:f200,QCourier,0,0,255>add size to existing size
  135.  
  136. <:#284,9025>end function
  137.  
  138. >
  139.  
  140. [Embedded]
  141. 00002322
  142. >
  143. [macsum] 2
  144. main 0 0 7 3
  145. bigger 565 0 5 34
  146. [macse]
  147. 14 main
  148. 0 1313 217 24 251
  149. 13
  150. 8 1
  151. 6 1
  152. 5 1
  153. 18 1
  154. 11 00000078
  155. 6 0
  156. 15
  157. 9
  158. 0 32 2
  159. 0 802
  160. 13
  161. 8 2
  162. 0 299
  163. 13
  164. 8 3
  165. 7 "OFF"
  166. 8 4
  167. 6 3
  168. 5 0
  169. 18 1
  170. 11 00000343
  171. 6 3
  172. 21 5 [X]
  173. 0 300 &5
  174. 5 1
  175. 8 6
  176. 6 3
  177. 6 6
  178. 18 2
  179. 12 00000271
  180. 10 00000343
  181. 5 1
  182. 6 6
  183. 3 0
  184. 8 6
  185. 10 00000196
  186. 6 6
  187. 22 5
  188. 7 "FontUpStat"
  189. 18 0
  190. 11 00000330
  191. 7 "ON"
  192. 8 4
  193. 10 00000238
  194. 6 4
  195. 7 "OFF"
  196. 18 0
  197. 11 00000542
  198. 0 271 "FontUpStat" 1
  199. 0 520 1 "ñσªr(&T)" "Font Up"
  200. 0 527 1 "ñσªr(&T)" 12 "Font Up" "{2}!bigger()" "Increases the         font     size by 2 points"
  201. 0 264 "FontUpStat" "ON"
  202. 16 bigger
  203. 6 0
  204. 15
  205. 9
  206. 14 bigger
  207. 0 804 &1 &2 &3 &4
  208. 6 3
  209. 5 40
  210. 3 0
  211. 2 251 1 "{1}" 0 "{2}" [X]
  212. 6 0
  213. 15
  214. 9
  215. 00002347
  216.