home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS018.DSK / FONTDN.SMM < prev    next >
Encoding:
INI File  |  1992-06-11  |  3.1 KB  |  219 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. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Make text smaller
  19.     Lotus WPD Marketing
  20.     Intermediate
  21.     FontChange, GetCurFontInfo
  22.     noautorun
  23.     708314330
  24.     26
  25.     670617369
  26.     394
  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. [ParaNum]
  54.     1
  55. [l1]
  56.     0
  57. [pg]
  58.     1
  59.     40 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
  60. [edoc]
  61. <:#293,9360>Macro by <+!>Charlie Pappas & Mark Osborne<-!>
  62.  
  63. define IsOKToRun(menuname)    GetInfo(217, 24, %1);
  64.  
  65.  
  66. @Function@function main()
  67.  
  68. result=IsOKToRun(FontChange)
  69.  
  70. if result !=1
  71.  
  72.     exit function
  73.  
  74. endif
  75.  
  76. ignorekeyboard(2)
  77.  
  78. <:#284,9360>macfile = GetRunningMacroFile$() ' <:f200,QCourier,0,0,255>dos file name and path
  79.  
  80. <:#284,9360>globtot = GetGlobalVarCount() ' <:f240,QCourier,0,0,255>how many global variables<:f>
  81.  
  82. <:#284,9360>menustat = "OFF"
  83.  
  84. <:#284,9360>if globtot <<<;> 0
  85.  
  86. <:#284,9360>    Dim globnames(globtot)
  87.  
  88. <:#284,9360>    GetGlobalVarNames(&globnames)
  89.  
  90. <:#284,9360>    for i = 1 to globtot ' <:f200,QCourier,0,0,255>run<:f200,QCourier,0,0,255> through globals looking for our var
  91.  
  92. <:#284,9360>        if (globnames(i) = "FontDnStat")
  93.  
  94. <:#284,9360>            menustat = "ON"
  95.  
  96. <:#284,9360>        endif
  97.  
  98. <:#284,9360>    next 
  99.  
  100. <:#284,9360>endif
  101.  
  102. <:#284,9360>
  103.  
  104. <:#284,9360>If menustat = "OFF"
  105.  
  106. <:#284,9360>    AllocGlobalVar("FontDnStat",1) ' <:f200,QCourier,0,0,255>fir<:f200,QCourier,0,0,255>st time played so add menus
  107.  
  108. <:#284,9360>    DeleteMenuItem(1,"&Text", "FontDown")
  109.  
  110. <:#284,9360>    
  111.  
  112. <:#568,9360>    InsertMenuItem(1,"&Text",12,"Font Down", "{MacFile}!smaller()", "Decreases the 
  113.         font     size by 2 points")
  114.  
  115. <:#284,9360>    SetGlobalVar("FontDnStat","ON")
  116.  
  117. <:#284,9360>Endif
  118.  
  119. <:#284,9360>
  120.  
  121. <:#284,9360>call smaller() ' <:f200,QCourier,0,0,255>make the font smaller
  122.  
  123. <:#284,9360>
  124.  
  125. <:#284,9360>end function
  126.  
  127. <:#284,9360>
  128.  
  129. <:#284,9360>
  130.  
  131. <:#284,9360>function smaller() ' <:f200,QCourier,0,0,255>function<:f200,QCourier,0,0,255> to make the font smaller
  132.  
  133. <:#284,9360>defstr name, color, size, family
  134.  
  135. <:#284,9360>GetCurFontInfo(&name, &color, &size, &family) ' <:f200,QCourier,0,0,255>w<:f200,QCourier,0,0,255>hat size is it?
  136.  
  137. <:#284,9360>FontChange(Name, 0, Color, (Size - 40)) ' <:f200,QCourier,0,0,255>make it smaller
  138.  
  139. <:#284,9360>end function
  140.  
  141. >
  142.  
  143. [Embedded]
  144. 00002472
  145. >
  146. [macsum] 2
  147. main 0 0 7 3
  148. smaller 564 0 5 35
  149. [macse]
  150. 14 main
  151. 0 1313 217 24 251
  152. 13
  153. 8 1
  154. 6 1
  155. 5 1
  156. 18 1
  157. 11 00000078
  158. 6 0
  159. 15
  160. 9
  161. 0 32 2
  162. 0 802
  163. 13
  164. 8 2
  165. 0 299
  166. 13
  167. 8 3
  168. 7 "OFF"
  169. 8 4
  170. 6 3
  171. 5 0
  172. 18 1
  173. 11 00000343
  174. 6 3
  175. 21 5 [X]
  176. 0 300 &5
  177. 5 1
  178. 8 6
  179. 6 3
  180. 6 6
  181. 18 2
  182. 12 00000271
  183. 10 00000343
  184. 5 1
  185. 6 6
  186. 3 0
  187. 8 6
  188. 10 00000196
  189. 6 6
  190. 22 5
  191. 7 "FontDnStat"
  192. 18 0
  193. 11 00000330
  194. 7 "ON"
  195. 8 4
  196. 10 00000238
  197. 6 4
  198. 7 "OFF"
  199. 18 0
  200. 11 00000540
  201. 0 271 "FontDnStat" 1
  202. 0 520 1 "&Text" "FontDown"
  203. 0 527 1 "&Text" 12 "Font Down" "{2}!smaller()" "Decreases the         font     size by 2 points"
  204. 0 264 "FontDnStat" "ON"
  205. 16 smaller
  206. 6 0
  207. 15
  208. 9
  209. 14 smaller
  210. 0 804 &1 &2 &3 &4
  211. 6 3
  212. 5 40
  213. 3 1
  214. 2 251 1 "{1}" 0 "{2}" [X]
  215. 6 0
  216. 15
  217. 9
  218. 00002497
  219.