home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1998 May
/
Pcwk5b98.iso
/
DISK1
/
STYMACR2.CMZ
/
AUTOSTY.SMM
< prev
next >
Wrap
INI File
|
1993-03-14
|
30KB
|
2,206 lines
[ver]
4
[sty]
_macro.sty
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
PostScript Printer
[port]
LPT1:
[lang]
1
[desc]
U</>ywany przez Automatyczne Listy Styl<\s>w
731357355
44
699907907
2620
6
1023
7835
29
29
1
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[ParaNum]
1
[tag]
Body Text
2
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
Body Single
3
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Single
0
0
[tag]
Bullet 1
5
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
288
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*5>
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Bullet 1
0
0
[tag]
Number List
6
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
360
360
360
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*:>.
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Number List
0
0
[tag]
Subhead
7
[fnt]
TimesNewRomanPS
240
0
49155
[algn]
1
1
0
0
0
[spc]
33
273
1
72
72
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Subhead
0
0
[tag]
Title
8
[fnt]
Arial MT
360
0
16385
[algn]
4
1
0
0
0
[spc]
33
446
1
144
72
1
100
[brk]
16
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Title
0
0
[tag]
Outline1
9
[fnt]
Arial MT
240
0
16384
[algn]
1
1
0
0
0
[spc]
33
288
1
72
0
1
100
[brk]
16
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
1
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Outline1
0
0
[tag]
Outline2
11
[fnt]
TimesNewRomanPS
200
0
49152
[algn]
1
1
216
0
0
[spc]
33
244
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
2
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Outline2
0
0
[tag]
Outline3
12
[fnt]
TimesNewRomanPS
200
0
49152
[algn]
1
1
432
0
0
[spc]
33
244
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
3
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Outline3
0
0
[tag]
Outline4
0
[fnt]
TimesNewRomanPS
200
0
49152
[algn]
1
1
648
0
0
[spc]
33
244
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
4
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Outline4
0
0
[tag]
Outline5
0
[fnt]
TimesNewRomanPS
200
0
49152
[algn]
1
1
864
0
0
[spc]
33
244
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
5
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Outline5
0
0
[tag]
Outline6
0
[fnt]
TimesNewRomanPS
200
0
49152
[algn]
1
1
1080
0
0
[spc]
33
244
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
6
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Outline6
0
0
[tag]
Outline7
0
[fnt]
TimesNewRomanPS
200
0
49152
[algn]
1
1
1296
0
0
[spc]
33
244
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
7
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Outline7
0
0
[tag]
Outline8
0
[fnt]
TimesNewRomanPS
200
0
49152
[algn]
1
1
1512
0
0
[spc]
33
244
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
8
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Outline8
0
0
[tag]
Bullet
0
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
0
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*0>
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Bullet
0
0
[lay]
Standard
513
[rght]
15840
12240
1
1440
1440
1
1440
1440
0
1
0
1
0
2
1
1440
10800
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
12240
1440
0
1
3
1 0 0 0 0 0 0
0
0
1
[frmlay]
1440
12240
1
1440
144
1
648
1440
0
1
0
1
1
0
1
1440
10800
1
3
9360
[txt]
Automated Style Sheet Macro modified by Marek G. B</y>czek from UNICORN P. Revision
<:db<*&><* >>
Page <:P10,0,> of <:X3,16384;NumPages>5<:X~3,16384;NumPages> <:db<*!><* >>
>
[frght]
[lyfrm]
1
13248
0
14400
12240
15840
0
1
3
1 0 0 0 0 0 0
0
0
2
[frmlay]
15840
12240
1
1440
792
1
14472
1440
0
1
0
1
1
0
1
1440
10800
2
2
4680
3
9360
[txt]
>
[elay]
[l1]
0
[pg]
6
52 0 30 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
104 0 32 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
156 0 12 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
209 0 67 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
261 0 45 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
269 0 10 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]
@Outline1@<:#293,9360>declares and defines
@Outline2@<:R1,10,1,3510,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,><:#240,9360>DEFINE MoveWindow() DllCall("user,MoveWindow,HHHHHHH",%1,%2,%3,%4,%5,1)
@Outline2@<:R1,10,1,3510,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,><:#240,9360>DEFINE GetWindowRect() DllCall("user,GetWindowRect,HHN",%1,%2)
@Outline2@<:R1,10,1,3510,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,><:#240,9360>DEFINE GetClientRect() DllCall("user,GetClientRect,HHN",%1,%2)
@Outline2@<:R1,10,1,3510,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,><:#240,9360>Define ScreenToClient() DllCall("user,ScreenToClient,HHN", %1, %2)
@Outline2@<:R1,10,1,3510,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,><:#240,9360>Define ClientToScreen() DllCall("user,ClientToScreen,HHN", %1, %2)
@Outline2@<:R1,10,1,3510,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,><:#240,9360>Define ShowWindow() DllCall("User,ShowWindow,AHH",%1,%2)
@Outline2@<:R1,10,1,3510,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,><:#240,9360>Define EnableWindow() DllCall("User,EnableWindow,AHH",%1,%2)
@Outline2@<:R><:#240,9360>define SetFocus() DllCall("user,SetFocus,HH", %1)
@Outline2@<:#240,9360>define GetActiveWindow() DllCall("user,GetActiveWindow,H")
@Outline2@<:#240,9360>define SetWindowText() DllCall("user,SetWindowText,IHC", %1, %2)
@Outline2@<:#240,9360>define TitleBarMsg() SetWindowText(GetActiveWindow(), %1)
@Outline2@<:#240,9360>define GetWindowText() DllCall("user,GetWindowText,HHFH", %1, %2, %3)
@Outline2@<:#240,9360>define MapDialogRect() DllCall("user,MapDialogRect,HHN", %1, %2)
@Outline2@<:#240,9360>declare fillboxfields(target);
@Outline2@<:#240,9360>declare initcapit(string);
@Outline1@<:#293,9360>function main()
@Outline2@<:#240,9360>'verify this is a clean untitled
@Outline3@<:#240,9360>if GetOpenFileName$() !="" or Filechanged(0,0) != 0
@Outline3@<:#240,9360> message("Ten makroprogram jest u</>ywany przez atomatyczne listy styl<\s>w.")
@Outline3@<:#240,9360> exit function
@Outline3@<:#240,9360>endif
@Outline2@<:#240,9360>cnt = GetPowerFieldCount(0)
@Outline2@<:#240,9360>if (0 != cnt)
@Outline2@<:#240,9360> result=fillboxfields("as_def")
@Outline3@<:#240,9360> if result=0 or result = 2
@Outline3@<:#240,9360> goto blowout
@Outline3@<:#240,9360> endif
@Outline2@<:#240,9360> result = fillboxfields("as_user")
@Outline3@<:#240,9360> if result=0 or result = 2
@Outline3@<:#240,9360> goto blowout
@Outline3@<:#240,9360> endif
@Outline2@<:#240,9360>else
@Outline2@<:#240,9360>' message("Nie ma p<\s>l")
@Outline2@<:#240,9360>endif
@Outline2@<:#240,9360>blowout:
@Outline2@<:#240,9360>mark="as_starttext"
@Outline2@<:#240,9360>result=MarkBookMark(mark, 4002 )
@Outline2@<:#240,9360>if result = 1
@Outline2@<:#240,9360> MarkBookMark(mark, 4004 )
@Outline2@<:#240,9360>endif
@Outline2@<:#240,9360>DocInfo("" "" 1 )
@Outline2@<:#240,9360>end function
@Outline1@<:#293,9360>FUNCTION fillboxfields(target)
@Outline2@<:#240,9360>onerror blowout
@Outline2@<:#240,9360>cnt = GetPowerFieldCount(0)
@Outline3@<:#240,9360>if cnt = 0
@Outline3@<:#240,9360> exit function
@Outline3@<:#240,9360>endif
@Outline2@<:#240,9360>rmac=getrunningmacrofile$()
@Outline2@<:#240,9360>allocglobalvar("target", 1)
@Outline2@<:#240,9360>setglobalvar("target", target)
@Outline2@<:#240,9360>dim fields(cnt)
@Outline2@<:#240,9360>dim globvars(1)
@Outline2@<:#240,9360>numglobs=0
@Outline2@<:#240,9360>GetPowerFields(0, &fields)
@Outline2@<:#240,9360>'load &globvars
@Outline3@<:#240,9360>for i = 1 to cnt
@Outline3@<:#245,9360> pffield = StrField$(fields(i), 3, ",") 'get the power <+!>field<-!>
@Outline3@<:#245,9360> varname=StrField$(pffield, 3, " ") 'get the name of the <+!>variable
<-!>in the PF
@Outline3@<:#240,9360> targlen=len(target)
@Outline3@<:#240,9360> if left$(varname, targlen)=target
@Outline3@<:#240,9360> numglobs=numglobs+1
@Outline3@<:#240,9360> result=arrayinsert(&globvars, numglobs, fields(i))
@Outline3@<:#240,9360> if result = 0
@Outline3@<:#240,9360> goto blowout
@Outline3@<:#240,9360> endif
@Outline3@<:#240,9360> endif
@Outline3@<:#240,9360>next
@Outline3@<:#240,9360>'determine if we have any suitable PFs
@Outline4@<:#240,9360>if numglobs=0
@Outline4@<:#240,9360>' message(target)
@Outline4@<:#240,9360> fillboxfields = 3 'this attempt failed, but don't blow out completely
@Outline4@<:#240,9360> exit function
@Outline4@<:#240,9360>endif
@Outline2@<:#240,9360>'fill dialog box with labels & pre-build
@Outline3@<:#240,9360>allocglobalvar("numglobs", 1)
@Outline3@<:#240,9360>setglobalvar("numglobs", numglobs)
@Outline3@<:#240,9360>arraysort(&globvars, 3, "_") 'sort the array on varnum
@Outline3@<:#240,9360>for i = 1 to numglobs
@Outline3@<:#245,9360> pffield = StrField$(globvars(i), 3, ",") 'get the power <+!>field<-!>
@Outline3@<:#245,9360> varname=StrField$(pffield, 3, " ") 'get the name of the <+!>variable
<-!>in the PF
@Outline3@<:#240,9360> quotechar=chr$(34)
@Outline3@<:#245,9360> varlabel=StrField$(globvars(i), 2, quotechar) 'get the <+!>label
<-!>for the variable
@Outline3@<:#240,9360> allocglobalvar(varname, 1)
@Outline3@<:#240,9360> if lcase$(left$(varlabel, 5)) = "type "
@Outline3@<:#240,9360> lenwithouttype=len(varlabel) - 5
@Outline3@<:#240,9360> varlabel=right$(varlabel, lenwithouttype)
@Outline3@<:#240,9360> endif
@Outline3@<:#240,9360> if lcase$(right$(varlabel, 5)) = " here"
@Outline3@<:#240,9360> lenwithouthere=len(varlabel) - 5
@Outline3@<:#240,9360> varlabel=left$(varlabel, lenwithouthere)
@Outline3@<:#240,9360> endif
@Outline3@<:#240,9360> varlabel=initcapit(varlabel)
@Outline3@<:#240,9360> filledit(1000 + i, "{varlabel}:")
@Outline3@<:#240,9360>next
@Outline3@<:#240,9360>SetDlgCallBack(0,"{rmac}!PreBuild")
@Outline3@'SetDlgCallBack(23,"{rmac}!savesty") 'keep this only if save as style sheet should be a callback
@Outline2@box=dialogbox(".", "autostyle")
@Outline2@fillboxfields = box 'set this function's return value to the ID returned by the box
@Outline2@if box= 0 or box =2
@Outline2@ goto blowout
@Outline2@endif
@Outline2@'set global vars & update fields
@Outline3@<:#240,9360>for i = 1 to numglobs
@Outline3@<:#240,9360> contents=getdialogfield$(8000 +i)
@Outline3@<:#245,9360> pffield = StrField$(globvars(i), 3, ",") 'get the power <+!>field<-!>
@Outline3@<:#245,9360> varname=StrField$(pffield, 3, " ") 'get the name of the <+!>variable
<-!>in the PF
@Outline3@<:#240,9360> setglobalvar(varname, contents)
@Outline3@<:#240,9360>next
@Outline3@<:#240,9360>fieldupdateall()
@Outline2@<:#240,9360>blowout:
@Outline3@<:#240,9360> call torchfields(target)
@Outline3@<:#240,9360> call freeglobs(target)
@Outline3@<:#240,9360> freeglobalvar("target")
@Outline3@<:#240,9360> freeglobalvar("numglobs")
@Outline2@<:#240,9360>if box=3
@Outline2@<:#240,9360> runlater("{rmac}!stysender", "00:00.001")
@Outline2@<:#240,9360> result = SaveAsNewStyle
@Outline2@<:#240,9360>endif
@Outline2@<:#240,9360>END FUNCTION
@Outline1@<:#293,9360>function stysender()
@Outline2@<:#240,9360>sendkeys("<[>altw]<[>altf]") 'check With contents & re-focus on File name
@Outline2@<:#240,9360>end function
@Outline1@<:#293,9360>FUNCTION freeglobs(target)
@Outline2@<:#240,9360>'singlestep(0)
@Outline2@<:#240,9360>targlen=len(target)
@Outline2@<:#240,9360>numglobs=getglobalvarcount()
@Outline2@<:#240,9360>dim globnuke(numglobs)
@Outline2@<:#240,9360>getglobalvarnames(&globnuke)
@Outline2@<:#240,9360>for i = 1 to numglobs
@Outline2@<:#240,9360> if left$(globnuke(i), targlen)=target
@Outline2@<:#240,9360> freeglobalvar(globnuke(i))
@Outline2@<:#240,9360> endif
@Outline2@<:#240,9360>next
@Outline2@<:#240,9360>end function
@Outline1@<:#293,9360>FUNCTION torchfields(target)
@Outline2@<:#240,9360>'singlestep(0)
@Outline2@<:#240,9360>cnt = GetPowerFieldCount(0)
@Outline2@<:#240,9360>if (0 != cnt)
@Outline2@<:#240,9360> dim fields(cnt)
@Outline2@<:#240,9360> GetPowerFields(0, &fields)
@Outline2@<:#240,9360> for i = 1 to cnt
@Outline2@<:#240,9360> pfid = StrField$(fields(i), 1, ",")
@Outline2@<:#240,9360> pftype = StrField$(fields(i), 2, ",")
@Outline2@<:#245,9360> pffield = StrField$(fields(i), 3, ",") 'get the power <+!>field<-!>
@Outline2@<:#245,9360> varname=StrField$(pffield, 3, " ") 'get the name of the <+!>variable
<-!>in the PF
@Outline2@<:#240,9360> targlen=len(target)
@Outline2@<:#240,9360> if left$(varname, targlen)=target
@Outline2@<:#240,9360> FieldRemove(pfid, pftype);
@Outline2@<:#240,9360> endif
@Outline2@<:#240,9360> next
@Outline2@<:#240,9360>else
@Outline2@<:#240,9360>' message("Nie ma p<\s>l")
@Outline2@<:#240,9360>endif
@Outline2@<:#240,9360>END FUNCTION
@Outline1@<:#293,9360>function savesty(Hdlg,id,dummy) 'pitch if not a callback
@Outline2@<:#240,9360>SaveAsNewStyle
@Outline2@<:#240,9360>setfocus(hdlg)
@Outline2@<:#240,9360>end function
@Outline1@<:#293,9360>Function PreBuild(Hdlg,id,dummy)
@Outline2@<:#240,9360>target=getglobalvar$("target")
@Outline2@<:#240,9360>numglobs=getglobalvar$("numglobs")
@Outline2@<:#240,9360>'name the box and show the right buttons and static text
@Outline3@<:#240,9360>CurStyleSheet = GetDocInfo$(3)
@Outline3@<:#240,9360>CurStyleSheet = ucase$(CurStyleSheet)
@Outline3@<:#240,9360>lb=chr$(091)
@Outline3@<:#240,9360>rb=chr$(093)
@Outline3@<:#240,9360>CurStyleSheet = strcat$(lb, CurStyleSheet, rb)
@Outline3@<:#240,9360>if target ="as_def"
@Outline3@<:#240,9360> TitleBarMsg("Informacje G</s><\s>wne")
@Outline3@<:#240,9360> ShowWindow(GetDlgItem(Hdlg,3), 1) ' show the save as button
@Outline3@<:#240,9360> ShowWindow(GetDlgItem(Hdlg,1060), 0) ' hide the 1060 field static text
@Outline3@<:#240,9360> L1="Wpisz teksty, kt<\s>re uka</></y> si<\j> zamiast nazw p<\s>l."
@Outline3@ L2=" Naci</\>nij OK, aby wstawi<\f> teksty do dokumentu. "
@Outline3@<:#240,9360> L3="Naci</\>nij Zapisz Jako, aby zapami<\j>ta<\f> informacje"
@Outline3@ L4=" w nowej li</\>cie styl<\s>w."
@Outline3@<:#240,9360> helptext="{L1}{L2}{L3}{L4}"
@Outline3@<:#240,9360> filledit(1050, helptext)
@Outline3@<:#240,9360>else
@Outline3@<:#240,9360> TitleBarMsg("Informacje Dodatkowe")
@Outline3@<:#240,9360> ShowWindow(GetDlgItem(Hdlg,3), 0) ' hide the save as button
@Outline3@<:#240,9360> ShowWindow(GetDlgItem(Hdlg,1060), 0) ' hide the 1060 field static text
@Outline3@<:#240,9360> L1="Wpisz teksty, kt<\s>re uka</></y> si<\j> w dokumencie "
@Outline3@<:#240,9360> L2="zamiast nazw p<\s>l."
@Outline3@<:#240,9360> helptext="{L1}{L2}{L3}{L4}"
@Outline3@<:#240,9360> filledit(1050, helptext)
@Outline3@<:#240,9360>endif
@Outline2@<:#240,9360>'hide static text and edit fields
@Outline3@<:#240,9360>for i = (numglobs + 1) to 9
@Outline3@<:#240,9360> stid=1000 + i
@Outline3@<:#240,9360> ShowWindow(GetDlgItem(Hdlg, stid), 0) ' hide the static text field
@Outline3@<:#240,9360> ebid=8000 + i
@Outline3@<:#240,9360> ShowWindow(GetDlgItem(Hdlg, ebid), 0) ' hide the edit box
@Outline3@<:#240,9360>next
@Outline2@<:#240,9360>'size the box
@Outline3@<:#240,9360>DIM rect(4)
@Outline3@<:#240,9360>GetWindowRect(hDlg,&rect)
@Outline3@<:#240,9360>x=rect(1)
@Outline3@<:#240,9360>y=rect(2)
@Outline3@<:#240,9360>xL=rect(3)
@Outline3@<:#240,9360>yL=rect(4)
@Outline3@<:#240,9360>MoveBase=24
@Outline3@<:#240,9360>moveshrink=MoveBase * (9-numglobs)
@Outline4@<:#240,9360>if target="as_def"
@Outline4@<:#240,9360> moveshrink=moveshrink + 8
@Outline4@<:#240,9360> max=145
@Outline4@<:#240,9360>else
@Outline4@<:#240,9360> moveshrink=moveshrink + 50 'shrink extra amount for less 1050 text
@Outline4@<:#240,9360> max=217
@Outline4@<:#240,9360>endif
@Outline4@<:#240,9360>if moveshrink <;> max
@Outline4@<:#240,9360> moveshrink = max
@Outline4@<:#240,9360>endif
@Outline3@<:#240,9360>MoveWindow(hDlg,x,y,xL-x,yL-(y+moveshrink))
@Outline2@<:#240,9360>'move the helptext box
@Outline3@<:#240,9360>hwndCtrl=GetDlgItem(hdlg, 1050)
@Outline3@<:#240,9360>DIM rect2(4)
@Outline3@<:#240,9360>DIM rect3(4)
@Outline3@<:#240,9360>GetWindowRect(hwndCtrl,&rect2)
@Outline3@<:#240,9360>ScreenToClient(hDlg, &rect2) 'convert 1050's screen-relative coordinates to hdlg-relative coordinates
@Outline3@<:#240,9360>GetClientRect(hwndCtrl, &rect3) 'get xL & yL numbers (length & width of 1050)
@Outline3@<:#240,9360>x=rect2(1)
@Outline3@<:#240,9360>y=rect2(2)
@Outline3@<:#240,9360>xL=rect3(3)
@Outline3@<:#240,9360>yL=rect3(4)
@Outline3@<:#240,9360>moveshrink=MoveBase * (9-numglobs)
@Outline4@<:#240,9360>if target="as_def"
@Outline4@<:#240,9360> max=137
@Outline4@<:#240,9360>else
@Outline4@<:#240,9360> max=167
@Outline4@<:#240,9360>endif
@Outline4@<:#240,9360>if moveshrink <;> max
@Outline4@<:#240,9360> moveshrink = max
@Outline4@<:#240,9360>endif
@Outline3@<:#240,9360>MoveWindow(hwndCtrl,x,y-moveshrink,xL,yL)
@Outline2@<:#240,9360>END FUNCTION
@Outline1@<:#293,9360>function initcapit(string)
@Outline2@<:#240,9360>firstchar=left$(string, 1)
@Outline2@<:#240,9360>restchars=lcase$(right$(string, (len(string) - 1)))
@Outline2@<:#240,9360>initcapit=strcat$(firstchar, restchars)
@Outline2@<:#240,9360>end function
@Outline2@<:#240,9360>DIALOG autostyle
@Outline2@<:#480,9360>-2134376448 23 49 46 231 185 "" "AmiDialog" "_LETTER1.STY Information"
@Outline2@<:#240,9360>FONT 8 "Helv"
@Outline2@<:#240,9360>78 6 91 12 8001 1350631552 "edit" "" 0
@Outline2@<:#240,9360>78 20 91 12 8002 1350631552 "edit" "" 0
@Outline2@<:#240,9360>78 34 91 12 8003 1350631552 "edit" "" 0
@Outline2@<:#240,9360>78 49 91 12 8004 1350631552 "edit" "" 0
@Outline2@<:#240,9360>78 64 91 12 8005 1350631552 "edit" "" 0
@Outline2@<:#240,9360>78 79 91 12 8006 1350631552 "edit" "" 0
@Outline2@<:#240,9360>78 94 91 12 8007 1350631552 "edit" "" 0
@Outline2@<:#240,9360>78 108 91 12 8008 1350631552 "edit" "" 0
@Outline2@<:#240,9360>78 123 91 12 8009 1350631552 "edit" "" 0
@Outline2@<:#240,9360>173 5 53 14 1 1342373889 "button" "OK" 0
@Outline2@<:#240,9360>173 22 53 14 2 1342373888 "button" "Anuluj" 0
@Outline2@<:#240,9360>173 39 53 14 3 1342373888 "button" "Zapisz Jako..." 0
@Outline2@<:#240,9360>3 8 75 9 1001 1342177280 "static" "fld1:" 0
@Outline2@<:#240,9360>3 23 75 9 1002 1342177280 "static" "fld2:" 0
@Outline2@<:#240,9360>3 38 75 9 1003 1342177280 "static" "fld3:" 0
@Outline2@<:#240,9360>3 53 75 9 1004 1342177280 "static" "fld4:" 0
@Outline2@<:#240,9360>3 68 75 9 1005 1342177280 "static" "fld5:" 0
@Outline2@<:#240,9360>3 80 75 9 1006 1342177280 "static" "fld6:" 0
@Outline2@<:#240,9360>3 95 75 9 1007 1342177280 "static" "fld7:" 0
@Outline2@<:#240,9360>3 110 75 9 1008 1342177280 "static" "fld8:" 0
@Outline2@<:#240,9360>3 125 75 9 1009 1342177280 "static" "fld9:" 0
@Outline2@<:#240,9360>3 143 222 36 1050 1342177280 "static" "Default box text" 0
@Outline2@<:#240,9360>3 143 219 36 1060 1342177280 "static" "User box text" 0
@Outline2@<:#240,9360>END DIALOG
>
[Embedded]
00022855
>
[macsum] 9
main 0 0 4 16
fillboxfields 552 1 17 43
stysender 2288 0 1 121
freeglobs 2335 1 5 124
torchfields 2599 1 9 136
savesty 3038 3 1 156
PreBuild 3102 3 25 160
initcapit 5401 1 3 237
autostyle 5544 0 -1 242
[macse]
14 main
0 267
13
7 ""
18 1
0 34 0 0
13
5 0
18 1
1 2
11 00000162
0 3 "Ten makroprogram jest u</>ywany przez atomatyczne listy styl<\s>w."
6 0
15
9
0 1304 0
13
8 1
5 0
6 1
18 1
11 00000422
16 fillboxfields "as_def"
13
8 2
6 2
5 0
18 0
6 2
5 2
18 0
1 2
11 00000309
10 00000422
16 fillboxfields "as_user"
13
8 2
6 2
5 0
18 0
6 2
5 2
18 0
1 2
11 00000409
10 00000422
10 00000422
7 "as_starttext"
8 3
2 466 1 "{3}" 4002
13
8 2
6 2
5 1
18 0
11 00000523
2 466 1 "{3}" 4004
2 109 1 "" "" 1
6 0
15
9
14 fillboxfields
20 00001565
0 1304 0
13
8 2
6 2
5 0
18 0
11 00000091
6 1
15
9
0 802
13
8 3
0 271 "target" 1
0 264 "target" "{0}"
6 2
21 4 [X]
5 1
21 5 [X]
5 0
8 6
0 1305 0 &4
5 1
8 7
6 2
6 7
18 2
12 00000285
10 00000536
5 1
6 7
3 0
8 7
10 00000210
6 7
22 4
0 20 [X] 3 ","
13
8 8
0 20 "{8}" 3 " "
13
8 9
0 14 "{0}"
13
8 10
0 806 "{9}" "{10}"
13
6 0
18 0
11 00000523
6 6
5 1
3 0
8 6
6 7
22 4
0 1041 &5 "{6}" [X]
13
8 11
6 11
5 0
18 0
11 00000523
10 00001565
10 00000252
6 6
5 0
18 0
11 00000587
5 3
8 1
6 1
15
9
0 271 "numglobs" 1
0 264 "numglobs" "{6}"
0 1043 &5 3 "_"
5 1
8 7
6 6
6 7
18 2
12 00000733
10 00001206
5 1
6 7
3 0
8 7
10 00000658
6 7
22 5
0 20 [X] 3 ","
13
8 8
0 20 "{8}" 3 " "
13
8 9
0 39 34
13
8 12
6 7
22 5
0 20 [X] 2 "{12}"
13
8 13
0 271 "{9}" 1
0 806 "{13}" 5
13
0 17 [X]
13
7 "type "
18 0
11 00000998
0 14 "{13}"
13
5 5
3 1
8 14
0 807 "{13}" "{14}"
13
8 13
0 807 "{13}" 5
13
0 17 [X]
13
7 " here"
18 0
11 00001126
0 14 "{13}"
13
5 5
3 1
8 15
0 806 "{13}" "{15}"
13
8 13
16 initcapit "{13}"
13
8 13
5 1000
6 7
3 0
0 31 [X] "{13}:"
10 00000700
0 41 0 "{3}!PreBuild"
0 26 "." "autostyle"
13
8 16
6 16
8 1
6 16
5 0
18 0
6 16
5 2
18 0
1 2
11 00001337
10 00001565
5 1
8 7
6 6
6 7
18 2
12 00001422
10 00001556
5 1
6 7
3 0
8 7
10 00001347
5 8000
6 7
3 0
0 27 [X]
13
8 17
6 7
22 5
0 20 [X] 3 ","
13
8 8
0 20 "{8}" 3 " "
13
8 9
0 264 "{9}" "{17}"
10 00001389
2 267 1
16 torchfields "{0}"
16 freeglobs "{0}"
0 266 "target"
0 266 "numglobs"
6 16
5 3
18 0
11 00001724
0 285 "{3}!stysender" "00:00.001"
24 305
13
8 11
6 1
15
9
14 stysender
0 36 "[8279][8262]"
6 0
15
9
14 freeglobs
0 14 "{0}"
13
8 2
0 299
13
8 3
6 3
21 4 [X]
0 300 &4
5 1
8 5
6 3
6 5
18 2
12 00000161
10 00000252
5 1
6 5
3 0
8 5
10 00000086
6 5
22 4
0 806 [X] "{2}"
13
6 0
18 0
11 00000239
6 5
22 4
0 266 [X]
10 00000128
6 1
15
9
14 torchfields
0 1304 0
13
8 2
5 0
6 2
18 1
11 00000427
6 2
21 3 [X]
0 1305 0 &3
5 1
8 4
6 2
6 4
18 2
12 00000177
10 00000414
5 1
6 4
3 0
8 4
10 00000102
6 4
22 3
0 20 [X] 1 ","
13
8 5
6 4
22 3
0 20 [X] 2 ","
13
8 6
6 4
22 3
0 20 [X] 3 ","
13
8 7
0 20 "{7}" 3 " "
13
8 8
0 14 "{0}"
13
8 9
0 806 "{8}" "{9}"
13
6 0
18 0
11 00000401
2 227 1 "{5}" "{6}"
10 00000144
10 00000427
6 1
15
9
14 savesty
24 305
0 284 "user,SetFocus,HH" "{0}"
6 3
15
9
14 PreBuild
0 265 "target"
13
8 4
0 265 "numglobs"
13
8 5
0 279 3
13
8 6
0 18 "{6}"
13
8 6
0 39 091
13
8 7
0 39 093
13
8 8
0 16 "{7}" "{6}" "{8}"
13
8 6
6 4
7 "as_def"
18 0
11 00000723
0 284 "user,GetActiveWindow,H"
13
0 284 "user,SetWindowText,IHC" [X] "Informacje G</s><\s>wne"
0 44 "{0}" 3
13
0 284 "User,ShowWindow,AHH" [X] 1
0 44 "{0}" 1060
13
0 284 "User,ShowWindow,AHH" [X] 0
7 "Wpisz teksty, kt<\s>re uka</></y> si<\j> zamiast nazw p<\s>l."
8 9
7 " Naci</\>nij OK, aby wstawi<\f> teksty do dokumentu. "
8 10
7 "Naci</\>nij Zapisz Jako, aby zapami<\j>ta<\f> informacje"
8 11
7 " w nowej li</\>cie styl<\s>w."
8 12
7 "{9}{10}{11}{12}"
8 13
0 31 1050 "{13}"
10 00001070
0 284 "user,GetActiveWindow,H"
13
0 284 "user,SetWindowText,IHC" [X] "Informacje Dodatkowe"
0 44 "{0}" 3
13
0 284 "User,ShowWindow,AHH" [X] 0
0 44 "{0}" 1060
13
0 284 "User,ShowWindow,AHH" [X] 0
7 "Wpisz teksty, kt<\s>re uka</></y> si<\j> w dokumencie "
8 9
7 "zamiast nazw p<\s>l."
8 10
7 "{9}{10}{11}{12}"
8 13
0 31 1050 "{13}"
6 5
5 1
3 0
8 14
5 9
6 14
18 2
12 00001169
10 00001348
5 1
6 14
3 0
8 14
10 00001091
5 1000
6 14
3 0
8 15
0 44 "{0}" "{15}"
13
0 284 "User,ShowWindow,AHH" [X] 0
5 8000
6 14
3 0
8 16
0 44 "{0}" "{16}"
13
0 284 "User,ShowWindow,AHH" [X] 0
10 00001134
5 4
21 17 [X]
0 284 "user,GetWindowRect,HHN" "{0}" &17
5 1
22 17
8 18
5 2
22 17
8 19
5 3
22 17
8 20
5 4
22 17
8 21
5 24
8 22
6 22
5 9
6 5
3 1
4 0
8 23
6 4
7 "as_def"
18 0
11 00001606
6 23
5 8
3 0
8 23
5 145
8 24
10 00001642
6 23
5 50
3 0
8 23
5 217
8 24
6 23
6 24
18 3
11 00001685
6 24
8 23
6 20
6 18
3 1
6 21
6 19
6 23
3 0
3 1
0 284 "user,MoveWindow,HHHHHHH" "{0}" "{18}" "{19}" [X] [X] 1
0 44 "{0}" 1050
13
8 25
5 4
21 26 [X]
5 4
21 27 [X]
0 284 "user,GetWindowRect,HHN" "{25}" &26
0 284 "user,ScreenToClient,HHN" "{0}" &26
0 284 "user,GetClientRect,HHN" "{25}" &27
5 1
22 26
8 18
5 2
22 26
8 19
5 3
22 27
8 20
5 4
22 27
8 21
6 22
5 9
6 5
3 1
4 0
8 23
6 4
7 "as_def"
18 0
11 00002147
5 137
8 24
10 00002160
5 167
8 24
6 23
6 24
18 3
11 00002203
6 24
8 23
6 19
6 23
3 1
0 284 "user,MoveWindow,HHHHHHH" "{25}" "{18}" [X] "{20}" "{21}" 1
6 3
15
9
14 initcapit
0 806 "{0}" 1
13
8 2
0 14 "{0}"
13
5 1
3 1
0 807 "{0}" [X]
13
0 17 [X]
13
8 3
0 16 "{2}" "{3}"
13
8 1
6 1
15
9
DIALOG autostyle
-2134376448 23 49 46 231 185 "" "AmiDialog" "_LETTER1.STY Information"
FONT 8 "Helv"
78 6 91 12 8001 1350631552 "edit" "" 0
78 20 91 12 8002 1350631552 "edit" "" 0
78 34 91 12 8003 1350631552 "edit" "" 0
78 49 91 12 8004 1350631552 "edit" "" 0
78 64 91 12 8005 1350631552 "edit" "" 0
78 79 91 12 8006 1350631552 "edit" "" 0
78 94 91 12 8007 1350631552 "edit" "" 0
78 108 91 12 8008 1350631552 "edit" "" 0
78 123 91 12 8009 1350631552 "edit" "" 0
173 5 53 14 1 1342373889 "button" "OK" 0
173 22 53 14 2 1342373888 "button" "Anuluj" 0
173 39 53 14 3 1342373888 "button" "Zapisz Jako..." 0
3 8 75 9 1001 1342177280 "static" "fld1:" 0
3 23 75 9 1002 1342177280 "static" "fld2:" 0
3 38 75 9 1003 1342177280 "static" "fld3:" 0
3 53 75 9 1004 1342177280 "static" "fld4:" 0
3 68 75 9 1005 1342177280 "static" "fld5:" 0
3 80 75 9 1006 1342177280 "static" "fld6:" 0
3 95 75 9 1007 1342177280 "static" "fld7:" 0
3 110 75 9 1008 1342177280 "static" "fld8:" 0
3 125 75 9 1009 1342177280 "static" "fld9:" 0
3 143 222 36 1050 1342177280 "static" "Default box text" 0
3 143 219 36 1060 1342177280 "static" "User box text" 0
00022880
