home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1998 July & August
/
Pcwk78b98.iso
/
Smart30
/
ENGLISH
/
PRODUCTS
/
LOTUS029.DSK
/
AUTOSTY.SMM
< prev
next >
Wrap
INI File
|
1994-07-05
|
42KB
|
2,993 lines
[ver]
4
[sty]
_macro.sty
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
PostScript Printer
[port]
LPT1:
[lang]
1
[fldnames]
Field1
Field2
Field3
Field4
Field5
Field6
Field7
Field8
[desc]
noautorun
773450717
68
699907907
3147
8
1075
8246
29
31
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]
Times New Roman
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 Revision <:db<*&><* >>
Page <:P10,0,> of <:X3,16384;NumPages>6<: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]
8
51 0 22 64 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 65 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
155 0 34 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
206 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
257 0 40 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
311 0 5 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
364 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
374 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@<:#284,9360>declares and defines
@Outline2@<:#240,9360>DEFINE MoveWindow() DllCall("user,MoveWindow,HHHHHHH",%1,%2,%3,%4,%5,1)
@Outline2@<:#240,9360>DEFINE GetWindowRect() DllCall("user,GetWindowRect,HHN",%1,%2)
@Outline2@<:#240,9360>DEFINE GetClientRect() DllCall("user,GetClientRect,HHN",%1,%2)
@Outline2@<:#240,9360>Define ScreenToClient() DllCall("user,ScreenToClient,HHN", %1, %2)
@Outline2@<:#240,9360>Define ClientToScreen() DllCall("user,ClientToScreen,HHN", %1, %2)
@Outline2@<:#240,9360>Define ShowWindow() DllCall("User,ShowWindow,AHH",%1,%2)
@Outline2@<:#240,9360>Define EnableWindow() DllCall("User,EnableWindow,AHH",%1,%2)
@Outline2@<:#240,9360>define SetFocus() DllCall("user,SetFocus,HH", %1)
@Outline2@<:#240,9360>define HFONT "Setfont:hFont"
@Outline2@<:#240,9360>define SendMessage(hwnd, msg, wpara, lparm) DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
@Outline2@<:#240,9360>define WM_SETFONT 0x30
@Outline2@<:#240,9360>define WM_USER 0x0400
@Outline2@<:#240,9360>define BM_SETCHECK 0x0401
@Outline2@<:#480,9360>define CreateFont() DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
@Outline2@<:#240,9360>define DeleteObject(handle) DllCall("gdi,DeleteObject,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 torchfields(target);
@Outline2@<:#240,9360>declare initcapit(string);
@Outline1@<:#284,9360>function main()
@Outline2@<:#240,9360>'verify this is a clean untitled
@Outline3@<:#240,9360>'if GetOpenFileName$() !="" or Filechanged(0,0) != 0
@Outline3@<:#480,9360>' message("This macro is for automated style sheets. To use it, choose File/New and leave Run macro 'selected.")
@Outline3@<:#240,9360>' exit function
@Outline3@<:#240,9360>'endif
@Outline2@<:#240,9360>hourglass(1)
@Outline2@<:#240,9360>ignorekeyboard(2)
@Outline2@<:#240,9360>rmac=getrunningmacrofile$()
@Outline2@<:#240,9360>'burn power fields if entry is in AMIPRO2.INI
@Outline3@<:#240,9360>burnfields=getprofilestring$("AutoStyleSheets", "NoQuestions", "AMIPRO2.INI")
@Outline3@<:#240,9360>if burnfields = 1
@Outline3@<:#240,9360> torchfields("as_")
@Outline3@<:#240,9360> exit function
@Outline3@<:#240,9360>elseif burnfields = ""
@Outline3@<:#240,9360> writeprofilestring("AutoStyleSheets", "NoQuestions", 0, "AMIPRO2.INI")
@Outline3@<:#240,9360>endif
@Outline2@<:#240,9360>datagood=getprofilestring$("AutoStyleSheets", "DataGood", "AMIPRO2.INI")
@Outline2@<:#240,9360>SingleStep(0)
@Outline2@<:#240,9360>if datagood != 1
@Outline2@<:#240,9360> macpath=GetMacPath$()
@Outline2@<:#240,9360> collector="{macpath}collect.smm"
@Outline2@<:#240,9360> calli collector()
@Outline2@<:#240,9360>endif
@Outline2@<:#240,9360>'font handler
@Outline3@<:#240,9360>AllocGlobalVar(HFONT, 1)
@Outline3@<:#240,9360>SetGlobalVar(HFONT, 0)
<:f200,BArial,0,0,255> gotocmd(3,"","")
@Outline3@<:f200,BArial,0,0,255> gotocmd(2,"","") 'dez 5/23/94; go back to tof<:f>
@Outline2@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("No fields")
@Outline2@<:#240,9360>endif
@Outline2@<:#240,9360>blowout:
@Outline2@<:#240,9360>torchfields("as_")
@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>'font bailout
@Outline3@<:#240,9360>font = GetGlobalVar$(HFONT) ' If we created
@Outline3@<:#240,9360>if (0 != font) ' the font.
@Outline3@<:#240,9360> DeleteObject(font) ' Delete it
@Outline3@<:#240,9360>endif
@Outline3@<:#240,9360>freeglobalvar(HFONT)
@Outline2@<:#240,9360>DocInfo("" "" 1 )
@Outline2@<:#240,9360>hourglass(0)
@Outline2@<:#240,9360>end function
@Outline1@<:#284,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><:f200,2TimesNewRomanPS,255,0,0>dim echovars(1)<:f>
@Outline2@<:#240,9360>numglobs=0
@Outline2@<:#240,9360>GetPowerFields(0, &fields)
@Outline2@<:#240,9360>'load &globvars
@Outline3@<:#240,9360>mergefieldspresent=0
@Outline3@<:#240,9360>for i = 1 to cnt
@Outline3@<:#245,9360> pftype = StrField$(fields(i), 2, ",") 'get the power <+!>field type<-!>
@Outline3@<:#240,9360> if pftype=12 'there is a merge field in the doc.
@Outline3@<:#240,9360> mergefieldspresent=1
@Outline3@<:#240,9360> endif
@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> showtype=strfield$(varname, 6, "_")
@Outline3@<:#240,9360> if lcase$(showtype)="address2"
@Outline3@<:#240,9360> secondaddressline=1
@Outline3@<:#240,9360> endif
@Outline3@<:#480,9360> <:f200,2TimesNewRomanPS,255,0,0>echovar=strcat$(<:f>strfield$(varname, 1, "_"), "_", strfield$(varname, 2, "_"), "_", strfield$(varname, 3, "_"), "_", strfield$(varname, 4, "_"), "_", strfield$(varname, 5, "_"), "_",<:f200,2TimesNewRomanPS,255,0,0> "echo_"
)<:f>
@Outline3@<:#240,9360> targlen=len(target)
@Outline3@<:#240,9360> if left$(varname, targlen)=target <:f200,2TimesNewRomanPS,255,0,0>and showtype != "echo"<:f>
@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> <:f200,2TimesNewRomanPS,255,0,0>arrayinsert(&echovars, numglobs, echovar)<:f>
@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> showtype=strfield$(varname, 6, "_")
@Outline3@<:#240,9360> profilestringstuff=""
@Outline3@<:#240,9360> if showtype != (-1) and showtype != "echo" and showtype != ""
@Outline3@<:#240,9360> profilestringstuff=getprofilestring$("AutoStyleSheets", showtype, "AMIPRO2.INI")
@Outline3@<:#240,9360> if lcase$(showtype) = "address1" and secondaddressline !=1
@Outline3@<:#240,9360> address2=getprofilestring$("AutoStyleSheets", "Address2", "AMIPRO2.INI")
@Outline3@<:#240,9360> if address2 != ""
@Outline3@<:#240,9360> profilestringstuff=strcat$(profilestringstuff, ", " address2)
@Outline3@<:#240,9360> endif
@Outline3@<:#240,9360> endif
@Outline3@<:#240,9360> endif
@Outline3@<:#240,9360> allocglobalvar(varname, 1)
@Outline3@<:#480,9360> <:f200,2TimesNewRomanPS,255,0,0>echovar=strcat$(<:f>strfield$(varname, 1, "_"), "_", strfield$(varname, 2, "_"), "_", strfield$(varname, 3, "_"), "_", strfield$(varname, 4, "_"), "_", strfield$(varname, 5, "_"), "_",<:f200,2TimesNewRomanPS,255,0,0> "echo_"
)<:f>
@Outline3@<:#240,9360><:f200,2TimesNewRomanPS,255,0,0> allocglobalvar(echovar, 1)<:f>
@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> filledit(8000 + i, profilestringstuff)
@Outline3@<:#240,9360>next
@Outline3@<:#240,9360>SetDlgCallBack(0,"{rmac}!PreBuild")
@Outline3@<:#480,9360>'SetDlgCallBack(23,"{rmac}!savesty") 'keep this only if save as style sheet should be a callback
@Outline2@<:#240,9360>box=dialogbox(".", "autostyle")
@Outline2@<:#240,9360>fillboxfields = box 'set this function's return value to the ID returned by the box
@Outline2@<:#240,9360>if box= 0 or box =2
@Outline2@<:#240,9360> goto blowout
@Outline2@<:#240,9360>endif
@Outline2@<:#240,9360>'set global vars & update fields
@Outline3@<:#240,9360>for i = 1 to numglobs
@Outline3@<:#240,9360> contents=getdialogfield$(8000 +i)
@Outline3@<:#245,9360> pfid = StrField$(globvars(i), 1, ",") 'get the power <+!>field id<-!>
@Outline3@<:#245,9360> pftype = StrField$(globvars(i), 2, ",") 'get the power <+!>field type<-!>
@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@<:#480,9360> <:f200,2TimesNewRomanPS,255,0,0>echovar=strcat$(<:f>strfield$(varname, 1, "_"), "_", strfield$(varname, 2, "_"), "_", strfield$(varname, 3, "_"), "_", strfield$(varname, 4, "_"), "_", strfield$(varname, 5, "_"), "_",<:f200,2TimesNewRomanPS,255,0,0> "echo_"
)<:f>
@Outline3@<:#240,9360><:f200,2TimesNewRomanPS,255,0,0> setglobalvar(echovar, contents)<:f>
@Outline3@<:#240,9360> setglobalvar(varname, contents)
@Outline3@<:#240,9360> if mergefieldspresent=1
@Outline3@<:#240,9360> result=GoToPowerField(pfid, pftype)
@Outline3@<:#240,9360>' FieldUpdate(pfid, pftype, pffield)
@Outline3@<:#240,9360> FieldEvaluate()
@Outline3@<:#240,9360> endif
@Outline3@<:#240,9360>next
@Outline3@<:#240,9360>if mergefieldspresent = 0
@Outline3@<:#240,9360> fieldupdateall()
@Outline3@<:#240,9360>endif
@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}!<:Zbuttoncheck>AmiButtonCheck<:Z~buttoncheck>(25550, 1)", 0.1)
@Outline2@<:#240,9360> runlater("{rmac}!AmiUIGray(25550, 0)", 0.1)
@Outline2@<:#240,9360> runlater("{rmac}!AmiUIGray(25551, 0)", 0.1)
@Outline2@<:#240,9360> runlater("{rmac}!AmiUIGray(25975, 0)", 0.1)
@Outline2@<:#240,9360> pause(008)
@Outline2@<:#240,9360> result = SaveAsNewStyle
@Outline2@<:#240,9360>endif
@Outline2@<:#240,9360>END FUNCTION
@Outline1@<:#278,9360>function AmiButtonCheck(ID, State)
@Outline2@<:#240,9360>hdlg = getactivewindow()
@Outline2@<:#240,9360>idnew = GetDlgItem(Hdlg, ID)
@Outline2@<:#240,9360>AppSendMessage(idnew, BM_SETCHECK, state, 0)
@Outline2@<:#240,9360>end function
@Outline1@<:#278,9360>function AmiUIGray(ID, State)
@Outline2@<:#240,9360>hdlg = getactivewindow()
@Outline2@<:#240,9360>idnew = GetDlgItem(Hdlg, ID)
@Outline2@<:#240,9360>enablewindow(idnew, state)
@Outline2@<:#240,9360>end function
@Outline1@<:#278,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@<:#278,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("No fields")
@Outline2@<:#240,9360>endif
@Outline2@<:#240,9360>END FUNCTION
@Outline1@<:#278,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@<:#278,9360>Function PreBuild(Hdlg,id,dummy)
@Outline2@<:#240,9360>target=getglobalvar$("target")
@Outline2@<:#240,9360>numglobs=getglobalvar$("numglobs")
@Outline2@<:#240,9360>'font handler
@Outline3@<:#240,9360>Font = CreateFont(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
@Outline3@<:#240,9360>if (Font)
@Outline3@<:#240,9360> hctl = GetDlgItem(hDlg, 1050)
@Outline3@<:#240,9360> hctl2 = GetDlgItem(hDlg, 1060)
@Outline3@<:#240,9360> SendMessage(hctl, WM_SETFONT, font, 0)
@Outline3@<:#240,9360> SendMessage(hctl2, WM_SETFONT, font, 0)
@Outline3@<:#240,9360>for i =8000 to 8009
@Outline3@<:#240,9360> hctl = GetDlgItem(hDlg, i)
@Outline3@<:#240,9360> SendMessage(hctl, WM_SETFONT, font, 0)
@Outline3@<:#240,9360>next
@Outline3@<:#240,9360> SetGlobalVar(HFONT, Font)
@Outline3@<:#240,9360>endif
@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("Default Information")
@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="Type the information that you want to appear each time "
@Outline3@<:#240,9360> L2="you create this type of document. Choose OK to insert this information "
@Outline3@<:#240,9360> L3="into the current document only. Choose Save As to save this "
@Outline3@<:#240,9360> L4="information to a new style sheet."
@Outline3@<:#240,9360> helptext="{L1}{L2}{L3}{L4}"
@Outline3@<:#240,9360> filledit(1050, helptext)
@Outline3@<:#240,9360>else
@Outline3@<:#240,9360> TitleBarMsg("Optional Information")
@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="Type the information you want to appear "
@Outline3@<:#240,9360> L2="in this document."
@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 + 22
@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@<:#278,9360>function initcapit(string)
@Outline2@<:#240,9360>if instr(0, " SSN ", string) != 0
@Outline2@<:#240,9360> initcapit=string
@Outline2@<:#240,9360> exit function
@Outline2@<:#240,9360>endif
@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>
@Outline2@<:#240,9360>DIALOG autostyle
@Outline2@<:#240,9360>-2134376448 23 85 57 262 185 "" "" "_LETTER1.STY Information"
@Outline2@<:#240,9360>FONT 8 "Helv"
@Outline2@<:#240,9360>109 6 91 12 8001 1350631552 "edit" "" 0
@Outline2@<:#240,9360>109 21 91 12 8002 1350631552 "edit" "" 0
@Outline2@<:#240,9360>109 36 91 12 8003 1350631552 "edit" "" 0
@Outline2@<:#240,9360>109 51 91 12 8004 1350631552 "edit" "" 0
@Outline2@<:#240,9360>109 66 91 12 8005 1350631552 "edit" "" 0
@Outline2@<:#240,9360>109 81 91 12 8006 1350631552 "edit" "" 0
@Outline2@<:#240,9360>109 96 91 12 8007 1350631552 "edit" "" 0
@Outline2@<:#240,9360>109 111 91 12 8008 1350631552 "edit" "" 0
@Outline2@<:#240,9360>109 126 91 12 8009 1350631552 "edit" "" 0
@Outline2@<:#240,9360>204 5 53 14 1 1342373889 "button" "OK" 0
@Outline2@<:#240,9360>204 22 53 14 2 1342373888 "button" "Cancel" 0
@Outline2@<:#240,9360>204 39 53 14 3 1342373888 "button" "Save &As..." 0
@Outline2@<:#240,9360>9 9 95 9 1001 1342177280 "static" "fld1:" 0
@Outline2@<:#240,9360>9 24 94 9 1002 1342177280 "static" "fld2:" 0
@Outline2@<:#240,9360>9 38 97 9 1003 1342177280 "static" "fld3:" 0
@Outline2@<:#240,9360>9 53 96 9 1004 1342177280 "static" "fld4:" 0
@Outline2@<:#240,9360>9 68 97 9 1005 1342177280 "static" "fld5:" 0
@Outline2@<:#240,9360>9 83 97 9 1006 1342177280 "static" "fld6:" 0
@Outline2@<:#240,9360>9 98 98 9 1007 1342177280 "static" "fld7:" 0
@Outline2@<:#240,9360>9 113 96 9 1008 1342177280 "static" "fld8:" 0
@Outline2@<:#240,9360>9 128 97 9 1009 1342177280 "static" "fld9:" 0
@Outline2@<:#240,9360>9 143 222 36 1050 1342177280 "static" "Default box text" 0
@Outline2@<:#240,9360>34 143 219 36 1060 1342177280 "static" "User box text" 0
@Outline2@<:#240,9360>END DIALOG
>
[Embedded]
00029467
>
[macsum] 10
main 0 0 10 24
fillboxfields 1306 1 26 82
AmiButtonCheck 5654 2 3 201
AmiUIGray 5869 2 3 206
freeglobs 6090 1 5 211
torchfields 6484 1 9 223
savesty 7134 3 1 243
PreBuild 7256 3 28 247
initcapit 10902 1 3 337
autostyle 11215 0 -1 347
[macse]
14 main
0 296 1
0 32 2
0 802
13
8 1
0 286 "AutoStyleSheets" "NoQuestions" "AMIPRO2.INI"
13
8 2
6 2
5 1
18 0
11 00000180
16 torchfields "as_"
6 0
15
9
10 00000265
6 2
7 ""
18 0
11 00000265
0 287 "AutoStyleSheets" "NoQuestions" 0 "AMIPRO2.INI"
0 286 "AutoStyleSheets" "DataGood" "AMIPRO2.INI"
13
8 3
0 4 0
17 19
6 3
5 1
18 1
11 00000469
17 20
29 4 macpath
0 295
13
8 4
17 21
29 5 collector
7 "{4}collect.smm"
8 5
17 22
16 "{5}"
17 25
0 271 "Setfont:hFont" 1
17 26
0 264 "Setfont:hFont" 0
17 27
2 452 1 3 "" ""
17 28
2 452 1 2 "" ""
17 29
29 6 cnt
0 1304 0
13
8 6
17 30
5 0
6 6
18 1
11 00000920
17 31
29 7 result
16 fillboxfields "as_def"
13
8 7
17 32
6 7
5 0
18 0
6 7
5 2
18 0
1 2
11 00000786
17 33
10 00000920
17 35
16 fillboxfields "as_user"
13
8 7
17 36
6 7
5 0
18 0
6 7
5 2
18 0
1 2
11 00000907
17 37
10 00000920
10 00000920
17 43
16 torchfields "as_"
17 44
29 8 mark
7 "as_starttext"
8 8
17 45
2 466 1 "{8}" 4002
13
8 7
17 46
6 7
5 1
18 0
11 00001089
17 47
2 466 1 "{8}" 4004
17 50
29 9 font
0 265 "Setfont:hFont"
13
8 9
17 51
5 0
6 9
18 1
11 00001217
17 52
0 284 "gdi,DeleteObject,HH" "{9}"
17 54
0 266 "Setfont:hFont"
17 55
2 109 1 "" "" 1
17 56
0 296 0
6 0
15
17 57
9
14 fillboxfields
29 0 target
29 1 fillboxfields
17 1
20 00003952
17 2
29 2 cnt
0 1304 0
13
8 2
17 3
6 2
5 0
18 0
11 00000152
6 1
15
9
17 6
29 3 rmac
0 802
13
8 3
17 7
0 271 "target" 1
17 8
0 264 "target" "{0}"
17 9
6 2
29 4 fields
21 4 [X]
17 10
5 1
29 5 globvars
21 5 [X]
17 11
5 1
29 6 echovars
21 6 [X]
17 12
29 7 numglobs
5 0
8 7
17 13
0 1305 0 &4
17 15
29 8 mergefieldspresent
5 0
8 8
29 9 i
5 1
8 9
17 16
6 2
6 9
18 2
12 00000539
10 00001433
5 1
6 9
3 0
8 9
10 00000457
17 17
29 10 pftype
6 9
22 4
0 20 [X] 2 ","
13
8 10
17 18
6 10
5 12
18 0
11 00000652
17 19
5 1
8 8
17 21
29 11 pffield
6 9
22 4
0 20 [X] 3 ","
13
8 11
17 22
29 12 varname
0 20 "{11}" 3 " "
13
8 12
17 23
29 13 showtype
0 20 "{12}" 6 "_"
13
8 13
17 24
0 17 "{13}"
13
7 "address2"
18 0
11 00000914
17 25
29 14 secondaddressline
5 1
8 14
17 27
29 15 echovar
0 20 "{12}" 1 "_"
13
0 20 "{12}" 2 "_"
13
0 20 "{12}" 3 "_"
13
0 20 "{12}" 4 "_"
13
0 20 "{12}" 5 "_"
13
0 16 [X] "_" [X] "_" [X] "_" [X] "_" [X] "_" "echo_"
13
8 15
17 28
29 16 targlen
0 14 "{0}"
13
8 16
17 29
0 806 "{12}" "{16}"
13
6 0
18 0
6 13
7 "echo"
18 1
1 1
11 00001420
17 30
6 7
5 1
3 0
8 7
17 31
29 17 result
6 9
22 4
0 1041 &5 "{7}" [X]
13
8 17
17 32
6 17
5 0
18 0
11 00001420
17 33
10 00003952
17 34
0 1041 &6 "{7}" "{15}"
10 00000506
17 39
6 7
5 0
18 0
11 00001498
17 41
5 3
8 1
6 1
15
9
17 45
0 271 "numglobs" 1
17 46
0 264 "numglobs" "{7}"
17 47
0 1043 &5 3 "_"
5 1
8 9
17 48
6 7
6 9
18 2
12 00001672
10 00003042
5 1
6 9
3 0
8 9
10 00001590
17 49
6 9
22 5
0 20 [X] 3 ","
13
8 11
17 50
0 20 "{11}" 3 " "
13
8 12
17 51
29 18 quotechar
0 39 34
13
8 18
17 52
29 19 varlabel
6 9
22 5
0 20 [X] 2 "{18}"
13
8 19
17 53
0 20 "{12}" 6 "_"
13
8 13
17 54
29 20 profilestringstuff
7 ""
8 20
17 55
6 13
5 -1
18 1
6 13
7 "echo"
18 1
6 13
7 ""
18 1
1 1
1 1
11 00002332
17 56
0 286 "AutoStyleSheets" "{13}" "AMIPRO2.INI"
13
8 20
17 57
0 17 "{13}"
13
7 "address1"
18 0
6 14
5 1
18 1
1 1
11 00002332
17 58
29 21 address2
0 286 "AutoStyleSheets" "Address2" "AMIPRO2.INI"
13
8 21
17 59
6 21
7 ""
18 1
11 00002332
17 60
0 16 "{20}" ", " "{21}"
13
8 20
17 64
0 271 "{12}" 1
17 65
0 20 "{12}" 1 "_"
13
0 20 "{12}" 2 "_"
13
0 20 "{12}" 3 "_"
13
0 20 "{12}" 4 "_"
13
0 20 "{12}" 5 "_"
13
0 16 [X] "_" [X] "_" [X] "_" [X] "_" [X] "_" "echo_"
13
8 15
17 66
0 271 "{15}" 1
17 67
0 806 "{19}" 5
13
0 17 [X]
13
7 "type "
18 0
11 00002735
17 68
29 22 lenwithouttype
0 14 "{19}"
13
5 5
3 1
8 22
17 69
0 807 "{19}" "{22}"
13
8 19
17 71
0 807 "{19}" 5
13
0 17 [X]
13
7 " here"
18 0
11 00002906
17 72
29 23 lenwithouthere
0 14 "{19}"
13
5 5
3 1
8 23
17 73
0 806 "{19}" "{23}"
13
8 19
17 75
16 initcapit "{19}"
13
8 19
17 76
5 1000
6 9
3 0
0 31 [X] "{19}:"
17 77
5 8000
6 9
3 0
0 31 [X] "{20}"
10 00001639
17 79
0 41 0 "{3}!PreBuild"
17 81
29 24 box
0 26 "." "autostyle"
13
8 24
17 82
6 24
8 1
17 83
6 24
5 0
18 0
6 24
5 2
18 0
1 2
11 00003219
17 84
10 00003952
5 1
8 9
17 87
6 7
6 9
18 2
12 00003311
10 00003898
5 1
6 9
3 0
8 9
10 00003229
17 88
29 25 contents
5 8000
6 9
3 0
0 27 [X]
13
8 25
17 89
29 26 pfid
6 9
22 5
0 20 [X] 1 ","
13
8 26
17 90
6 9
22 5
0 20 [X] 2 ","
13
8 10
17 91
6 9
22 5
0 20 [X] 3 ","
13
8 11
17 92
0 20 "{11}" 3 " "
13
8 12
17 93
0 20 "{12}" 1 "_"
13
0 20 "{12}" 2 "_"
13
0 20 "{12}" 3 "_"
13
0 20 "{12}" 4 "_"
13
0 20 "{12}" 5 "_"
13
0 16 [X] "_" [X] "_" [X] "_" [X] "_" [X] "_" "echo_"
13
8 15
17 94
0 264 "{15}" "{25}"
17 95
0 264 "{12}" "{25}"
17 96
6 8
5 1
18 0
11 00003885
17 97
0 1306 "{26}" "{10}"
13
8 17
17 99
2 571 1
10 00003278
17 102
6 8
5 0
18 0
11 00003952
17 103
2 267 1
17 106
16 torchfields "{0}"
17 107
16 freeglobs "{0}"
17 108
0 266 "target"
17 109
0 266 "numglobs"
17 110
6 24
5 3
18 0
11 00004328
17 111
0 285 "{3}!AmiButtonCheck(25550, 1)" 0.1
17 112
0 285 "{3}!AmiUIGray(25550, 0)" 0.1
17 113
0 285 "{3}!AmiUIGray(25551, 0)" 0.1
17 114
0 285 "{3}!AmiUIGray(25975, 0)" 0.1
17 115
0 274 008
17 116
24 305
13
8 17
6 1
15
17 118
9
14 AmiButtonCheck
29 0 ID
29 1 State
29 2 AmiButtonCheck
17 1
29 3 hdlg
0 284 "user,GetActiveWindow,H"
13
8 3
17 2
29 4 idnew
0 44 "{3}" "{0}"
13
8 4
17 3
0 1036 "{4}" 1025 "{1}" 0
6 2
15
17 4
9
14 AmiUIGray
29 0 ID
29 1 State
29 2 AmiUIGray
17 1
29 3 hdlg
0 284 "user,GetActiveWindow,H"
13
8 3
17 2
29 4 idnew
0 44 "{3}" "{0}"
13
8 4
17 3
0 284 "User,EnableWindow,AHH" "{4}" "{1}"
6 2
15
17 4
9
14 freeglobs
29 0 target
29 1 freeglobs
17 2
29 2 targlen
0 14 "{0}"
13
8 2
17 3
29 3 numglobs
0 299
13
8 3
17 4
6 3
29 4 globnuke
21 4 [X]
17 5
0 300 &4
29 5 i
5 1
8 5
17 6
6 3
6 5
18 2
12 00000272
10 00000375
5 1
6 5
3 0
8 5
10 00000191
17 7
6 5
22 4
0 806 [X] "{2}"
13
6 0
18 0
11 00000362
17 8
6 5
22 4
0 266 [X]
10 00000239
6 1
15
17 11
9
14 torchfields
29 0 target
29 1 torchfields
17 2
29 2 cnt
0 1304 0
13
8 2
17 3
5 0
6 2
18 1
11 00000631
17 4
6 2
29 3 fields
21 3 [X]
17 5
0 1305 0 &3
29 4 i
5 1
8 4
17 6
6 2
6 4
18 2
12 00000269
10 00000618
5 1
6 4
3 0
8 4
10 00000188
17 7
29 5 pfid
6 4
22 3
0 20 [X] 1 ","
13
8 5
17 8
29 6 pftype
6 4
22 3
0 20 [X] 2 ","
13
8 6
17 9
29 7 pffield
6 4
22 3
0 20 [X] 3 ","
13
8 7
17 10
29 8 varname
0 20 "{7}" 3 " "
13
8 8
17 11
29 9 targlen
0 14 "{0}"
13
8 9
17 12
0 806 "{8}" "{9}"
13
6 0
18 0
11 00000605
17 13
2 227 1 "{5}" "{6}"
10 00000236
10 00000631
6 1
15
17 19
9
14 savesty
29 0 Hdlg
29 1 id
29 2 dummy
29 3 savesty
24 305
17 2
0 284 "user,SetFocus,HH" "{0}"
6 3
15
17 3
9
14 PreBuild
29 0 Hdlg
29 1 id
29 2 dummy
29 3 PreBuild
17 1
29 4 target
0 265 "target"
13
8 4
17 2
29 5 numglobs
0 265 "numglobs"
13
8 5
17 4
29 6 Font
0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
13
8 6
17 5
6 6
11 00000720
17 6
29 7 hctl
0 44 "{0}" 1050
13
8 7
17 7
29 8 hctl2
0 44 "{0}" 1060
13
8 8
17 8
0 284 "user,SendMessage,HHHHJ" "{7}" 48 "{6}" 0
17 9
0 284 "user,SendMessage,HHHHJ" "{8}" 48 "{6}" 0
29 9 i
5 8000
8 9
17 10
5 8009
6 9
18 2
12 00000581
10 00000684
5 1
6 9
3 0
8 9
10 00000496
17 11
0 44 "{0}" "{9}"
13
8 7
17 12
0 284 "user,SendMessage,HHHHJ" "{7}" 48 "{6}" 0
10 00000548
17 14
0 264 "Setfont:hFont" "{6}"
17 17
29 10 CurStyleSheet
0 279 3
13
8 10
17 18
0 18 "{10}"
13
8 10
17 19
29 11 lb
0 39 091
13
8 11
17 20
29 12 rb
0 39 093
13
8 12
17 21
0 16 "{11}" "{10}" "{12}"
13
8 10
17 22
6 4
7 "as_def"
18 0
11 00001608
17 23
0 284 "user,GetActiveWindow,H"
13
0 284 "user,SetWindowText,IHC" [X] "Default Information"
17 24
0 44 "{0}" 3
13
0 284 "User,ShowWindow,AHH" [X] 1
17 25
0 44 "{0}" 1060
13
0 284 "User,ShowWindow,AHH" [X] 0
17 26
29 13 L1
7 "Type the information that you want to appear each time "
8 13
17 27
29 14 L2
7 "you create this type of document. Choose OK to insert this information "
8 14
17 28
29 15 L3
7 "into the current document only. Choose Save As to save this "
8 15
17 29
29 16 L4
7 "information to a new style sheet."
8 16
17 30
29 17 helptext
7 "{13}{14}{15}{16}"
8 17
17 31
0 31 1050 "{17}"
10 00001988
17 33
0 284 "user,GetActiveWindow,H"
13
0 284 "user,SetWindowText,IHC" [X] "Optional Information"
17 34
0 44 "{0}" 3
13
0 284 "User,ShowWindow,AHH" [X] 0
17 35
0 44 "{0}" 1060
13
0 284 "User,ShowWindow,AHH" [X] 0
17 36
7 "Type the information you want to appear "
8 13
17 37
7 "in this document."
8 14
17 38
7 "{13}{14}{15}{16}"
8 17
17 39
0 31 1050 "{17}"
6 5
5 1
3 0
8 9
17 42
5 9
6 9
18 2
12 00002090
10 00002319
5 1
6 9
3 0
8 9
10 00002008
17 43
29 18 stid
5 1000
6 9
3 0
8 18
17 44
0 44 "{0}" "{18}"
13
0 284 "User,ShowWindow,AHH" [X] 0
17 45
29 19 ebid
5 8000
6 9
3 0
8 19
17 46
0 44 "{0}" "{19}"
13
0 284 "User,ShowWindow,AHH" [X] 0
10 00002057
17 49
5 4
29 20 rect
21 20 [X]
17 50
0 284 "user,GetWindowRect,HHN" "{0}" &20
17 51
29 21 x
5 1
22 20
8 21
17 52
29 22 y
5 2
22 20
8 22
17 53
29 23 xL
5 3
22 20
8 23
17 54
29 24 yL
5 4
22 20
8 24
17 55
29 25 MoveBase
5 24
8 25
17 56
29 26 moveshrink
6 25
5 9
6 5
3 1
4 0
8 26
17 57
6 4
7 "as_def"
18 0
11 00002750
17 58
6 26
5 22
3 0
8 26
17 59
29 27 max
5 145
8 27
10 00002800
17 61
6 26
5 50
3 0
8 26
17 62
5 217
8 27
17 64
6 26
6 27
18 3
11 00002857
17 65
6 27
8 26
17 67
6 23
6 21
3 1
6 24
6 22
6 26
3 0
3 1
0 284 "user,MoveWindow,HHHHHHH" "{0}" "{21}" "{22}" [X] [X] 1
17 69
29 28 hwndCtrl
0 44 "{0}" 1050
13
8 28
17 70
5 4
29 29 rect2
21 29 [X]
17 71
5 4
29 30 rect3
21 30 [X]
17 72
0 284 "user,GetWindowRect,HHN" "{28}" &29
17 73
0 284 "user,ScreenToClient,HHN" "{0}" &29
17 74
0 284 "user,GetClientRect,HHN" "{28}" &30
17 75
5 1
22 29
8 21
17 76
5 2
22 29
8 22
17 77
5 3
22 30
8 23
17 78
5 4
22 30
8 24
17 79
6 25
5 9
6 5
3 1
4 0
8 26
17 80
6 4
7 "as_def"
18 0
11 00003459
17 81
5 137
8 27
10 00003479
17 83
5 167
8 27
17 85
6 26
6 27
18 3
11 00003536
17 86
6 27
8 26
17 88
6 22
6 26
3 1
0 284 "user,MoveWindow,HHHHHHH" "{28}" "{21}" [X] "{23}" "{24}" 1
6 3
15
17 89
9
14 initcapit
29 0 string
29 1 initcapit
17 1
0 808 0 " SSN " "{0}"
13
5 0
18 1
11 00000128
17 2
6 0
8 1
6 1
15
9
17 5
29 2 firstchar
0 806 "{0}" 1
13
8 2
17 6
29 3 restchars
0 14 "{0}"
13
5 1
3 1
0 807 "{0}" [X]
13
0 17 [X]
13
8 3
17 7
0 16 "{2}" "{3}"
13
8 1
6 1
15
17 8
9
DIALOG autostyle
-2134376448 23 85 57 262 185 "" "" "_LETTER1.STY Information"
FONT 8 "Helv"
109 6 91 12 8001 1350631552 "edit" "" 0
109 21 91 12 8002 1350631552 "edit" "" 0
109 36 91 12 8003 1350631552 "edit" "" 0
109 51 91 12 8004 1350631552 "edit" "" 0
109 66 91 12 8005 1350631552 "edit" "" 0
109 81 91 12 8006 1350631552 "edit" "" 0
109 96 91 12 8007 1350631552 "edit" "" 0
109 111 91 12 8008 1350631552 "edit" "" 0
109 126 91 12 8009 1350631552 "edit" "" 0
204 5 53 14 1 1342373889 "button" "OK" 0
204 22 53 14 2 1342373888 "button" "Cancel" 0
204 39 53 14 3 1342373888 "button" "Save &As..." 0
9 9 95 9 1001 1342177280 "static" "fld1:" 0
9 24 94 9 1002 1342177280 "static" "fld2:" 0
9 38 97 9 1003 1342177280 "static" "fld3:" 0
9 53 96 9 1004 1342177280 "static" "fld4:" 0
9 68 97 9 1005 1342177280 "static" "fld5:" 0
9 83 97 9 1006 1342177280 "static" "fld6:" 0
9 98 98 9 1007 1342177280 "static" "fld7:" 0
9 113 96 9 1008 1342177280 "static" "fld8:" 0
9 128 97 9 1009 1342177280 "static" "fld9:" 0
9 143 222 36 1050 1342177280 "static" "Default box text" 0
34 143 219 36 1060 1342177280 "static" "User box text" 0
00029492
