home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS018.DSK / TILEHORZ.SMM < prev    next >
INI File  |  1992-05-07  |  5KB  |  328 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.     Tile Horizontally open docs
  19.     Lotus WPD Marketing
  20.     Advanced
  21.     Indirection, Windows API's
  22.     autorun
  23.     705280560
  24.     30
  25.     673469260
  26.     280
  27.     2
  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.     2
  57.     42 0 11 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
  58.     66 0 0 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
  59. [edoc]
  60. <:#293,9360>Macro by <+!>Charlie Pappas<-!>
  61.  
  62. <:#284,9360>
  63.  
  64. <:#284,9360>define FindWindow() DllCall("user,FindWindow,HCC", %1, %2)
  65.  
  66. <:#284,9360>define isiconic(hWnd) DLLCall("user,isiconic,HA", %1)
  67.  
  68. <:#568,9360>define GetClassName(hwnd, name, len) dllcall("user,GetClassName,HHCH", %1, %2, %3)
  69.  
  70. <:#284,9360>define GetClientRect(hWnd, lpRect) dllcall("user,GetClientRect,HHN", %1, %2)
  71.  
  72. <:#284,9360>define GetWindow(hwnd, cmd) dllcall("user,GetWindow,HHH", %1, %2)
  73.  
  74. <:#568,9360>Define MoveWindow() DllCall("User,MoveWindow,HHHHHHA",%1,%2,%3,%4,%5,%6)
  75.  
  76. <:#284,9360>define SetFocus() DllCall("user,SetFocus,HH",%1)
  77.  
  78. <:#284,9360>
  79.  
  80. <:#284,9360>define GW_HWNDNEXT 2
  81.  
  82. <:#284,9360>define GW_CHILD 5
  83.  
  84. <:#284,9360>
  85.  
  86. <:#284,9360>
  87.  
  88. @Function@<:#293,9360>function tilehorz()
  89.  
  90. IF IsNewWave()
  91.  
  92.     Message("Macro not available while running under HP NewWave.")
  93.  
  94.     Exit Function
  95.  
  96. ENDIF
  97.  
  98. ignorekeyboard(2)
  99.  
  100. <:#284,9360>CheckMenuItem(1, "&Window", "Tile &Horizontally", 1)
  101.  
  102. <:#284,9360>if not CheckMenuItem(1, "&Window", "Tile &Horizontally", 1)
  103.  
  104. <:#568,9360>    insertmenuitem(1, "&Window", 2, "Tile &Horizontally", getrunningmacrofile$(), "Horizontally tile the open document windows")
  105.  
  106. <:#284,9360>    return 1
  107.  
  108. <:#284,9360>endif
  109.  
  110. <:#284,9360>CheckMenuItem(1, "&Window", "Tile &Horizontally", 0)
  111.  
  112. <:#284,9360>dim rect(4)
  113.  
  114. <:#284,9360>dim children(1)
  115.  
  116. <:#284,9360>hwnd = FindWindow("AmiProWndA", 0)
  117.  
  118. <:#284,9360>child = GetWindow(hwnd, GW_CHILD)
  119.  
  120. <:#284,9360>class = "";
  121.  
  122. <:#284,9360>while (child)
  123.  
  124. <:#284,9360>    GetClassName(child, &class, 80)
  125.  
  126. <:#284,9360>        if class = "MDIClient"
  127.  
  128. <:#284,9360>            hwnd = child
  129.  
  130. <:#284,9360>            getclientrect(hwnd, &rect)
  131.  
  132. <:#284,9360>            break
  133.  
  134. <:#284,9360>        endif
  135.  
  136. <:#284,9360>    child = GetWindow(child, GW_HWNDNEXT)
  137.  
  138. <:#284,9360>wend
  139.  
  140. <:#284,9360>child = GetWindow(hwnd, GW_CHILD)
  141.  
  142. <:#284,9360>class = "";
  143.  
  144. <:#284,9360>i = 0
  145.  
  146. <:#284,9360>while (child)
  147.  
  148. <:#284,9360>    GetClassName(child, &class, 80)
  149.  
  150. <:#284,9360>    if class = "MDICHILD"
  151.  
  152. <:#284,9360>        if not isiconic(child)
  153.  
  154. <:#284,9360>            i = i + 1
  155.  
  156. <:#284,9360>            ArrayInsert(&children, i, child)
  157.  
  158. <:#284,9360>        endif
  159.  
  160. <:#284,9360>    endif
  161.  
  162. <:#284,9360>    child = GetWindow(child, GW_HWNDNEXT)
  163.  
  164. <:#284,9360>wend
  165.  
  166. <:#284,9360>if i << 1
  167.  
  168. <:#284,9360>    return 0
  169.  
  170. <:#284,9360>endif
  171.  
  172. <:#284,9360>if getopenfilecount() <;> i
  173.  
  174. <:#284,9360>    rect(4) = rect(4) - 72
  175.  
  176. <:#284,9360>endif
  177.  
  178. <:#284,9360>cy = rect(4) / i
  179.  
  180. <:#284,9360>apprestore(getdocinfo$(1))
  181.  
  182. <:#284,9360>for j = 1 to i
  183.  
  184. <:#284,9360>    MoveWindow(children(j), 0, (cy * (j - 1)), rect(3), cy, 1)
  185.  
  186. <:#284,9360>next
  187.  
  188. <:#284,9360>end function
  189.  
  190. <:#284,9360>
  191.  
  192. >
  193.  
  194. [Embedded]
  195. 00003336
  196. >
  197. [macsum] 1
  198. tilehorz 0 0 9 14
  199. [macse]
  200. 14 tilehorz
  201. 0 1317
  202. 13
  203. 11 00000109
  204. 0 3 "Macro not available while running under HP NewWave."
  205. 6 0
  206. 15
  207. 9
  208. 0 32 2
  209. 0 518 1 "&Window" "Tile &Horizontally" 1
  210. 0 518 1 "&Window" "Tile &Horizontally" 1
  211. 13
  212. 1 3
  213. 11 00000338
  214. 0 802
  215. 13
  216. 0 527 1 "&Window" 2 "Tile &Horizontally" [X] "Horizontally tile the open document windows"
  217. 5 1
  218. 15
  219. 9
  220. 0 518 1 "&Window" "Tile &Horizontally" 0
  221. 5 4
  222. 21 1 [X]
  223. 5 1
  224. 21 2 [X]
  225. 0 284 "user,FindWindow,HCC" "AmiProWndA" 0
  226. 13
  227. 8 3
  228. 0 284 "user,GetWindow,HHH" "{3}" 5
  229. 13
  230. 8 4
  231. 7 ""
  232. 8 5
  233. 6 4
  234. 11 00000742
  235. 0 284 "user,GetClassName,HHCH" "{4}" &5 80
  236. 6 5
  237. 7 "MDIClient"
  238. 18 0
  239. 11 00000684
  240. 6 4
  241. 8 3
  242. 0 284 "user,GetClientRect,HHN" "{3}" &1
  243. 10 00000742
  244. 0 284 "user,GetWindow,HHH" "{4}" 2
  245. 13
  246. 8 4
  247. 10 00000519
  248. 0 284 "user,GetWindow,HHH" "{3}" 5
  249. 13
  250. 8 4
  251. 7 ""
  252. 8 5
  253. 5 0
  254. 8 6
  255. 6 4
  256. 11 00001063
  257. 0 284 "user,GetClassName,HHCH" "{4}" &5 80
  258. 6 5
  259. 7 "MDICHILD"
  260. 18 0
  261. 11 00001005
  262. 0 284 "user,isiconic,HA" "{4}"
  263. 13
  264. 1 3
  265. 11 00001005
  266. 6 6
  267. 5 1
  268. 3 0
  269. 8 6
  270. 0 1041 &2 "{6}" "{4}"
  271. 0 284 "user,GetWindow,HHH" "{4}" 2
  272. 13
  273. 8 4
  274. 10 00000808
  275. 6 6
  276. 5 1
  277. 18 5
  278. 11 00001104
  279. 5 0
  280. 15
  281. 9
  282. 0 1050
  283. 13
  284. 6 6
  285. 18 3
  286. 11 00001173
  287. 5 4
  288. 5 4
  289. 22 1
  290. 5 72
  291. 3 1
  292. 23 1
  293. 5 4
  294. 22 1
  295. 6 6
  296. 4 1
  297. 8 7
  298. 0 279 1
  299. 13
  300. 0 1031 [X]
  301. 5 1
  302. 8 8
  303. 6 6
  304. 6 8
  305. 18 2
  306. 12 00001309
  307. 10 00001424
  308. 5 1
  309. 6 8
  310. 3 0
  311. 8 8
  312. 10 00001234
  313. 6 8
  314. 22 2
  315. 6 7
  316. 6 8
  317. 5 1
  318. 3 1
  319. 4 0
  320. 5 3
  321. 22 1
  322. 0 284 "User,MoveWindow,HHHHHHA" [X] 0 [X] [X] "{7}" 1
  323. 10 00001276
  324. 6 0
  325. 15
  326. 9
  327. 00003361
  328.