home *** CD-ROM | disk | FTP | other *** search
INI File | 1995-08-17 | 34.6 KB | 2,683 lines |
- [ver]
- 4
- [sty]
-
- [files]
- [charset]
- 82
- ANSI (Windows, IBM CP 1252)
- [revisions]
- 0
- [prn]
- HP LaserJet 4 Plus/4M Plus
- [port]
- LPT1:
- [lang]
- 1
- [fldnames]
- Field1
- Field2
- Field3
- Field4
- Field5
- Field6
- Field7
- Field8
- [desc]
-
-
-
-
-
- 808711894
- 3
- 807846022
- 44
- 10
- 0
- 0
- 0
- 0
-
-
-
-
-
-
- 1
- [fopts]
- 0
- 1
- 0
- 0
-
-
- [lnopts]
- 2
- Body Text
- 1
- [docopts]
- 5
- 2
- [GramStyle]
-
- [tag]
- Body Text
- 2
- [fnt]
- Times New Roman
- 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]
- Times New Roman
- 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
- 4
- [fnt]
- Times New Roman
- 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
- [tag]
- Bullet 1
- 5
- [fnt]
- Times New Roman
- 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]
- Times New Roman
- 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
- 16
- 0
- 0
- [nfmt]
- 272
- 1
- 2
- .
- ,
- $
- Number List
- 0
- 0
- [tag]
- Subhead
- 7
- [fnt]
- Times New Roman
- 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
- 2
-
- 0
- 1
- 1
- 0
- 0
- 0
- 0
- [nfmt]
- 272
- 1
- 2
- .
- ,
- $
- Subhead
- 0
- 0
- [tag]
- Title
- 8
- [fnt]
- Arial
- 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
- 1
-
- 0
- 1
- 1
- 0
- 0
- 0
- 0
- [nfmt]
- 272
- 1
- 2
- .
- ,
- $
- Title
- 0
- 0
- [tag]
- Header
- 9
- [fnt]
- Times New Roman
- 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
- .
- ,
- $
- Header
- 0
- 0
- [tag]
- Footer
- 11
- [fnt]
- Times New Roman
- 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
- .
- ,
- $
- Footer
- 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
- 72
- 1
- 792
- 1440
- 0
- 1
- 0
- 1
- 1
- 0
- 1
- 1440
- 10800
- 2
- 2
- 4680
- 3
- 9360
- [txt]
- >
- [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]
- 10
- 44 0 16 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
- 89 0 26 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
- 132 0 19 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
- 173 0 63 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
- 216 0 24 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
- 260 0 0 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
- 305 0 14 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
- 349 0 10 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
- 393 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
- 409 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]
- <:#288,9360>declares and defines
-
- <:#288,9360>' PMM 8.2.95 Define GetParent
-
- <:#288,9360>Define GetParent() DllCall("User,GetParent,HH",%1)
-
- <:#288,9360>
-
- <:#288,9360>
-
- <:#288,9360>DEFINE MoveWindow() DllCall("user,MoveWindow,HHHHHHH",%1,%2,%3,%4,%5,1)
-
- <:#288,9360>DEFINE GetWindowRect() DllCall("user,GetWindowRect,HHN",%1,%2)
-
- <:#288,9360>DEFINE GetClientRect() DllCall("user,GetClientRect,HHN",%1,%2)
-
- <:#288,9360>Define ScreenToClient() DllCall("user,ScreenToClient,HHN", %1, %2)
-
- <:#288,9360>Define ClientToScreen() DllCall("user,ClientToScreen,HHN", %1, %2)
-
- <:#288,9360>
-
- <:#288,9360>Define ShowWindow() DllCall("User,ShowWindow,AHH",%1,%2)
-
- <:#288,9360>Define EnableWindow() DllCall("User,EnableWindow,AHH",%1,%2)
-
- <:#288,9360>define SetFocus() DllCall("user,SetFocus,HH", %1)
-
- <:#288,9360>define HFONT "Setfont:hFont"
-
- <:#576,9360>define SendMessage(hwnd, msg, wpara, lparm) DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
-
- <:#288,9360>define WM_SETFONT 0x30
-
- <:#288,9360>define WM_USER 0x0400
-
- <:#288,9360>define BM_SETCHECK 0x0401
-
- <:#288,9360>define DeleteObject(handle) DllCall("gdi,DeleteObject,HH", %1)
-
- <:#288,9360>define GetActiveWindow() DllCall("user,GetActiveWindow,H")
-
- <:#288,9360>define SetWindowText() DllCall("user,SetWindowText,IHC", %1, %2)
-
- <:#288,9360>define TitleBarMsg() SetWindowText(GetActiveWindow(), %1)
-
- <:#288,9360>
-
- <:#288,9360>define GetWindowText() DllCall("user,GetWindowText,HHFH", %1, %2, %3)
-
- <:#288,9360>define MapDialogRect() DllCall("user,MapDialogRect,HHN", %1, %2)
-
- <:#288,9360>declare fillboxfields(target);
-
- <:#288,9360>declare torchfields(target);
-
- <:#288,9360>declare initcapit(string);
-
- <:#288,9360>
-
- <:#288,9360>function main()
-
- <:#288,9360>hourglass(1)
-
- <:#288,9360>ignorekeyboard(2)
-
- <:#288,9360>rmac=getrunningmacrofile$()
-
- <:#288,9360>'burn power fields if entry is in AMIPRO2.INI
-
- <:#288,9360>burnfields=getprofilestring$("AutoStyleSheets", "NoQuestions", "AMIPRO2.INI")
-
- <:#288,9360>if burnfields = 1
-
- <:#288,9360> torchfields("as_")
-
- <:#288,9360> exit function
-
- <:#288,9360>elseif burnfields = ""
-
- <:#288,9360> writeprofilestring("AutoStyleSheets", "NoQuestions", 0, "AMIPRO2.INI")
-
- <:#288,9360>endif
-
- <:#288,9360>datagood=getprofilestring$("AutoStyleSheets", "DataGood", "AMIPRO2.INI")
-
- <:#288,9360>gotocmd(3,"","")
-
- <:#288,9360>gotocmd(2,"","") 'dez 5/23/94; go back to tof
-
- <:#288,9360>cnt = GetPowerFieldCount(0)
-
- <:#288,9360>
-
- <:#288,9360>if (0 != cnt)
-
- <:#288,9360> result=fillboxfields("as_def")
-
- <:#288,9360> if result=0 or result = 2
-
- <:#288,9360> goto blowout
-
- <:#288,9360> endif
-
- <:#288,9360> result = fillboxfields("as_user")
-
- <:#288,9360> if result=0 or result = 2
-
- <:#288,9360> goto blowout
-
- <:#288,9360> endif
-
- <:#288,9360>else
-
- <:#288,9360>' message("No fields")
-
- <:#288,9360>endif
-
- <:#288,9360>
-
- <:#288,9360>blowout:
-
- <:#288,9360>
-
- <:#288,9360>torchfields("as_")
-
- <:#288,9360>mark="as_starttext"
-
- <:#288,9360>result=MarkBookMark(mark, 4002 )
-
- <:#288,9360>if result = 1
-
- <:#288,9360> MarkBookMark(mark, 4004 )
-
- <:#288,9360>endif
-
- <:#288,9360>DocInfo("" "" 1 )
-
- <:#288,9360>hourglass(0)
-
- <:#288,9360>end function
-
- <:#288,9360>
-
- <:#288,9360>FUNCTION fillboxfields(target)
-
- <:#288,9360>
-
- <:#288,9360>onerror blowout
-
- <:#288,9360>cnt = GetPowerFieldCount(0)
-
- <:#288,9360>
-
- <:#288,9360>if cnt = 0
-
- <:#288,9360> exit function
-
- <:#288,9360>endif
-
- <:#288,9360>
-
- <:#288,9360>rmac=getrunningmacrofile$()
-
- <:#288,9360>allocglobalvar("target", 1)
-
- <:#288,9360>setglobalvar("target", target)
-
- <:#288,9360>dim fields(cnt)
-
- <:#288,9360>dim globvars(1)
-
- <:#288,9360>dim echovars(1)
-
- <:#288,9360>numglobs=0
-
- <:#288,9360>GetPowerFields(0, &fields)
-
- <:#288,9360>'load &globvars
-
- <:#288,9360>mergefieldspresent=0
-
- <:#288,9360>
-
- <:#288,9360>for i = 1 to cnt
-
- <:#288,9360> pftype = StrField$(fields(i), 2, ",") 'get the power field type
-
- <:#288,9360> if pftype=12 'there is a merge field in the doc.
-
- <:#288,9360> mergefieldspresent=1
-
- <:#288,9360> endif
-
- <:#288,9360> pffield = StrField$(fields(i), 3, ",") 'get the power field
-
- <:#288,9360> varname=StrField$(pffield, 3, " ") 'get the name of the variable in the PF
-
- <:#288,9360> showtype=strfield$(varname, 6, "_")
-
- <:#288,9360> if lcase$(showtype)="address2"
-
- <:#288,9360> secondaddressline=1
-
- <:#288,9360> endif
-
- <:#864,9360> echovar=strcat$(strfield$(varname, 1, "_"), "_", strfield$(varname, 2, "_"), "_", strfield$(varname, 3, "_"), "_", strfield$(varname, 4, "_"), "_", strfield$(varname, 5, "_"), "_", "echo_")
-
- <:#288,9360> targlen=len(target)
-
- <:#288,9360> if left$(varname, targlen)=target and showtype != "echo"
-
- <:#288,9360> numglobs=numglobs+1
-
- <:#288,9360> result=arrayinsert(&globvars, numglobs, fields(i))
-
- <:#288,9360> if result = 0
-
- <:#288,9360> goto blowout
-
- <:#288,9360> arrayinsert(&echovars, numglobs, echovar)
-
- <:#288,9360> endif
-
- <:#288,9360> endif
-
- <:#288,9360>next
-
- <:#288,9360>
-
- <:#288,9360>'determine if we have any suitable PFs
-
- <:#288,9360>
-
- <:#288,9360>if numglobs=0
-
- <:#288,9360>' message(target)
-
- <:#288,9360> fillboxfields = 3 'this attempt failed, but don't blow out completely
-
- <:#288,9360> exit function
-
- <:#288,9360>endif
-
- <:#288,9360>
-
- <:#288,9360>'fill dialog box with labels & pre-build
-
- <:#288,9360>allocglobalvar("numglobs", 1)
-
- <:#288,9360>setglobalvar("numglobs", numglobs)
-
- <:#288,9360>arraysort(&globvars, 3, "_") 'sort the array on varnum
-
- <:#288,9360>
-
- <:#288,9360>for i = 1 to numglobs
-
- <:#288,9360> pffield = StrField$(globvars(i), 3, ",") 'get the power field
-
- <:#288,9360> varname=StrField$(pffield, 3, " ") 'get the name of the variable in the PF
-
- <:#288,9360> quotechar=chr$(34)
-
- <:#288,9360> varlabel=StrField$(globvars(i), 2, quotechar) 'get the label for the variable
-
- <:#288,9360> showtype=strfield$(varname, 6, "_")
-
- <:#288,9360> profilestringstuff=""
-
- <:#288,9360> if showtype != (-1) and showtype != "echo" and showtype != ""
-
- <:#576,9360> profilestringstuff=getprofilestring$("AutoStyleSheets", showtype, "AMIPRO2.INI")
-
- <:#288,9360> if lcase$(showtype) = "address1" and secondaddressline !=1
-
- <:#576,9360> address2=getprofilestring$("AutoStyleSheets", "Address2", "AMIPRO2.INI")
-
- <:#288,9360> if address2 != ""
-
- <:#288,9360> profilestringstuff=strcat$(profilestringstuff, ", " address2)
-
- <:#288,9360> endif
-
- <:#288,9360> endif
-
- <:#288,9360> endif
-
- <:#288,9360> allocglobalvar(varname, 1)
-
- <:#864,9360> echovar=strcat$(strfield$(varname, 1, "_"), "_", strfield$(varname, 2, "_"), "_", strfield$(varname, 3, "_"), "_", strfield$(varname, 4, "_"), "_", strfield$(varname, 5, "_"), "_", "echo_")
-
- <:#288,9360> allocglobalvar(echovar, 1)
-
- <:#288,9360> if lcase$(left$(varlabel, 5)) = "type "
-
- <:#288,9360> lenwithouttype=len(varlabel) - 5
-
- <:#288,9360> varlabel=right$(varlabel, lenwithouttype)
-
- <:#288,9360> endif
-
- <:#288,9360> if lcase$(right$(varlabel, 5)) = " here"
-
- <:#288,9360> lenwithouthere=len(varlabel) - 5
-
- <:#288,9360> varlabel=left$(varlabel, lenwithouthere)
-
- <:#288,9360> endif
-
- <:#288,9360> varlabel=initcapit(varlabel)
-
- <:#288,9360> filledit(1000 + i, "{varlabel}:")
-
- <:#288,9360> filledit(8000 + i, profilestringstuff)
-
- <:#288,9360>next
-
- <:#288,9360>
-
- <:#288,9360>SetDlgCallBack(0,"{rmac}!PreBuild")
-
- <:#288,9360>'SetDlgCallBack(23,"{rmac}!savesty")
-
- <:#288,9360>
-
- <:#288,9360>box=dialogbox(".", "autostyle")
-
- <:#288,9360>
-
- <:#288,9360>fillboxfields = box 'set this function's return value to the ID returned by the box
-
- <:#288,9360>if box= 0 or box =2
-
- <:#288,9360> goto blowout
-
- <:#288,9360>endif
-
- <:#288,9360>'set global vars & update fields
-
- <:#288,9360>for i = 1 to numglobs
-
- <:#288,9360> contents=getdialogfield$(8000 +i)
-
- <:#288,9360> pfid = StrField$(globvars(i), 1, ",") 'get the power field id
-
- <:#288,9360> pftype = StrField$(globvars(i), 2, ",") 'get the power field type
-
- <:#288,9360> pffield = StrField$(globvars(i), 3, ",") 'get the power field
-
- <:#288,9360> varname=StrField$(pffield, 3, " ") 'get the name of the variable in the PF
-
- <:#864,9360> echovar=strcat$(strfield$(varname, 1, "_"), "_", strfield$(varname, 2, "_"), "_", strfield$(varname, 3, "_"), "_", strfield$(varname, 4, "_"), "_", strfield$(varname, 5, "_"), "_", "echo_")
-
- <:#288,9360> setglobalvar(echovar, contents)
-
- <:#288,9360> setglobalvar(varname, contents)
-
- <:#288,9360> if mergefieldspresent=1
-
- <:#288,9360> result=GoToPowerField(pfid, pftype)
-
- <:#288,9360>' FieldUpdate(pfid, pftype, pffield)
-
- <:#288,9360> FieldEvaluate()
-
- <:#288,9360> endif
-
- <:#288,9360>next
-
- <:#288,9360>if mergefieldspresent = 0
-
- <:#288,9360> fieldupdateall()
-
- <:#288,9360>endif
-
- <:#288,9360>
-
- <:#288,9360>blowout:
-
- <:#288,9360> call torchfields(target)
-
- <:#288,9360> call freeglobs(target)
-
- <:#288,9360> freeglobalvar("target")
-
- <:#288,9360> freeglobalvar("numglobs")
-
- <:#288,9360>
-
- <:#288,9360>if box=3
-
- <:#288,9360> runlater("{rmac}!<:Zbuttoncheck>AmiButtonCheck<:Z~buttoncheck>(25550, 1)", 0.1)
-
- <:#288,9360> runlater("{rmac}!AmiUIGray(25550, 0)", 0.1)
-
- <:#288,9360> runlater("{rmac}!AmiUIGray(25551, 0)", 0.1)
-
- <:#288,9360> runlater("{rmac}!AmiUIGray(25975, 0)", 0.1)
-
- <:#288,9360> pause(008)
-
- <:#288,9360> result = SaveAsNewStyle
-
- <:#288,9360>endif
-
- <:#288,9360>
-
- <:#288,9360>END FUNCTION
-
- <:#288,9360>
-
- <:#288,9360>
-
- <:#288,9360>function AmiButtonCheck(ID, State)
-
- <:#288,9360>
-
- <:#288,9360>hdlg = getactivewindow()
-
- <:#288,9360>idnew = GetDlgItem(Hdlg, ID)
-
- <:#288,9360>AppSendMessage(idnew, BM_SETCHECK, state, 0)
-
- <:#288,9360>end function
-
- <:#288,9360>
-
- <:#288,9360>function AmiUIGray(ID, State)
-
- <:#288,9360>hdlg = getactivewindow()
-
- <:#288,9360>idnew = GetDlgItem(Hdlg, ID)
-
- <:#288,9360>enablewindow(idnew, state)
-
- <:#288,9360>end function
-
- <:#288,9360>
-
- <:#288,9360>FUNCTION freeglobs(target)
-
- <:#288,9360>targlen=len(target)
-
- <:#288,9360>numglobs=getglobalvarcount()
-
- <:#288,9360>dim globnuke(numglobs)
-
- <:#288,9360>getglobalvarnames(&globnuke)
-
- <:#288,9360>for i = 1 to numglobs
-
- <:#288,9360> if left$(globnuke(i), targlen)=target
-
- <:#288,9360> freeglobalvar(globnuke(i))
-
- <:#288,9360> endif
-
- <:#288,9360>next
-
- <:#288,9360>end function
-
- <:#288,9360>
-
- <:#288,9360>FUNCTION torchfields(target)
-
- <:#288,9360>'singlestep(0)
-
- <:#288,9360>cnt = GetPowerFieldCount(0)
-
- <:#288,9360>if (0 != cnt)
-
- <:#288,9360> dim fields(cnt)
-
- <:#288,9360> GetPowerFields(0, &fields)
-
- <:#288,9360> for i = 1 to cnt
-
- <:#288,9360> pfid = StrField$(fields(i), 1, ",")
-
- <:#288,9360> pftype = StrField$(fields(i), 2, ",")
-
- <:#288,9360> pffield = StrField$(fields(i), 3, ",") 'get the power field
-
- <:#576,9360> varname=StrField$(pffield, 3, " ") 'get the name of the variable in the PF
-
- <:#288,9360> targlen=len(target)
-
- <:#288,9360> if left$(varname, targlen)=target
-
- <:#288,9360> FieldRemove(pfid, pftype);
-
- <:#288,9360> endif
-
- <:#288,9360> next
-
- <:#288,9360>else
-
- <:#288,9360>' message("No fields")
-
- <:#288,9360>endif
-
- <:#288,9360>END FUNCTION
-
- <:#288,9360>
-
- <:#288,9360>function savesty(Hdlg,id,dummy) 'pitch if not a callback
-
- <:#288,9360>SaveAsNewStyle
-
- <:#288,9360>HwndDlg = GetParent(GetdlgItem(Hdlg, 1))
-
- <:#288,9360>
-
- <:#288,9360>setfocus(hWndDlg)
-
- <:#288,9360>end function
-
- <:#288,9360>
-
- <:#288,9360>Function PreBuild(Hdlg,id,dummy)
-
- <:#288,9360>target=getglobalvar$("target")
-
- <:#288,9360>
-
- <:#288,9360>' PMM 8.7.95 the hdlg is now a dialog object and is not the real hwnd for the box
-
- <:#288,9360>' to retrieve the traditional hDlg get the parent for one of the controls
-
- <:#288,9360>
-
- <:#288,9360>HwndDlg = GetParent(GetdlgItem(Hdlg, 1))
-
- <:#288,9360>
-
- <:#288,9360>numglobs=getglobalvar$("numglobs")
-
- <:#288,9360>'name the box and show the right buttons and static text
-
- <:#288,9360>CurStyleSheet = GetDocInfo$(3)
-
- <:#288,9360>CurStyleSheet = ucase$(CurStyleSheet)
-
- <:#288,9360>lb=chr$(091)
-
- <:#288,9360>rb=chr$(093)
-
- <:#288,9360>CurStyleSheet = strcat$(lb, CurStyleSheet, rb)
-
- <:#288,9360>if target ="as_def"
-
- <:#288,9360> SetWindowText(HwndDlg,"Default Information")
-
- <:#288,9360> 'TitleBarMsg("Default Information")
-
- <:#288,9360> ShowWindow(GetDlgItem(Hdlg,3), 1) ' show the save as button
-
- <:#288,9360> ShowWindow(GetDlgItem(Hdlg,1060), 0) ' hide the 1060 field static text
-
- <:#288,9360> L1="Type the information that you want to appear each time "
-
- <:#288,9360> L2="you create this type of document. Choose OK to insert this information "
-
- <:#288,9360> L3="into the current document only. Choose Save As to save this "
-
- <:#288,9360> L4="information to a new style sheet."
-
- <:#288,9360> helptext="{L1}{L2}{L3}{L4}"
-
- <:#288,9360> SetWindowtext(GetDlgItem(Hdlg, 1050),HelpText)
-
- <:#288,9360> 'filledit(1050, helptext)
-
- <:#288,9360>else
-
- <:#288,9360> SetWindowText(HwndDlg, "Optional Information")
-
- <:#288,9360> 'TitleBarMsg("Optional Information")
-
- <:#288,9360> ShowWindow(GetDlgItem(Hdlg,3), 0) ' hide the save as button
-
- <:#288,9360> ShowWindow(GetDlgItem(Hdlg,1060), 0) ' hide the 1060 field static text
-
- <:#288,9360> L1="Type the information you want to appear "
-
- <:#288,9360> L2="in this document."
-
- <:#288,9360> helptext="{L1}{L2}{L3}{L4}"
-
- <:#288,9360> SetWindowtext(GetDlgItem(Hdlg, 1050),HelpText)
-
- <:#288,9360>
-
- <:#288,9360>' filledit(1050, helptext)
-
- <:#288,9360>endif
-
- <:#288,9360>'hide static text and edit fields
-
- <:#288,9360>
-
- <:#288,9360>for i = (numglobs + 1) to 9
-
- <:#288,9360> stid=1000 + i
-
- <:#288,9360> ShowWindow(GetDlgItem(Hdlg, stid), 0) ' hide the static text field
-
- <:#288,9360> ebid=8000 + i
-
- <:#288,9360> ShowWindow(GetDlgItem(Hdlg, ebid), 0) ' hide the edit box
-
- <:#288,9360>next
-
- <:#288,9360>
-
- <:#288,9360>'size the box
-
- <:#288,9360>DIM rect(4)
-
- <:#288,9360>
-
- <:#288,9360>GetWindowRect(hWndDlg,&rect)
-
- <:#288,9360>
-
- <:#288,9360>x=rect(1)
-
- <:#288,9360>y=rect(2)
-
- <:#288,9360>xL=rect(3)
-
- <:#288,9360>yL=rect(4)
-
- <:#288,9360>MoveBase=24
-
- <:#288,9360>moveshrink=MoveBase * (9-numglobs)
-
- <:#288,9360>
-
- <:#288,9360>if target="as_def"
-
- <:#288,9360> moveshrink=moveshrink + 22
-
- <:#288,9360> max=145
-
- <:#288,9360>else
-
- <:#288,9360> ' moveshrink=moveshrink + 50 'shrink extra amount for less 1050 text
-
- <:#288,9360> moveshrink=moveshrink + 0 'shrink extra amount for less 1050 text
-
- <:#288,9360> y = y * (3/4)
-
- <:#288,9360> max=200
-
- <:#288,9360>endif
-
- <:#288,9360>
-
- <:#288,9360>if moveshrink <;> max
-
- <:#288,9360> moveshrink = max
-
- <:#288,9360>endif
-
- <:#288,9360>
-
- <:#288,9360>' Size the dialog box here
-
- <:#288,9360>MoveWindow(hWndDlg,x,y,xL-x,yL-(y+moveshrink))
-
- <:#288,9360>
-
- <:#288,9360>'move the helptext box
-
- <:#288,9360>
-
- <:#288,9360>
-
- <:#288,9360>DIM rect2(4)
-
- <:#288,9360>DIM rect3(4)
-
- <:#288,9360>
-
- <:#288,9360>hwndCtrl=GetDlgItem(hdlg, 1050)
-
- <:#288,9360>GetWindowRect(hwndCtrl,&rect2)
-
- <:#576,9360>ScreenToClient(HwndDlg, &rect2) 'convert 1050's screen-relative coordinates to hdlg-relative coordinates
-
- <:#288,9360>GetClientRect(hwndCtrl, &rect3) 'get xL & yL numbers (length & width of 1050)
-
- <:#288,9360>x=rect2(1)
-
- <:#288,9360>y=rect2(2)
-
- <:#288,9360>xL=rect3(3)
-
- <:#288,9360>yL=rect3(4)
-
- <:#288,9360>moveshrink=MoveBase * (9-numglobs)
-
- <:#288,9360>if target="as_def"
-
- <:#288,9360> max=137
-
- <:#288,9360>else
-
- <:#288,9360> max=167
-
- <:#288,9360>endif
-
- <:#288,9360>if moveshrink <;> max
-
- <:#288,9360> moveshrink = max
-
- <:#288,9360>endif
-
- <:#288,9360>
-
- <:#288,9360>yPosition = y - MoveShrink
-
- <:#288,9360>
-
- <:#288,9360>
-
- <:#288,9360>if target <<<;> "as_def"
-
- <:#288,9360> yPosition = yPosition + 60
-
- <:#288,9360>Endif
-
- <:#288,9360>
-
- <:#288,9360>MoveWindow(hwndCtrl,x,yPosition,xL,yL)
-
- <:#288,9360>
-
- <:#288,9360>END FUNCTION
-
- <:#288,9360>
-
- <:#288,9360>
-
- <:#288,9360>function initcapit(string)
-
- <:#288,9360>if instr(0, " SSN ", string) != 0
-
- <:#288,9360> initcapit=string
-
- <:#288,9360> exit function
-
- <:#288,9360>endif
-
- <:#288,9360>firstchar=left$(string, 1)
-
- <:#288,9360>restchars=lcase$(right$(string, (len(string) - 1)))
-
- <:#288,9360>initcapit=strcat$(firstchar, restchars)
-
- <:#288,9360>end function
-
-
- DIALOG autostyle
-
- -2134376448 22 115 57 231 185 "" "" "_LETTER1.STY Information"
-
- <:#288,9360>FONT 8 "Helv"
-
- <:#288,9360>78 6 91 12 8001 1350631552 "edit" "" 0
-
- <:#288,9360>78 21 91 12 8002 1350631552 "edit" "" 0
-
- <:#288,9360>78 36 91 12 8003 1350631552 "edit" "" 0
-
- <:#288,9360>78 51 91 12 8004 1350631552 "edit" "" 0
-
- <:#288,9360>78 66 91 12 8005 1350631552 "edit" "" 0
-
- <:#288,9360>78 81 91 12 8006 1350631552 "edit" "" 0
-
- <:#288,9360>78 96 91 12 8007 1350631552 "edit" "" 0
-
- <:#288,9360>78 111 91 12 8008 1350631552 "edit" "" 0
-
- <:#288,9360>78 126 91 12 8009 1350631552 "edit" "" 0
-
- <:#288,9360>173 5 53 14 1 1342373889 "button" "OK" 0
-
- <:#288,9360>173 22 53 14 2 1342373888 "button" "Cancel" 0
-
- <:#288,9360>3 8 75 9 1001 1342177280 "static" "fld1:" 0
-
- <:#288,9360>3 23 75 9 1002 1342177280 "static" "fld2:" 0
-
- <:#288,9360>3 38 75 9 1003 1342177280 "static" "fld3:" 0
-
- <:#288,9360>3 53 75 9 1004 1342177280 "static" "fld4:" 0
-
- <:#288,9360>3 68 75 9 1005 1342177280 "static" "fld5:" 0
-
- <:#288,9360>3 83 75 9 1006 1342177280 "static" "fld6:" 0
-
- <:#288,9360>3 98 75 9 1007 1342177280 "static" "fld7:" 0
-
- <:#288,9360>3 113 75 9 1008 1342177280 "static" "fld8:" 0
-
- <:#288,9360>3 128 75 9 1009 1342177280 "static" "fld9:" 0
-
- <:#288,9360>3 143 222 36 1050 1342177280 "static" "Default box text" 0
-
- <:#288,9360>3 143 219 36 1060 1342177280 "static" "User box text" 0
-
- <:#288,9360>END DIALOG
-
- >
-
- [Embedded]
- 00023248
- >
- [macsum4] 10 103
- main 0 0 7 30
- fillboxfields 1046 1 26 72
- AmiButtonCheck 5406 2 3 207
- AmiUIGray 5621 2 3 214
- freeglobs 5842 1 5 220
- torchfields 6236 1 9 232
- savesty 6885 3 2 253
- PreBuild 7085 3 27 260
- initcapit 10418 1 3 373
- autostyle 10731 0 -1 382
- [macse]
- 14 main
- 29 0 main
- 17 1
- 0 1681 1
- 17 2
- 0 32 2
- 17 3
- 29 1 rmac
- 0 802
- 13
- 8 1
- 17 5
- 29 2 burnfields
- 0 286 "AutoStyleSheets" "NoQuestions" "AMIPRO2.INI"
- 13
- 8 2
- 17 6
- 6 2
- 5 1
- 18 0
- 11 00000256
- 17 7
- 16 torchfields "as_"
- 6 0
- 15
- 9
- 10 00000354
- 17 9
- 6 2
- 7 ""
- 18 0
- 11 00000354
- 17 10
- 0 287 "AutoStyleSheets" "NoQuestions" 0 "AMIPRO2.INI"
- 17 12
- 29 3 datagood
- 0 286 "AutoStyleSheets" "DataGood" "AMIPRO2.INI"
- 13
- 8 3
- 17 13
- 0 1631 3 "" ""
- 17 14
- 0 1631 2 "" ""
- 17 15
- 29 4 cnt
- 0 1304 0
- 13
- 8 4
- 17 17
- 5 0
- 6 4
- 18 1
- 11 00000820
- 17 18
- 29 5 result
- 16 fillboxfields "as_def"
- 13
- 8 5
- 17 19
- 6 5
- 5 0
- 18 0
- 6 5
- 5 2
- 18 0
- 1 2
- 11 00000686
- 17 20
- 10 00000820
- 17 22
- 16 fillboxfields "as_user"
- 13
- 8 5
- 17 23
- 6 5
- 5 0
- 18 0
- 6 5
- 5 2
- 18 0
- 1 2
- 11 00000807
- 17 24
- 10 00000820
- 10 00000820
- 17 32
- 16 torchfields "as_"
- 17 33
- 29 6 mark
- 7 "as_starttext"
- 8 6
- 17 34
- 0 1658 "{6}" 4002
- 13
- 8 5
- 17 35
- 6 5
- 5 1
- 18 0
- 11 00000987
- 17 36
- 0 1658 "{6}" 4004
- 17 38
- 0 1551 "" "" 1
- 17 39
- 0 1681 0
- 6 0
- 15
- 17 40
- 9
- 14 fillboxfields
- 29 0 target
- 29 1 fillboxfields
- 17 2
- 20 00003964
- 17 3
- 29 2 cnt
- 0 1304 0
- 13
- 8 2
- 17 5
- 6 2
- 5 0
- 18 0
- 11 00000152
- 6 1
- 15
- 9
- 17 9
- 29 3 rmac
- 0 802
- 13
- 8 3
- 17 10
- 0 271 "target" 1
- 17 11
- 0 264 "target" "{0}"
- 17 12
- 6 2
- 29 4 fields
- 21 4 [X]
- 17 13
- 5 1
- 29 5 globvars
- 21 5 [X]
- 17 14
- 5 1
- 29 6 echovars
- 21 6 [X]
- 17 15
- 29 7 numglobs
- 5 0
- 8 7
- 17 16
- 0 1305 0 &4
- 17 18
- 29 8 mergefieldspresent
- 5 0
- 8 8
- 29 9 i
- 5 1
- 8 9
- 17 20
- 6 2
- 6 9
- 18 2
- 12 00000542
- 10 00001436
- 5 1
- 6 9
- 3 0
- 8 9
- 10 00000460
- 17 21
- 29 10 pftype
- 6 9
- 22 4
- 0 20 [X] 2 ","
- 13
- 8 10
- 17 22
- 6 10
- 5 12
- 18 0
- 11 00000655
- 17 23
- 5 1
- 8 8
- 17 25
- 29 11 pffield
- 6 9
- 22 4
- 0 20 [X] 3 ","
- 13
- 8 11
- 17 26
- 29 12 varname
- 0 20 "{11}" 3 " "
- 13
- 8 12
- 17 27
- 29 13 showtype
- 0 20 "{12}" 6 "_"
- 13
- 8 13
- 17 28
- 0 17 "{13}"
- 13
- 7 "address2"
- 18 0
- 11 00000917
- 17 29
- 29 14 secondaddressline
- 5 1
- 8 14
- 17 31
- 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 32
- 29 16 targlen
- 0 14 "{0}"
- 13
- 8 16
- 17 33
- 0 806 "{12}" "{16}"
- 13
- 6 0
- 18 0
- 6 13
- 7 "echo"
- 18 1
- 1 1
- 11 00001423
- 17 34
- 6 7
- 5 1
- 3 0
- 8 7
- 17 35
- 29 17 result
- 6 9
- 22 4
- 0 1041 &5 "{7}" [X]
- 13
- 8 17
- 17 36
- 6 17
- 5 0
- 18 0
- 11 00001423
- 17 37
- 10 00003964
- 17 38
- 0 1041 &6 "{7}" "{15}"
- 10 00000509
- 17 45
- 6 7
- 5 0
- 18 0
- 11 00001501
- 17 47
- 5 3
- 8 1
- 6 1
- 15
- 9
- 17 52
- 0 271 "numglobs" 1
- 17 53
- 0 264 "numglobs" "{7}"
- 17 54
- 0 1043 &5 3 "_"
- 5 1
- 8 9
- 17 56
- 6 7
- 6 9
- 18 2
- 12 00001675
- 10 00003045
- 5 1
- 6 9
- 3 0
- 8 9
- 10 00001593
- 17 57
- 6 9
- 22 5
- 0 20 [X] 3 ","
- 13
- 8 11
- 17 58
- 0 20 "{11}" 3 " "
- 13
- 8 12
- 17 59
- 29 18 quotechar
- 0 39 34
- 13
- 8 18
- 17 60
- 29 19 varlabel
- 6 9
- 22 5
- 0 20 [X] 2 "{18}"
- 13
- 8 19
- 17 61
- 0 20 "{12}" 6 "_"
- 13
- 8 13
- 17 62
- 29 20 profilestringstuff
- 7 ""
- 8 20
- 17 63
- 6 13
- 5 -1
- 18 1
- 6 13
- 7 "echo"
- 18 1
- 6 13
- 7 ""
- 18 1
- 1 1
- 1 1
- 11 00002335
- 17 64
- 0 286 "AutoStyleSheets" "{13}" "AMIPRO2.INI"
- 13
- 8 20
- 17 65
- 0 17 "{13}"
- 13
- 7 "address1"
- 18 0
- 6 14
- 5 1
- 18 1
- 1 1
- 11 00002335
- 17 66
- 29 21 address2
- 0 286 "AutoStyleSheets" "Address2" "AMIPRO2.INI"
- 13
- 8 21
- 17 67
- 6 21
- 7 ""
- 18 1
- 11 00002335
- 17 68
- 0 16 "{20}" ", " "{21}"
- 13
- 8 20
- 17 72
- 0 271 "{12}" 1
- 17 73
- 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 74
- 0 271 "{15}" 1
- 17 75
- 0 806 "{19}" 5
- 13
- 0 17 [X]
- 13
- 7 "type "
- 18 0
- 11 00002738
- 17 76
- 29 22 lenwithouttype
- 0 14 "{19}"
- 13
- 5 5
- 3 1
- 8 22
- 17 77
- 0 807 "{19}" "{22}"
- 13
- 8 19
- 17 79
- 0 807 "{19}" 5
- 13
- 0 17 [X]
- 13
- 7 " here"
- 18 0
- 11 00002909
- 17 80
- 29 23 lenwithouthere
- 0 14 "{19}"
- 13
- 5 5
- 3 1
- 8 23
- 17 81
- 0 806 "{19}" "{23}"
- 13
- 8 19
- 17 83
- 16 initcapit "{19}"
- 13
- 8 19
- 17 84
- 5 1000
- 6 9
- 3 0
- 0 31 [X] "{19}:"
- 17 85
- 5 8000
- 6 9
- 3 0
- 0 31 [X] "{20}"
- 10 00001642
- 17 88
- 0 41 0 "{3}!PreBuild"
- 17 91
- 29 24 box
- 0 26 "." "autostyle"
- 13
- 8 24
- 17 93
- 6 24
- 8 1
- 17 94
- 6 24
- 5 0
- 18 0
- 6 24
- 5 2
- 18 0
- 1 2
- 11 00003222
- 17 95
- 10 00003964
- 5 1
- 8 9
- 17 98
- 6 7
- 6 9
- 18 2
- 12 00003314
- 10 00003911
- 5 1
- 6 9
- 3 0
- 8 9
- 10 00003232
- 17 99
- 29 25 contents
- 5 8000
- 6 9
- 3 0
- 0 27 [X]
- 13
- 8 25
- 17 100
- 29 26 pfid
- 6 9
- 22 5
- 0 20 [X] 1 ","
- 13
- 8 26
- 17 101
- 6 9
- 22 5
- 0 20 [X] 2 ","
- 13
- 8 10
- 17 102
- 6 9
- 22 5
- 0 20 [X] 3 ","
- 13
- 8 11
- 17 103
- 0 20 "{11}" 3 " "
- 13
- 8 12
- 17 104
- 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 105
- 0 264 "{15}" "{25}"
- 17 106
- 0 264 "{12}" "{25}"
- 17 107
- 6 8
- 5 1
- 18 0
- 11 00003898
- 17 108
- 0 1306 "{26}" "{10}"
- 13
- 8 17
- 17 110
- 2 571 1
- 10 00003281
- 17 113
- 6 8
- 5 0
- 18 0
- 11 00003964
- 17 114
- 0 1633
- 17 118
- 16 torchfields "{0}"
- 17 119
- 16 freeglobs "{0}"
- 17 120
- 0 266 "target"
- 17 121
- 0 266 "numglobs"
- 17 123
- 6 24
- 5 3
- 18 0
- 11 00004340
- 17 124
- 0 285 "{3}!AmiButtonCheck(25550, 1)" 0.1
- 17 125
- 0 285 "{3}!AmiUIGray(25550, 0)" 0.1
- 17 126
- 0 285 "{3}!AmiUIGray(25551, 0)" 0.1
- 17 127
- 0 285 "{3}!AmiUIGray(25975, 0)" 0.1
- 17 128
- 0 274 008
- 17 129
- 24 305
- 13
- 8 17
- 6 1
- 15
- 17 132
- 9
- 14 AmiButtonCheck
- 29 0 ID
- 29 1 State
- 29 2 AmiButtonCheck
- 17 2
- 29 3 hdlg
- 0 284 "user,GetActiveWindow,H"
- 13
- 8 3
- 17 3
- 29 4 idnew
- 0 44 "{3}" "{0}"
- 13
- 8 4
- 17 4
- 0 1036 "{4}" 1025 "{1}" 0
- 6 2
- 15
- 17 5
- 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 1
- 29 2 targlen
- 0 14 "{0}"
- 13
- 8 2
- 17 2
- 29 3 numglobs
- 0 299
- 13
- 8 3
- 17 3
- 6 3
- 29 4 globnuke
- 21 4 [X]
- 17 4
- 0 300 &4
- 29 5 i
- 5 1
- 8 5
- 17 5
- 6 3
- 6 5
- 18 2
- 12 00000272
- 10 00000375
- 5 1
- 6 5
- 3 0
- 8 5
- 10 00000191
- 17 6
- 6 5
- 22 4
- 0 806 [X] "{2}"
- 13
- 6 0
- 18 0
- 11 00000362
- 17 7
- 6 5
- 22 4
- 0 266 [X]
- 10 00000239
- 6 1
- 15
- 17 10
- 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 00000630
- 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 00000617
- 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 00000604
- 17 13
- 0 1323 "{5}" "{6}"
- 10 00000236
- 10 00000630
- 6 1
- 15
- 17 19
- 9
- 14 savesty
- 29 0 Hdlg
- 29 1 id
- 29 2 dummy
- 29 3 savesty
- 24 305
- 17 2
- 29 4 HwndDlg
- 0 44 "{0}" 1
- 13
- 0 284 "User,GetParent,HH" [X]
- 13
- 8 4
- 17 4
- 0 284 "user,SetFocus,HH" "{4}"
- 6 3
- 15
- 17 5
- 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 6
- 29 5 HwndDlg
- 0 44 "{0}" 1
- 13
- 0 284 "User,GetParent,HH" [X]
- 13
- 8 5
- 17 8
- 29 6 numglobs
- 0 265 "numglobs"
- 13
- 8 6
- 17 10
- 29 7 CurStyleSheet
- 0 1540 3
- 13
- 8 7
- 17 11
- 0 18 "{7}"
- 13
- 8 7
- 17 12
- 29 8 lb
- 0 39 091
- 13
- 8 8
- 17 13
- 29 9 rb
- 0 39 093
- 13
- 8 9
- 17 14
- 0 16 "{8}" "{7}" "{9}"
- 13
- 8 7
- 17 15
- 6 4
- 7 "as_def"
- 18 0
- 11 00001119
- 17 16
- 0 284 "user,SetWindowText,IHC" "{5}" "Default Information"
- 17 18
- 0 44 "{0}" 3
- 13
- 0 284 "User,ShowWindow,AHH" [X] 1
- 17 19
- 0 44 "{0}" 1060
- 13
- 0 284 "User,ShowWindow,AHH" [X] 0
- 17 20
- 29 10 L1
- 7 "Type the information that you want to appear each time "
- 8 10
- 17 21
- 29 11 L2
- 7 "you create this type of document. Choose OK to insert this information "
- 8 11
- 17 22
- 29 12 L3
- 7 "into the current document only. Choose Save As to save this "
- 8 12
- 17 23
- 29 13 L4
- 7 "information to a new style sheet."
- 8 13
- 17 24
- 29 14 helptext
- 7 "{10}{11}{12}{13}"
- 8 14
- 17 25
- 0 44 "{0}" 1050
- 13
- 0 284 "user,SetWindowText,IHC" [X] "{14}"
- 10 00001511
- 17 28
- 0 284 "user,SetWindowText,IHC" "{5}" "Optional Information"
- 17 30
- 0 44 "{0}" 3
- 13
- 0 284 "User,ShowWindow,AHH" [X] 0
- 17 31
- 0 44 "{0}" 1060
- 13
- 0 284 "User,ShowWindow,AHH" [X] 0
- 17 32
- 7 "Type the information you want to appear "
- 8 10
- 17 33
- 7 "in this document."
- 8 11
- 17 34
- 7 "{10}{11}{12}{13}"
- 8 14
- 17 35
- 0 44 "{0}" 1050
- 13
- 0 284 "user,SetWindowText,IHC" [X] "{14}"
- 29 15 i
- 6 6
- 5 1
- 3 0
- 8 15
- 17 41
- 5 9
- 6 15
- 18 2
- 12 00001626
- 10 00001857
- 5 1
- 6 15
- 3 0
- 8 15
- 10 00001541
- 17 42
- 29 16 stid
- 5 1000
- 6 15
- 3 0
- 8 16
- 17 43
- 0 44 "{0}" "{16}"
- 13
- 0 284 "User,ShowWindow,AHH" [X] 0
- 17 44
- 29 17 ebid
- 5 8000
- 6 15
- 3 0
- 8 17
- 17 45
- 0 44 "{0}" "{17}"
- 13
- 0 284 "User,ShowWindow,AHH" [X] 0
- 10 00001591
- 17 49
- 5 4
- 29 18 rect
- 21 18 [X]
- 17 51
- 0 284 "user,GetWindowRect,HHN" "{5}" &18
- 17 53
- 29 19 x
- 5 1
- 22 18
- 8 19
- 17 54
- 29 20 y
- 5 2
- 22 18
- 8 20
- 17 55
- 29 21 xL
- 5 3
- 22 18
- 8 21
- 17 56
- 29 22 yL
- 5 4
- 22 18
- 8 22
- 17 57
- 29 23 MoveBase
- 5 24
- 8 23
- 17 58
- 29 24 moveshrink
- 6 23
- 5 9
- 6 6
- 3 1
- 4 0
- 8 24
- 17 60
- 6 4
- 7 "as_def"
- 18 0
- 11 00002288
- 17 61
- 6 24
- 5 22
- 3 0
- 8 24
- 17 62
- 29 25 max
- 5 145
- 8 25
- 10 00002376
- 17 65
- 6 24
- 5 0
- 3 0
- 8 24
- 17 66
- 6 20
- 5 3
- 5 4
- 4 1
- 4 0
- 8 20
- 17 67
- 5 200
- 8 25
- 17 70
- 6 24
- 6 25
- 18 3
- 11 00002433
- 17 71
- 6 25
- 8 24
- 17 75
- 6 21
- 6 19
- 3 1
- 6 22
- 6 20
- 6 24
- 3 0
- 3 1
- 0 284 "user,MoveWindow,HHHHHHH" "{5}" "{19}" "{20}" [X] [X] 1
- 17 80
- 5 4
- 29 26 rect2
- 21 26 [X]
- 17 81
- 5 4
- 29 27 rect3
- 21 27 [X]
- 17 83
- 29 28 hwndCtrl
- 0 44 "{0}" 1050
- 13
- 8 28
- 17 84
- 0 284 "user,GetWindowRect,HHN" "{28}" &26
- 17 85
- 0 284 "user,ScreenToClient,HHN" "{5}" &26
- 17 86
- 0 284 "user,GetClientRect,HHN" "{28}" &27
- 17 87
- 5 1
- 22 26
- 8 19
- 17 88
- 5 2
- 22 26
- 8 20
- 17 89
- 5 3
- 22 27
- 8 21
- 17 90
- 5 4
- 22 27
- 8 22
- 17 91
- 6 23
- 5 9
- 6 6
- 3 1
- 4 0
- 8 24
- 17 92
- 6 4
- 7 "as_def"
- 18 0
- 11 00003035
- 17 93
- 5 137
- 8 25
- 10 00003055
- 17 95
- 5 167
- 8 25
- 17 97
- 6 24
- 6 25
- 18 3
- 11 00003112
- 17 98
- 6 25
- 8 24
- 17 101
- 29 29 yPosition
- 6 20
- 6 24
- 3 1
- 8 29
- 17 104
- 6 4
- 7 "as_def"
- 18 1
- 11 00003235
- 17 105
- 6 29
- 5 60
- 3 0
- 8 29
- 17 108
- 0 284 "user,MoveWindow,HHHHHHH" "{28}" "{19}" "{29}" "{21}" "{22}" 1
- 6 3
- 15
- 17 110
- 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 22 115 57 231 185 "" "" "_LETTER1.STY Information"
- FONT 8 "Helv"
- 78 6 91 12 8001 1350631552 "edit" "" 0
- 78 21 91 12 8002 1350631552 "edit" "" 0
- 78 36 91 12 8003 1350631552 "edit" "" 0
- 78 51 91 12 8004 1350631552 "edit" "" 0
- 78 66 91 12 8005 1350631552 "edit" "" 0
- 78 81 91 12 8006 1350631552 "edit" "" 0
- 78 96 91 12 8007 1350631552 "edit" "" 0
- 78 111 91 12 8008 1350631552 "edit" "" 0
- 78 126 91 12 8009 1350631552 "edit" "" 0
- 173 5 53 14 1 1342373889 "button" "OK" 0
- 173 22 53 14 2 1342373888 "button" "Cancel" 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 83 75 9 1006 1342177280 "static" "fld6:" 0
- 3 98 75 9 1007 1342177280 "static" "fld7:" 0
- 3 113 75 9 1008 1342177280 "static" "fld8:" 0
- 3 128 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
- 00023273
-