home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS018.DSK / FIT2SCRN.SMM < prev    next >
INI File  |  1992-06-11  |  4KB  |  257 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.     Apple LaserWriter Plus
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     View fit to screen
  19.     Lotus WPD
  20.     Advanced
  21.     API Calls
  22.     autorun
  23.     708314491
  24.     8
  25.     704844403
  26.     175
  27.     2
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     1
  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.     2
  59.     44 0 19 0 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.     47 0 13 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
  61. [edoc]
  62. <:#293,9360>Macro by <+!>Charlie Pappas, Peyton McManus and David Zoller<-!>
  63.  
  64. <:#284,9360>
  65.  
  66. <:#284,9360>define GetClientRect(hWnd, lpRect) dllcall("user,GetClientRect,HHN", %1, %2)
  67.  
  68. <:#284,9360>define Getfocus() DllCall("user,GetFocus,H")
  69.  
  70. <:#284,9360>define IsOKToRun(menuname)    GetInfo(217, 24, %1);
  71.  
  72. <:#284,9360>
  73.  
  74. <:#284,9360>Declare GetLayout()
  75.  
  76. <:#284,9360>
  77.  
  78. @Function@<:#293,9360>Function BestView()
  79.  
  80. <:#284,9360>result=IsOKToRun(CustomView)
  81.  
  82. <:#284,9360>if result != 1
  83.  
  84. <:#284,9360>    exit function
  85.  
  86. <:#284,9360>endif
  87.  
  88. <:#284,9360>ignorekeyboard(2)
  89.  
  90. <:#284,9360>CheckMenuItem(1, "&View", "&Fit to Screen", 1)
  91.  
  92. <:#284,9360>if not CheckMenuItem(1, "&View", "&Fit to Screen", 1)
  93.  
  94. <:#568,9360>    insertmenuitem(1, "&View", 1, "&Fit to Screen", getrunningmacrofile$(), "Set view level to show left to right margins of a document.")
  95.  
  96. <:#284,9360>    return 1
  97.  
  98. <:#284,9360>endif
  99.  
  100. <:#284,9360>CheckMenuItem(1, "&View", "&Fit to Screen", 0)
  101.  
  102. <:#284,9360>dim rect(4)
  103.  
  104. <:#284,9360>Size = GetLayout()
  105.  
  106. <:#284,9360>getclientrect(getfocus(), &rect)
  107.  
  108. <:#284,9360>newview = round(((rect(3) / 623) * (9144 / size) * 100))
  109.  
  110. <:#284,9360>
  111.  
  112. <:#284,9360>If NewView <;> 10 and NewView << 401
  113.  
  114. <:#284,9360>    disp=GetProfileString$("AmiPro","Display","AMIPRO.INI")
  115.  
  116. <:#284,9360>    if disp = ""
  117.  
  118. <:#284,9360>        disp = 19590
  119.  
  120. <:#284,9360>    endif
  121.  
  122. <:#284,9360>    ViewPreferences(Disp,NewView)
  123.  
  124. <:#284,9360>Endif
  125.  
  126. <:#284,9360>customview()
  127.  
  128. <:#284,9360>End Function
  129.  
  130. <:#284,9360>
  131.  
  132. <:#284,9360>
  133.  
  134. @Function@<:#293,9360>FUNCTION GetLayout()
  135.  
  136. <:#284,9360>ignorekeyboard(2)
  137.  
  138. <:#284,9360>DefStr pm, WidthTwips, cp, dz;
  139.  
  140. <:#284,9360>Cnt = GetLayoutParmCnt(ModLayoutRightPage) ' Get number of parameters 
  141.  
  142. <:#284,9360>DIM Stuff(Cnt)'Dimension an array for that amount
  143.  
  144. <:#284,9360>GetLayoutParameters(ModLayoutRightPage, &Stuff) ' Get the parameters and 
  145.  
  146. <:#284,9360>GetLayoutPageSize(&pm, &WidthTwips, &cp, &dz)
  147.  
  148. <:#284,9360>LeftMargin=Stuff(1)
  149.  
  150. <:#284,9360>RightMargin=Stuff(3)
  151.  
  152. <:#284,9360>getlayout = WidthTwips-LeftMargin-RightMargin
  153.  
  154. <:#284,9360>END FUNCTION 
  155.  
  156. >
  157.  
  158. [Embedded]
  159. 00002748
  160. >
  161. [macsum] 2
  162. BestView 0 0 6 8
  163. GetLayout 716 0 9 36
  164. [macse]
  165. 14 BestView
  166. 0 1313 217 24 202
  167. 13
  168. 8 1
  169. 6 1
  170. 5 1
  171. 18 1
  172. 11 00000082
  173. 6 0
  174. 15
  175. 9
  176. 0 32 2
  177. 0 518 1 "&View" "&Fit to Screen" 1
  178. 0 518 1 "&View" "&Fit to Screen" 1
  179. 13
  180. 1 3
  181. 11 00000309
  182. 0 802
  183. 13
  184. 0 527 1 "&View" 1 "&Fit to Screen" [X] "Set view level to show left to right margins of a document."
  185. 5 1
  186. 15
  187. 9
  188. 0 518 1 "&View" "&Fit to Screen" 0
  189. 5 4
  190. 21 2 [X]
  191. 16 GetLayout
  192. 13
  193. 8 3
  194. 0 284 "user,GetFocus,H"
  195. 13
  196. 0 284 "user,GetClientRect,HHN" [X] &2
  197. 5 3
  198. 22 2
  199. 5 623
  200. 4 1
  201. 5 9144
  202. 6 3
  203. 4 1
  204. 4 0
  205. 5 100
  206. 4 0
  207. 0 786 [X]
  208. 13
  209. 8 4
  210. 6 4
  211. 5 10
  212. 18 3
  213. 6 4
  214. 5 401
  215. 18 5
  216. 1 1
  217. 11 00000695
  218. 0 286 "AmiPro" "Display" "AMIPRO.INI"
  219. 13
  220. 8 5
  221. 6 5
  222. 7 ""
  223. 18 0
  224. 11 00000674
  225. 5 19590
  226. 8 5
  227. 2 206 1 "{5}" "{4}"
  228. 2 202 1
  229. 6 0
  230. 15
  231. 9
  232. 14 GetLayout
  233. 0 32 2
  234. 0 1285 363
  235. 13
  236. 8 5
  237. 6 5
  238. 21 6 [X]
  239. 0 1286 363 &6
  240. 0 1282 &1 &2 &3 &4
  241. 5 1
  242. 22 6
  243. 8 7
  244. 5 3
  245. 22 6
  246. 8 8
  247. 6 2
  248. 6 7
  249. 3 1
  250. 6 8
  251. 3 1
  252. 8 0
  253. 6 0
  254. 15
  255. 9
  256. 00002773
  257.