home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1998 May
/
Pcwk5b98.iso
/
DISK1
/
MACROS.CMZ
/
TILEHORZ.SMM
< prev
next >
Wrap
INI File
|
1993-03-14
|
6KB
|
457 lines
[ver]
4
[sty]
_macro.sty
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
PostScript Printer
[port]
LPT1:
[lang]
1
[desc]
Poziome u</s>o</>enie otwartych okien
Lotus WPD Marketing
Advanced
Indirection, Windows API's
autorun
723276502
31
673469260
283
2
0
0
0
0
0
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[ParaNum]
1
[lay]
Standard
516
[rght]
16833
11908
1
1440
1440
1
1440
1440
0
1
0
1
0
2
1
1440
10465
12
1
720
1
1440
1
2160
1
2880
1
3600
1
4320
1
5040
1
5760
1
6480
1
7200
1
7920
1
8640
[hrght]
[lyfrm]
1
11200
0
0
11908
1440
0
1
3
1 0 0 0 0 0 0
0
0
1
[frmlay]
1440
11908
1
1440
72
1
792
1440
0
1
0
1
1
0
1
1440
10465
1
3
9360
[txt]
Modified by Marek G. B</y>czek from UNICORN Poland
>
[frght]
[lyfrm]
1
13256
0
15393
11908
16833
0
1
3
1 0 0 0 0 0 0
0
0
2
[frmlay]
16833
11908
1
1440
792
1
15465
1440
0
1
0
1
1
0
1
1440
10465
2
2
4680
3
9360
[txt]
>
[elay]
[l1]
0
[pg]
2
47 0 24 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
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
[edoc]
<:#278,9025>Macro by <+!>Charlie Pappas<-!>
<:#278,9025>
<:#278,9025>define FindWindow() DllCall("user,FindWindow,HCC", %1, %2)
<:#278,9025>define isiconic(hWnd) DLLCall("user,isiconic,HA", %1)
<:#556,9025>define GetClassName(hwnd, name, len) dllcall("user,GetClassName,HHCH", %1, %2, %3)
<:#278,9025>define GetClientRect(hWnd, lpRect) dllcall("user,GetClientRect,HHN", %1, %2)
<:#278,9025>define GetWindow(hwnd, cmd) dllcall("user,GetWindow,HHH", %1, %2)
<:#556,9025>Define MoveWindow() DllCall("User,MoveWindow,HHHHHHA",%1,%2,%3,%4,%5,%6)
<:#278,9025>define SetFocus() DllCall("user,SetFocus,HH",%1)
<:#278,9025>
<:#278,9025>define GW_HWNDNEXT 2
<:#278,9025>define GW_CHILD 5
<:#278,9025>
<:#278,9025>
@Function@<:#278,9025>function tilehorz()
<:#278,9025>IF IsNewWave()
<:#278,9025> Message("Makroprogram nie dzia</s>a z HP NewWave.")
<:#278,9025> Exit Function
<:#278,9025>ENDIF
<:#278,9025>ignorekeyboard(2)
<:#278,9025>CheckMenuItem(1, "&Okno", "U</s><\s></> &Poziomo", 1)
<:#278,9025>if not CheckMenuItem(1, "&Okno", "U</s><\s></> &Poziomo", 1)
<:#556,9025> insertmenuitem(1, "&Okno", 2, "U</s><\s></> &Poziomo", getrunningmacrofile$(), "U</s>o</>enie otwartych okien poziomo.")
<:#278,9025> return 1
<:#278,9025>endif
<:#278,9025>CheckMenuItem(1, "&Okno", "U</s><\s></> &Poziomo", 0)
<:#278,9025>dim rect(4)
<:#278,9025>dim children(1)
<:#278,9025>hwnd = FindWindow("AmiProWndA", 0)
<:#278,9025>child = GetWindow(hwnd, GW_CHILD)
<:#278,9025>class = "";
<:#278,9025>while (child)
<:#278,9025> GetClassName(child, &class, 80)
<:#278,9025> if class = "MDIClient"
<:#278,9025> hwnd = child
<:#278,9025> getclientrect(hwnd, &rect)
<:#278,9025> break
<:#278,9025> endif
<:#278,9025> child = GetWindow(child, GW_HWNDNEXT)
<:#278,9025>wend
<:#278,9025>child = GetWindow(hwnd, GW_CHILD)
<:#278,9025>class = "";
<:#278,9025>i = 0
<:#278,9025>while (child)
<:#278,9025> GetClassName(child, &class, 80)
<:#278,9025> if class = "MDICHILD"
<:#278,9025> if not isiconic(child)
<:#278,9025> i = i + 1
<:#278,9025> ArrayInsert(&children, i, child)
<:#278,9025> endif
<:#278,9025> endif
<:#278,9025> child = GetWindow(child, GW_HWNDNEXT)
<:#278,9025>wend
<:#278,9025>if i << 1
<:#278,9025> return 0
<:#278,9025>endif
<:#278,9025>if getopenfilecount() <;> i
<:#278,9025> rect(4) = rect(4) - 72
<:#278,9025>endif
<:#278,9025>cy = rect(4) / i
<:#278,9025>apprestore(getdocinfo$(1))
<:#278,9025>for j = 1 to i
<:#278,9025> MoveWindow(children(j), 0, (cy * (j - 1)), rect(3), cy, 1)
<:#278,9025>next
<:#278,9025>end function
<:#278,9025>
>
[Embedded]
00004317
>
[macsum] 1
tilehorz 0 0 9 14
[macse]
14 tilehorz
0 1317
13
11 00000098
0 3 "Makroprogram nie dzia</s>a z HP NewWave."
6 0
15
9
0 32 2
0 518 1 "&Okno" "U</s><\s></> &Poziomo" 1
0 518 1 "&Okno" "U</s><\s></> &Poziomo" 1
13
1 3
11 00000329
0 802
13
0 527 1 "&Okno" 2 "U</s><\s></> &Poziomo" [X] "U</s>o</>enie otwartych okien poziomo."
5 1
15
9
0 518 1 "&Okno" "U</s><\s></> &Poziomo" 0
5 4
21 1 [X]
5 1
21 2 [X]
0 284 "user,FindWindow,HCC" "AmiProWndA" 0
13
8 3
0 284 "user,GetWindow,HHH" "{3}" 5
13
8 4
7 ""
8 5
6 4
11 00000735
0 284 "user,GetClassName,HHCH" "{4}" &5 80
6 5
7 "MDIClient"
18 0
11 00000677
6 4
8 3
0 284 "user,GetClientRect,HHN" "{3}" &1
10 00000735
0 284 "user,GetWindow,HHH" "{4}" 2
13
8 4
10 00000512
0 284 "user,GetWindow,HHH" "{3}" 5
13
8 4
7 ""
8 5
5 0
8 6
6 4
11 00001056
0 284 "user,GetClassName,HHCH" "{4}" &5 80
6 5
7 "MDICHILD"
18 0
11 00000998
0 284 "user,isiconic,HA" "{4}"
13
1 3
11 00000998
6 6
5 1
3 0
8 6
0 1041 &2 "{6}" "{4}"
0 284 "user,GetWindow,HHH" "{4}" 2
13
8 4
10 00000801
6 6
5 1
18 5
11 00001097
5 0
15
9
0 1050
13
6 6
18 3
11 00001166
5 4
5 4
22 1
5 72
3 1
23 1
5 4
22 1
6 6
4 1
8 7
0 279 1
13
0 1031 [X]
5 1
8 8
6 6
6 8
18 2
12 00001302
10 00001417
5 1
6 8
3 0
8 8
10 00001227
6 8
22 2
6 7
6 8
5 1
3 1
4 0
5 3
22 1
0 284 "User,MoveWindow,HHHHHHA" [X] 0 [X] [X] "{7}" 1
10 00001269
6 0
15
9
00004342
