Program Metropolis - Software Boutique 95/SOFTWARECD.iso/camipro3/macros.cmz/SMARTFLD.SMM

INI File | 1994-08-14 | 57.9 KB | 3,404 lines

[ver]
    4
[sty]

[files]
[charset]
    82
    CHINESEBIG5 (Windows)
[revisions]
    0
[prn]
    QMS-PS 810
[port]
    LPT1:
[lang]
    1
[desc]
    ½╪Ñ▀ª█░╩ñ╞╝╦ªí¬φ¬║ñu¿π




    773107894
    20
    708316628
    944
    12
    2254
    17893
    53
    53






    1
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[ParaNum]
    1
[tag]
    Body Text
    2
    [fnt]
        Arial
        200
        0
        16386
    [algn]
        1
        1
        216
        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]
        272
        1
        3
        .
        ,
        $
    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]
    Function
    4
    [fnt]
        Arial
        240
        0
        16385
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        244
        1
        0
        0
        1
        100
    [brk]
        68
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        1

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Outline2
    0
    0
[tag]
    Outline2
    5
    [fnt]
        Arial
        200
        0
        16384
    [algn]
        1
        1
        216
        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
        2

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Outline2
    0
    0
[tag]
    Outline3
    6
    [fnt]
        Arial
        200
        0
        16384
    [algn]
        1
        1
        0
        0
        720
    [spc]
        33
        273
        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
        3
        .
        ,
        $
    Outline3
    0
    0
[tag]
    Outline4
    7
    [fnt]
        Arial
        200
        0
        16384
    [algn]
        1
        1
        216
        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
        4

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Outline4
    0
    0
[tag]
    Bullet
    8
    [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
    9
    [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
    11
    [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
    12
    [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
    0
    [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
    0
    [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
    0
    [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
        1
        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]
Page <:P10,0,>    <:db<*!><* >>    <:Db  >

>
[elay]
[l1]
    0
[pg]
    12
    50 94 75 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
    98 0 17 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
    153 0 30 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
    208 0 13 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
    263 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
    315 0 48 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
    369 0 19 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
    423 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
    476 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
    530 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
    583 0 46 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
    584 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]
@Function@<:#293,9360>declares and defines

@Outline2@<:#231,9360>declare ComboLoad(hdlg);

@Outline2@<:#231,9360>declare countfields(strings, char);

@Outline2@<:#231,9360>declare fieldloader(target);

@Outline2@<:#231,9360>declare FieldNumToName(num);

@Outline2@<:#231,9360>declare fillboxfields(target);

@Outline2@<:#231,9360>declare initcapit(string);

@Outline2@<:#231,9360>declare insertfields(target, numfields);

@Outline2@<:#231,9360>declare LabelNoBadChars(showntext);

@Outline2@<:#231,9360>declare movedlgitem(hdlg, ControlID, xshift, yshift);

@Outline2@<:#231,9360>declare sizedlgitem(hdlg, ControlID, xshift, yshift);

@Outline2@<:#231,9360>declare torchfields(target);

@Outline2@<:#231,9360>define BM_SETCHECK       0x0401

@Outline2@<:#231,9360>DEFINE GetClientRect()    DllCall("user,GetClientRect,HHN",%1,%2)

@Outline2@<:#231,9360>DEFINE GetWindowRect()    DllCall("user,GetWindowRect,HHN",%1,%2)

@Outline2@<:#231,9360>DEFINE MoveWindow()    DllCall("user,MoveWindow,HHHHHHH",%1,%2,%3,%4,%5,1)

@Outline2@<:#231,9360>Define ClientToScreen()    DllCall("user,ClientToScreen,HHN", %1, %2)

@Outline2@<:#231,9360>Define EnableWindow()    DllCall("User,EnableWindow,AHH",%1,%2)

@Outline2@<:#231,9360>Define ScreenToClient()    DllCall("user,ScreenToClient,HHN", %1, %2)

@Outline2@<:#231,9360>Define ShowWindow()    DllCall("User,ShowWindow,AHH",%1,%2)

@Outline2@<:#462,9360>define CreateFont()    DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)

@Outline2@<:#231,9360>define DeleteObject(handle)    DllCall("gdi,DeleteObject,HH", %1)

@Outline2@<:#231,9360>define GetActiveWindow()    DllCall("user,GetActiveWindow,H")

@Outline2@<:#231,9360>define GetCurFrameDimensions()    GetInfo(102);

@Outline2@<:#231,9360>define GetFieldAtInsPt()    GetInfo(177);

@Outline2@<:#231,9360>define GetWindowText()    DllCall("user,GetWindowText,HHFH", %1, %2, %3)

@Outline2@<:#231,9360>define HFONT    "Setfont:hFont"

@Outline2@<:#231,9360>define IsOKToRun(menuname)    GetInfo(217, 24, %1);

@Outline2@<:#231,9360>define MapDialogRect()    DllCall("user,MapDialogRect,HHN", %1, %2)

@Outline2@<:#462,9360>define SendMessage(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)

@Outline2@<:#231,9360>define SetFocus()        DllCall("user,SetFocus,HH", %1)

@Outline2@<:#231,9360>define SetWindowText()    DllCall("user,SetWindowText,IHC", %1, %2)

@Outline2@<:#231,9360>define TitleBarMsg()        SetWindowText(GetActiveWindow(), %1)

@Outline2@<:#231,9360>define WM_SETFONT    0x30

@Function@<:#293,9360>function menus()

@Outline2@<:#231,9360>rmac=GetRunningMacroFile$()

@Outline2@<:#231,9360>'run collect.smm if necessary

@Outline3@<:#231,9360>checkagain:

@Outline3@<:#231,9360>datagood=getprofilestring$("AutoStyleSheets", "DataGood", "AMIPRO2.INI")

@Outline3@<:#231,9360>if datagood != 1

@Outline3@<:#231,9360>    macpath=GetMacPath$()

@Outline3@<:#462,9360>    Message("The following information is required for building automated style sheets.", "SmartField Startup")

@Outline3@<:#231,9360>    collector="{macpath}collect.smm"

@Outline3@<:#231,9360>    calli collector()

@Outline3@<:#231,9360>    goto checkagain

@Outline3@<:#231,9360>endif

@Outline2@<:#231,9360>deletemenu(1, "S&martFields")

@Outline2@<:#231,9360>addmenu(1, "S&martFields")

@Outline2@<:#462,9360>addmenuitem(1, "S&martFields", "Define &Default Information...", "{rmac}!main(""as_def"")", "Design the Default Information dialog box for an automated style sheet.")

@Outline2@<:#462,9360>addmenuitem(1, "S&martFields", "Define &Optional Information...", "{rmac}!main(""as_user"")", "Design the Optional Information dialog box for an automated style sheet.")

@Outline2@<:#462,9360>addmenuitem(1, "S&martFields", "&Repeat SmartFields...", "{rmac}!echoer", "Select the SmartFields you want to repeat and indicate their locations.")

@Outline2@<:#462,9360>addmenuitem(1, "S&martFields", "Define &Cursor Location...", "{rmac}!bookmarker", "Define where you want to begin typing when you create a document.")

@Outline2@<:#462,9360>addmenuitem(1, "S&martFields", "Add Automated &Frame...", "{rmac}!frameinsert", "Inserts an automated frame in the style sheet.")

@Outline2@<:#462,9360>addmenuitem(1, "S&martFields", "Re&move All SmartFields...", "{rmac}!torchfields(""as_"")", "Remove all SmartFields in the automated style sheet.")

@Outline2@<:#231,9360>addmenuitem (1, "S&martFields", "-" "" "")

@Outline2@<:#462,9360>addmenuitem(1, "S&martFields", "Edit &Automated Style Sheet...", "{rmac}!editsty", "Create or edit an automated style sheet.")

@Outline2@<:#462,9360>addmenuitem(1, "S&martFields", "Sa&ve Automated Style Sheet...", "{rmac}!savesty", "Save this document as an automated style sheet.")

@Outline2@<:#231,9360>addmenuitem (1, "S&martFields", "-" "" "")

@Outline2@<:#462,9360>addmenuitem(1, "S&martFields", "E&xit", "{rmac}!removemenuitem", "Remove the SmartFields menu from the menu bar.")

@Outline2@<:#231,9360>end function

@Function@<:#293,9360>function main(target)

@Outline2@<:#231,9360>if getopenfilecount() << 1

@Outline2@<:#231,9360>    exit function

@Outline2@<:#231,9360>endif

@Outline2@<:#231,9360>allocglobalvar("target", 1)

@Outline2@<:#231,9360>setglobalvar("target", target)

@Outline2@<:#231,9360>dim fieldnames(9)

@Outline2@<:#231,9360>dim combofields(9)

@Outline2@<:#231,9360>rmac=GetRunningMacroFile$()

@Outline2@<:#231,9360>hourglass(1)

@Outline2@<:#231,9360>'font handler

@Outline3@<:#231,9360>AllocGlobalVar(HFONT, 1)

@Outline3@<:#231,9360>SetGlobalVar(HFONT, 0)

@Outline2@<:#231,9360>fieldloader(target)

@Outline2@<:#231,9360>SetDlgCallBack(0,"{rmac}!InitDlg")

@Outline2@<:#231,9360>box=dialogbox(".", "autostyle")

@Outline2@<:#231,9360>if box=0

@Outline2@<:#231,9360>    goto blowout

@Outline2@<:#231,9360>endif

@Outline2@<:#231,9360>hourglass(0)

@Outline2@<:#231,9360>'drive the box & get field names

@Outline2@<:#231,9360>for i = 1 to 9

@Outline2@<:#231,9360>    fieldcontents=getdialogfield$(8000 + i)

@Outline2@<:#231,9360>    combocontents=getdialogfield$(9500+ i)

@Outline2@<:#231,9360>    if fieldcontents = ""

@Outline2@<:#231,9360>        break

@Outline2@<:#231,9360>    endif

@Outline2@<:#231,9360>    fieldnames(i)=fieldcontents

@Outline2@<:#231,9360>    combofields(i)=combocontents

@Outline2@<:#231,9360>next

@Outline2@<:#231,9360>numfields=i - 1

@Outline2@<:#231,9360>allocglobalvar("fieldnames", 9)

@Outline2@<:#231,9360>allocglobalvar("combofields", 9)

@Outline2@<:#231,9360>for i= 1 to numfields

@Outline2@<:#231,9360>    setglobalarray("fieldnames", i, fieldnames(i))

@Outline2@<:#231,9360>    setglobalarray("combofields", i, combofields(i))

@Outline2@<:#231,9360>next

@Outline2@<:#231,9360>if numfields != 0

@Outline2@<:#231,9360>    insertfields(target, numfields)

@Outline2@<:#231,9360>endif

@Outline2@<:#231,9360>blowout:

@Outline2@<:#231,9360>'font bailout

@Outline3@<:#231,9360>font = GetGlobalVar$(HFONT)        ' If we created

@Outline3@<:#231,9360>if (0 != font)                ' the font.

@Outline3@<:#231,9360>    DeleteObject(font)        ' Delete it

@Outline3@<:#231,9360>endif

@Outline3@<:#231,9360>freeglobalvar(HFONT)

@Outline2@<:#231,9360>freeglobalvar("fieldnames")

@Outline2@<:#231,9360>freeglobalvar("target")

@Outline2@<:#231,9360>end function

@Function@<:#293,9360>function fieldloader(target)

@Outline2@<:#231,9360>rmac=getrunningmacrofile$()

@Outline2@<:#231,9360>cnt=GetPowerFieldCount(0)

@Outline2@<:#231,9360>if (0 =cnt)

@Outline2@<:#231,9360>    exit function

@Outline2@<:#231,9360>endif

@Outline2@<:#231,9360>dim fields(cnt)

@Outline2@<:#231,9360>dim globvars(1)

@Outline2@<:#231,9360>numglobs=0

@Outline2@<:#231,9360>GetPowerFields(0, &fields)

@Outline2@<:#231,9360>'load &globvars

@Outline3@<:#231,9360>for i = 1 to cnt

@Outline3@<:#240,9360>    pftype = StrField$(fields(i), 2, ",")        'get the power <+!>field type<-!>

@Outline3@<:#240,9360>    pffield = StrField$(fields(i), 3, ",")        'get the power <+!>field<-!>

@Outline3@<:#240,9360>    varname=StrField$(pffield, 3, " ")        'get the name of the <+!>variable
<-!>in the PF

@Outline3@<:#231,9360>    showtype=strfield$(varname, 6, "_")    'item from AMIPRO2.INI or "echo"

@Outline3@<:#231,9360>    targlen=len(target)

@Outline3@<:#245,9360>    'if left$(varname, targlen)=target <:f200,2TimesNewRomanPS,255,0,0>and showtype !=  "echo"<:f>

@Outline3@<:#245,9360>    if kmid$(varname,1, targlen)=target <:f200,2TimesNewRomanPS,255,0,0>and showtype !=  "echo"<:f>

@Outline3@<:#231,9360>        numglobs=numglobs+1

@Outline3@<:#231,9360>        result=arrayinsert(&globvars, numglobs, fields(i))

@Outline3@<:#231,9360>    endif

@Outline3@<:#231,9360>next

@Outline3@<:#231,9360>if numglobs= 0 exit function

@Outline3@<:#231,9360>endif

@Outline2@<:#231,9360>'fill dialog box with labels & AMIPRO2.INI entry fields

@Outline3@<:#231,9360>arraysort(&globvars, 3, "_")                'sort the array on varnum

@Outline3@<:#231,9360>for i = 1 to numglobs

@Outline3@<:#240,9360>    pffield = StrField$(globvars(i), 3, ",")        'get the power <+!>field<-!>

@Outline3@<:#240,9360>    varname=StrField$(pffield, 3, " ")        'get the name of the <+!>variable
<-!>in the PF

@Outline3@<:#231,9360>    quotechar=chr$(34)

@Outline3@<:#240,9360>    varlabel=StrField$(globvars(i), 2, quotechar)        'get the <+!>label
<-!>for the variable

@Outline3@<:#231,9360>    showtype=strfield$(varname, 6, "_")

@Outline3@<:#231,9360>    filledit(8000 + i, varlabel)

@Outline3@<:#231,9360>    filledit(9500 + i, showtype)

@Outline3@<:#231,9360>next

@Outline2@<:#231,9360>END FUNCTION

@Function@<:#293,9360>function initdlg(hdlg, id, target)

@Outline2@<:#231,9360>target=getglobalvar$("target")

@Outline2@<:#231,9360>'font for static text

@Outline3@<:#231,9360>Font = CreateFont(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")

@Outline3@<:#231,9360>if (Font)

@Outline3@<:#231,9360>    hctl = GetDlgItem(hDlg, 1050)

@Outline3@<:#231,9360>    hctl2 = GetDlgItem(hDlg, 1060)

@Outline3@<:#231,9360>    SendMessage(hctl, WM_SETFONT, font, 0)

@Outline3@<:#231,9360>    SendMessage(hctl2, WM_SETFONT, font, 0)

@Outline3@<:#231,9360>    SetGlobalVar(HFONT, Font)

@Outline3@<:#231,9360>endif

@Outline2@<:#231,9360>'name the box and show the right buttons and static text

@Outline3@<:#231,9360>CurStyleSheet = GetDocInfo$(3)

@Outline3@<:#231,9360>CurStyleSheet = ucase$(CurStyleSheet)

@Outline3@<:#231,9360>lb=chr$(091)

@Outline3@<:#231,9360>rb=chr$(093)

@Outline3@<:#231,9360>CurStyleSheet = strcat$(lb, CurStyleSheet, rb)

@Outline3@<:#231,9360>if target ="as_def"

@Outline3@<:#231,9360>    TitleBarMsg("Default Information")

@Outline3@<:#231,9360>    ComboLoad(hdlg)

@Outline3@<:#231,9360>    EnableWindow(GetDlgItem(Hdlg,3), 0) ' gray the save as button

@Outline3@<:#231,9360>    ShowWindow(GetDlgItem(Hdlg,1060), 0) ' hide the 1060 field static text

@Outline3@<:#231,9360>    L1="Specify the field names you want to use for the default "

@Outline3@<:#231,9360>    L2="information each time you create a document using this "

@Outline3@<:#231,9360>    L3="style sheet. You can select an item in the User info list "

@Outline3@<:#231,9360>    quotchar=chr$(91)

@Outline3@<:#231,9360>    'b = left$("<[><[>", 1)

@Outline3@<:#231,9360>    b = kmid$("<[><[>",1, 1)

@Outline3@<:#231,9360>    L4="box if you want to use information stored in the {b}AutoStyleSheet] Section of "

@Outline3@<:#231,9360>    L5="the AMIPRO2.INI."

@Outline3@<:#231,9360>    helptext="{L1}{L2}{L3}{L4}{L5}"

@Outline3@<:#231,9360>    filledit(1050, helptext)

@Outline3@<:#231,9360>    call combocallback(hdlg, 9501)

@Outline3@<:#231,9360>    sizedlgitem(hdlg, 0, 0, -4)

@Outline3@<:#231,9360>else

@Outline3@<:#231,9360>    TitleBarMsg("Optional Information")

@Outline3@<:#231,9360>    ShowWindow(GetDlgItem(Hdlg,3), 0) ' hide the save as button

@Outline3@<:#231,9360>    ShowWindow(GetDlgItem(Hdlg,1060), 0) ' hide the 1060 field static text

@Outline3@<:#231,9360>    ShowWindow(GetDlgItem(Hdlg,1012), 0)

@Outline3@<:#231,9360>    ShowWindow(GetDlgItem(Hdlg,1000), 0)

@Outline3@<:#231,9360>    ShowWindow(GetDlgItem(Hdlg,1010), 0)

@Outline3@<:#231,9360>    for ComboID = 9501 to 9509

@Outline3@<:#231,9360>        ShowWindow(GetDlgItem(Hdlg,ComboID), 0)

@Outline3@<:#231,9360>    next

@Outline3@<:#231,9360>    L1="Specify the field names you want to use for the optional information each time "

@Outline3@<:#231,9360>    L2="you create a document using this style sheet."

@Outline3@<:#231,9360>    movedlgitem(hdlg, 1, -90, 0)

@Outline3@<:#231,9360>    movedlgitem(hdlg, 2, -90, 0)

@Outline3@<:#231,9360>    movedlgitem(hdlg, 1050, 0, -30)

@Outline3@<:#231,9360>    sizedlgitem(hdlg, 1050, -80, 0)

@Outline3@<:#231,9360>    sizedlgitem(hdlg, 0, -90, -40)

@Outline3@<:#231,9360>    helptext="{L1}{L2}{L3}{L4}"

@Outline3@<:#231,9360>    filledit(1050, helptext)

@Outline3@<:#231,9360>endif

@Outline2@<:#231,9360>end function

@Function@<:#293,9360>function insertfields(target, numfields)

@Outline2@<:#231,9360>for position = 1 to numfields

@Outline2@<:#231,9360>    oncancel nexter

@Outline2@<:#231,9360>    showntext=getglobalarray$("fieldnames", position)

@Outline2@<:#231,9360>    if showntext= ""

@Outline2@<:#231,9360>        goto nexter

@Outline2@<:#231,9360>    endif

@Outline2@<:#231,9360>    usercontrol("Move insertion point where you want to insert {showntext}.")

@Outline2@<:#231,9360>    hourglass(1)

@Outline2@<:#231,9360>    fieldtype = "eb"

@Outline2@<:#231,9360>    label=LabelNoBadChars(showntext)

@Outline2@<:#231,9360>    prefill=getglobalarray$("combofields", position)

@Outline2@<:#231,9360>    if prefill != ""

@Outline2@<:#231,9360>        prefill=strcat$(prefill, "_")

@Outline2@<:#231,9360>    endif

@Outline2@<:#231,9360>    fieldname=strcat$(target, "_", position, "_", fieldtype, "_", label, "_", prefill)

@Outline2@<:#231,9360>    exantfield=strcat$(target, "_", position, "_", fieldtype, "_")

@Outline2@<:#231,9360>    torchfields(exantfield)

@Outline2@<:#231,9360>    if curshade$() != ""

@Outline2@<:#231,9360>        type ("<[>del]")

@Outline2@<:#231,9360>    endif

@Outline2@<:#231,9360>    FieldAdd("if Defined {fieldname} {fieldname} else ""{showntext}"" endif"   )

@Outline2@<:#231,9360>    hourglass(0)

@Outline2@<:#231,9360>nexter:

@Outline2@<:#231,9360>next

@Outline2@<:#231,9360>end function

@Function@<:#293,9360>function echoer()

@Outline2@<:#231,9360>rmac=getrunningmacrofile$()

@Outline2@<:#231,9360>ignorekeyboard(2)

@Outline2@<:#231,9360>target="as_"

@Outline2@<:#231,9360>cnt=GetPowerFieldCount(0)

@Outline2@<:#231,9360>if (0 =cnt)

@Outline2@<:#231,9360>    Message("No fields to repeat.", "SmartField Repeater")

@Outline2@<:#231,9360>    exit function

@Outline2@<:#231,9360>endif

@Outline2@<:#231,9360>oncancel boxagain

@Outline2@<:#231,9360>hourglass(1)

@Outline2@<:#231,9360>dim fields(cnt)

@Outline2@<:#231,9360>dim globvars(1)

@Outline2@<:#231,9360>numglobs=0

@Outline2@<:#231,9360>GetPowerFields(0, &fields)

@Outline2@<:#231,9360>'load &globvars

@Outline3@<:#231,9360>for i = 1 to cnt

@Outline3@<:#240,9360>    pftype = StrField$(fields(i), 2, ",")        'get the power <+!>field type<-!>

@Outline3@<:#240,9360>    pffield = StrField$(fields(i), 3, ",")        'get the power <+!>field<-!>

@Outline3@<:#240,9360>    varname=StrField$(pffield, 3, " ")        'get the name of the <+!>variable
<-!>in the PF

@Outline3@<:#231,9360>    showtype=strfield$(varname, 6, "_")    'item from AMIPRO2.INI or "echo"

@Outline3@<:#231,9360>    targlen=len(target)

@Outline3@<:#245,9360>    'if left$(varname, targlen)=target <:f200,2TimesNewRomanPS,255,0,0>and showtype !=  "echo"<:f>

@Outline3@<:#245,9360>    if kmid$(varname,1, targlen)=target <:f200,2TimesNewRomanPS,255,0,0>and showtype !=  "echo"<:f>

@Outline3@<:#231,9360>        numglobs=numglobs+1

@Outline3@<:#231,9360>        result=arrayinsert(&globvars, numglobs, fields(i))

@Outline3@<:#231,9360>    endif

@Outline3@<:#231,9360>next

@Outline2@<:#231,9360>boxagain:

@Outline2@<:#231,9360>statusbarmsg("")

@Outline2@<:#231,9360>'fill dialog box with labels

@Outline3@<:#231,9360>arraysort(&globvars, 3, "_")                'sort the array on varnum

@Outline3@<:#231,9360>dim displayarray (numglobs)

@Outline3@<:#231,9360>for i = 1 to numglobs

@Outline3@<:#240,9360>    pffield = StrField$(globvars(i), 3, ",")        'get the power <+!>field<-!>

@Outline3@<:#240,9360>    varname=StrField$(pffield, 3, " ")        'get the name of the <+!>variable
<-!>in the PF

@Outline3@<:#231,9360>    quotechar=chr$(34)

@Outline3@<:#240,9360>    varlabel=StrField$(globvars(i), 2, quotechar)        'get the <+!>label
<-!>for the variable

@Outline3@<:#231,9360>    boxtype=strfield$(varname, 2, "_")

@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@<:#231,9360>    if boxtype="def"

@Outline3@<:#231,9360>        boxtype="Default"

@Outline3@<:#231,9360>    elseif boxtype="user"

@Outline3@<:#231,9360>        boxtype="Optional"

@Outline3@<:#231,9360>    endif

@Outline3@<:#462,9360>    item=strcat$(boxtype, " - ", varlabel, "                                     |", echovar, "|", varlabel, "|", boxtype, strfield$(varname, 3, "_"))

@Outline3@<:#231,9360>    displayarray(i)=item

@Outline3@<:#231,9360>next

@Outline3@<:#231,9360>ArraySort(&displayarray, 4, "|")

@Outline3@<:#231,9360>filledit (9000, &displayarray)

@Outline2@<:#231,9360>box= dialogbox(".", "echobox")

@Outline2@<:#231,9360>if box = 0

@Outline2@<:#231,9360>    hourglass(0)

@Outline2@<:#231,9360>    exit function

@Outline2@<:#231,9360>endif

@Outline2@<:#231,9360>prompttext=strfield$(GetDialogField$(9000), 1, "|")

@Outline2@<:#231,9360>echothis=strfield$(GetDialogField$(9000), 2, "|")

@Outline2@<:#231,9360>showntext=strfield$(GetDialogField$(9000), 3, "|")

@Outline2@<:#231,9360>boxtype=strfield$(echothis, 2, "_")

@Outline2@<:#231,9360>    if boxtype="def"

@Outline2@<:#231,9360>        boxtype="Default"

@Outline2@<:#231,9360>    elseif boxtype="user"

@Outline2@<:#231,9360>        boxtype="Optional"

@Outline2@<:#231,9360>    endif

@Outline2@<:#462,9360>statusbarmsg("To insert a repeat of this field, choose Resume.  To return to the box to choose another field, choose Cancel.")

@Outline2@<:#231,9360>usercontrol("Move insertion point where you want to insert {boxtype} - {showntext}.")

@Outline2@<:#231,9360>if curshade$() != ""

@Outline2@<:#231,9360>    type ("<[>del]")

@Outline2@<:#231,9360>endif

@Outline2@<:#231,9360>FieldAdd("if Defined {echothis} {echothis} else ""{boxtype} - {showntext} (repeat)"" endif"   )

@Outline2@<:#231,9360>goto boxagain

@Outline2@<:#231,9360>end function

@Function@<:#293,9360>function comboload(hdlg)

@Outline2@<:#231,9360>rmac=GetRunningMacroFile$()

@Outline2@<:#231,9360>strings=GetProfileString$("AutoStyleSheets", 0, "AMIPRO2.INI")

@Outline2@<:#231,9360>numfields=countfields(strings, "~")

@Outline2@<:#231,9360>dim temparray(numfields)

@Outline2@<:#231,9360>for i = 1 to numfields

@Outline2@<:#231,9360>    thisone=strfield$(strings, i, "~")

@Outline2@<:#231,9360>    TempArray(i)= thisone

@Outline2@<:#231,9360>next

@Outline2@<:#231,9360>ArrayInsert(&TempArray, 1, "")

@Outline2@<:#231,9360>questidx=ArraySearch(&TempArray, "NoQuestions")

@Outline2@<:#231,9360>if questidx != 0

@Outline2@<:#231,9360>    ArrayDelete(&TempArray, questidx)

@Outline2@<:#231,9360>endif

@Outline2@<:#231,9360>    datagoodidx=ArraySearch(&TempArray, "DataGood")

@Outline2@<:#231,9360>if datagoodidx != 0

@Outline2@<:#231,9360>    ArrayDelete(&TempArray, datagoodidx)

@Outline2@<:#231,9360>endif

@Outline2@<:#231,9360>for ComboID = 9501 to 9509

@Outline2@<:#231,9360>    FillEdit (ComboID, &TempArray)

@Outline2@<:#231,9360>    SetDlgCallBack(ComboID, "{rmac}!combocallback")

@Outline2@<:#231,9360>next

@Outline2@<:#231,9360>end function

@Function@<:#293,9360>function combocallback(hdlg, Comboid)

@Outline2@<:#231,9360>ignorekeyboard(2)

@Outline2@<:#231,9360>thisline=GetDlgItemText(hdlg, ComboID)

@Outline2@<:#231,9360>inistring=GetProfileString$("AutoStyleSheets", thisline, "AMIPRO2.INI")

@Outline2@<:#231,9360>if thisline= ""

@Outline2@<:#231,9360>    inistring = ""

@Outline2@<:#231,9360>endif

@Outline2@<:#231,9360>SetDlgItemText(hdlg, 1010, inistring)

@Outline2@<:#231,9360>editfieldid=ComboID - 1500

@Outline2@<:#231,9360>editfieldtext=GetDlgItemText(hdlg, editfieldid)

@Outline2@<:#231,9360>if editfieldtext = ""

@Outline2@<:#231,9360>    SetDlgItemText(hdlg, editfieldid, thisline)

@Outline2@<:#231,9360>endif

@Outline2@<:#231,9360>end function

@Function@<:#293,9360>function countfields(string, char)

@Outline2@<:#231,9360>j = 1

@Outline2@<:#231,9360>i = 0

@Outline2@<:#231,9360>while(1)

@Outline2@<:#231,9360>    k = strchr(j, string, Char)

@Outline2@<:#231,9360>    if k = -1

@Outline2@<:#231,9360>        break

@Outline2@<:#231,9360>    endif

@Outline2@<:#231,9360>    i = i + 1

@Outline2@<:#231,9360>    j = k + 1

@Outline2@<:#231,9360>wend

@Outline2@<:#231,9360>return i

@Outline2@<:#231,9360>end function

@Function@<:#293,9360>function frameinsert()

@Outline2@<:#231,9360>recheck:

@Outline2@<:#231,9360>result=IsOKToRun(FrameLayout)

@Outline2@<:#231,9360>if result != 1

@Outline2@<:#231,9360>    UserControl("Create the frame and choose Resume.")

@Outline2@<:#231,9360>    goto recheck

@Outline2@<:#231,9360>endif

@Outline2@<:#231,9360>DefStr Length, Wide, Units, Paper, WinDir, INI, in, Fwide, FHigh, Top, Left, LMargin

@Outline2@<:#231,9360>DefStr TMargin, RMargin, BMargin, Funits, FType, FRound, FMacName

@Outline2@<:#462,9360>GetCurFrameBorders(&FWide, &FHigh, &Top, &Left, &LMargin, &TMargin, &RMargin, &BMargin, &Funits)

@Outline2@<:#231,9360>num=right$(Now(), 4)

@Outline2@<:#231,9360>MarkBookMark("as_frame{num}"  4003  )

@Outline2@<:#231,9360>AddFrame(top, left, FWide, FHigh )

@Outline2@<:#231,9360>FrameModInit( )

@Outline2@<:#231,9360>FrameModLines(0 1 1 0 16777215 0 0 0 0 0  )

@Outline2@<:#231,9360>FrameModType(134218240 18 "framcust.smm({num})"   )

@Outline2@<:#231,9360>FrameModBorders(fWide, FHigh, top, left, LMargin, TMargin, RMargin, BMargin,1  )

@Outline2@<:#231,9360>FrameModFinish( )

@Outline2@<:#231,9360>BringFrameToFront()

@Outline2@<:#231,9360>MarkBookMark("as_frame{num}cover"  4003  )

@Outline2@<:#231,9360>Type( "<[>Enter]<[>Enter]Click on this frame to insert text or graphics in this area." )

@Outline2@<:#231,9360>Center()

@Outline2@<:#231,9360>Type("<[>esc]<[>esc]")

@Outline2@<:#231,9360>end function

@Function@<:#293,9360>function FieldNumToName(num)

@Outline2@<:#231,9360>cnt = GetPowerFieldCount(0)

@Outline2@<:#231,9360>dim fields(cnt)

@Outline2@<:#231,9360>GetPowerFields(0, &fields)

@Outline2@<:#231,9360>position=ArraySearch(&fields, num, 1, ",")

@Outline2@<:#240,9360>    pffield = StrField$(fields(position), 3, ",")        'get the power <+!>field<-!>

@Outline2@<:#240,9360>    varname=StrField$(pffield, 3, " ")        'get the name of the <+!>variable
<-!>in the PF

@Outline2@<:#231,9360>FieldNumToName=varname

@Outline2@<:#231,9360>end function

@Function@<:#293,9360>function savesty()

@Outline2@<:#231,9360>if (IsOKToRun(SaveAsNewStyle)) != 1 exit function

@Outline2@<:#231,9360>endif

@Outline2@<:#231,9360>curstyle="automate.sty"

@Outline2@<:#231,9360>'stypath=left$(GetStylePath$(), (len(GetStylePath$()) - 1))

@Outline2@<:#231,9360>stypath=kmid$(GetStylePath$(), 1,(len(GetStylePath$()) - 1))

@Outline2@<:#231,9360>filledit(1004, stypath)

@Outline2@<:#231,9360>filledit(8002, curstyle)

@Outline2@<:#231,9360>box = dialogbox(".", "savesty")

@Outline2@<:#231,9360>if box = 0

@Outline2@<:#231,9360>    exit function

@Outline2@<:#231,9360>endif

@Outline2@<:#231,9360>newstyle=getdialogfield$(8002)

@Outline2@<:#231,9360>if strchr(1, newstyle, ".") = (-1)

@Outline2@<:#231,9360>    newstyle=strcat$(newstyle, ".sty")

@Outline2@<:#231,9360>endif

@Outline2@<:#231,9360>newstyle=ucase$(newstyle)

@Outline2@<:#231,9360>newdesc=getdialogfield$(8003)

@Outline2@<:#231,9360>'SaveAsNewStyle(Name, WithContents, MacroName, RunMacro, Description)

@Outline2@<:#231,9360>result=SaveAsNewStyle(newstyle, 1, "autosty.smm", 1, newdesc)

@Outline2@<:#231,9360>end function

@Function@<:#293,9360>function bookmarker()

@Outline2@<:#231,9360>if (IsOKToRun(MarkBookmark)) != 1 exit function

@Outline2@<:#231,9360>endif

@Outline2@<:#231,9360>UserControl("Move insertion point where you want to begin typing.")

@Outline2@<:#231,9360>MarkBookMark("as_starttext" 4004)    'delete the bookmark already in

@Outline2@<:#231,9360>MarkBookMark("as_starttext" 4003)    'insert new one

@Outline2@<:#231,9360>end function

@Function@<:#293,9360>function editsty()

@Outline2@<:#231,9360>rmac=GetRunningMacroFile$()

@Outline2@<:#231,9360>runlater("{rmac}!<:Zbuttoncheck>AmiButtonCheck<:Z~buttoncheck>(25550, 0)", 0.1)

@Outline2@<:#231,9360>runlater("{rmac}!<:Zbuttoncheck1>AmiButtonCheck<:Z~buttoncheck1>(25551, 1)", 0.1)

@Outline2@<:#231,9360>runlater("{rmac}!AmiUIGray(25550, 0)", 0.1)

@Outline2@<:#231,9360>runlater("{rmac}!AmiUIGray(25551, 0)", 0.1)

@Outline2@<:#231,9360>pause(004)

@Outline2@<:#231,9360>New

@Outline2@<:#231,9360>end function

@Function@<:#293,9360>function LabelNoBadChars(showntext)

@Outline2@<:#231,9360>badchars= " ""%'()*+,-/;<<=<;>@<[>\]^}";

@Outline2@<:#231,9360>for c=1 to len(badchars)

@Outline2@<:#231,9360>    'char=mid$(badchars, c, 1)

@Outline2@<:#231,9360>    char=kmid$(badchars, c, 1)

@Outline2@<:#231,9360>    while (strchr(1, showntext, char) != -1)

@Outline2@<:#231,9360>        dim part(10)

@Outline2@<:#231,9360>        for x = 1 to 10

@Outline2@<:#231,9360>            part(x)=strfield$(showntext, x, char)

@Outline2@<:#231,9360>            if part(x) = -1 or part(x) = ""

@Outline2@<:#231,9360>                break

@Outline2@<:#231,9360>            endif

@Outline2@<:#231,9360>            newtext=strcat$(newtext, part(x))

@Outline2@<:#231,9360>        next

@Outline2@<:#231,9360>        showntext=newtext

@Outline2@<:#231,9360>        newtext = ""

@Outline2@<:#231,9360>    wend

@Outline2@<:#231,9360>next

@Outline2@<:#231,9360>label=showntext

@Outline2@<:#231,9360>if label= ""

@Outline2@<:#231,9360>    label=strcat$("temp", right$(Now(), 4))    'label can't be null

@Outline2@<:#231,9360>endif

@Outline2@<:#231,9360>return label

@Outline2@<:#231,9360>end function

@Function@<:#293,9360>function removemenuitem()

@Outline2@<:#231,9360>deletemenu(1, "S&martFields")

@Outline2@<:#231,9360>end function

@Function@<:#293,9360>function movedlgitem(hdlg, ControlID, xshift, yshift)

@Outline2@<:#231,9360>hwndCtrl=GetDlgItem(hdlg, ControlID)

@Outline2@<:#231,9360>if controlid= "" or ControlID = 0

@Outline2@<:#231,9360>    hwndctrl=hdlg

@Outline2@<:#231,9360>endif

@Outline2@<:#231,9360>DIM rect2(4)

@Outline2@<:#231,9360>DIM rect3(4)

@Outline2@<:#231,9360>GetWindowRect(hwndCtrl,&rect2)

@Outline2@<:#231,9360>if controlid != "" and ControlID != 0

@Outline2@<:#462,9360>    ScreenToClient(hDlg, &rect2)    'convert control's screen-relative coordinates to hdlg-relative coordinates

@Outline2@<:#231,9360>endif

@Outline2@<:#231,9360>GetClientRect(hwndCtrl, &rect3)    'get xL & yL numbers (length & width of control)

@Outline2@<:#231,9360>x=rect2(1)

@Outline2@<:#231,9360>y=rect2(2)

@Outline2@<:#231,9360>xL=rect3(3)

@Outline2@<:#231,9360>yL=rect3(4)

@Outline2@<:#231,9360>MoveWindow(hwndCtrl,x+xshift,y+yshift,xL,yL)

@Outline2@<:#231,9360>end function

@Function@<:#293,9360>function sizedlgitem(hdlg, ControlID, xshift, yshift)

@Outline2@<:#231,9360>hwndCtrl=GetDlgItem(hdlg, ControlID)

@Outline2@<:#231,9360>if controlid= "" or ControlID = 0

@Outline2@<:#231,9360>    hwndctrl=hdlg

@Outline2@<:#231,9360>endif

@Outline2@<:#231,9360>DIM rect2(4)

@Outline2@<:#231,9360>DIM rect3(4)

@Outline2@<:#231,9360>GetWindowRect(hwndCtrl,&rect2)

@Outline2@<:#231,9360>if controlid != "" and ControlID != 0

@Outline2@<:#462,9360>    ScreenToClient(hDlg, &rect2)    'convert control's screen-relative coordinates to hdlg-relative coordinates

@Outline2@<:#231,9360>endif

@Outline2@<:#231,9360>GetClientRect(hwndCtrl, &rect3)    'get xL & yL numbers (length & width of control)

@Outline2@<:#231,9360>x=rect2(1)

@Outline2@<:#231,9360>y=rect2(2)

@Outline2@<:#231,9360>xL=rect3(3)

@Outline2@<:#231,9360>yL=rect3(4)

@Outline2@<:#231,9360>MoveWindow(hwndCtrl,x,y,xL+xshift,yL+yshift)

@Outline2@<:#231,9360>end function

@Function@<:#293,9360>FUNCTION torchfields(target)

@Outline2@<:#231,9360>if (IsOKToRun(FieldRemove)) != 1 exit function

@Outline2@<:#231,9360>endif

@Outline2@<:#231,9360>'singlestep(0)

@Outline2@<:#231,9360>cnt = GetPowerFieldCount(0)

@Outline2@<:#231,9360>if (0 != cnt)

@Outline2@<:#231,9360>    if strfield$(target, 3, "_")    = -1    'no 3d field on target; this is a global burn; ask to confirm it

@Outline3@<:#231,9360>    doit=Decide("Remove all SmartFields?")

@Outline4@<:#231,9360>if doit = 0

@Outline4@<:#231,9360>    exit function

@Outline4@<:#231,9360>endif

@Outline2@<:#231,9360>    endif

@Outline2@<:#231,9360>    dim fields(cnt)

@Outline2@<:#231,9360>    GetPowerFields(0, &fields)

@Outline2@<:#231,9360>    for i = 1 to cnt

@Outline2@<:#231,9360>        pfid = StrField$(fields(i), 1, ",")

@Outline2@<:#231,9360>        pftype = StrField$(fields(i), 2, ",")

@Outline2@<:#240,9360>        pffield = StrField$(fields(i), 3, ",")        'get the power <+!>field<-!>

@Outline2@<:#240,9360>        varname=StrField$(pffield, 3, " ")        'get the name of the <+!>variable
<-!>in the PF

@Outline2@<:#231,9360>        targlen=len(target)

@Outline2@<:#231,9360>        'if left$(varname, targlen)=target

@Outline2@<:#231,9360>        if kmid$(varname,1, targlen)=target

@Outline2@<:#231,9360>            FieldRemove(pfid, pftype);

@Outline2@<:#231,9360>        endif

@Outline2@<:#231,9360>    next

@Outline2@<:#231,9360>else

@Outline2@<:#231,9360>    if strfield$(target, 3, "_")    = -1

@Outline2@<:#231,9360>        message("No fields to remove.", "SmartField Remover")

@Outline2@<:#231,9360>    endif

@Outline2@<:#231,9360>endif

@Outline2@<:#231,9360>END FUNCTION

@Function@<:#293,9360>function AmiButtonCheck(ID, State)

@Outline2@<:#231,9360>hdlg = getactivewindow()

@Outline2@<:#231,9360>idnew = GetDlgItem(Hdlg, ID)

@Outline2@<:#231,9360>AppSendMessage(idnew, BM_SETCHECK, state, 0)

@Outline2@<:#231,9360>end function

@Function@<:#293,9360>function AmiUIGray(ID, State)

@Outline2@<:#231,9360>hdlg = getactivewindow()

@Outline2@<:#231,9360>idnew = GetDlgItem(Hdlg, ID)

@Outline2@<:#231,9360>enablewindow(idnew, state)

@Outline2@<:#231,9360>end function

@Function@<:#293,9360>DIALOG    autostyle

@Outline2@<:#231,9360>-2134376448    35    116    46    232    224    ""    ""    "_LETTER1.STY Information"

@Outline2@<:#231,9360>FONT    8    "Helv"

@Outline2@<:#231,9360>34    18    92    12    8001    1350631552    "edit"    ""    0

@Outline2@<:#231,9360>130    18    52    80    9501    1344339971    "combobox"    ""    0

@Outline2@<:#231,9360>34    34    92    12    8002    1350631552    "edit"    ""    0

@Outline2@<:#231,9360>130    34    52    80    9502    1344339971    "combobox"    ""    0

@Outline2@<:#231,9360>34    48    92    12    8003    1350631552    "edit"    ""    0

@Outline2@<:#231,9360>130    48    52    80    9503    1344339971    "combobox"    ""    0

@Outline2@<:#231,9360>34    64    92    12    8004    1350631552    "edit"    ""    0

@Outline2@<:#231,9360>130    64    52    80    9504    1344339971    "combobox"    ""    0

@Outline2@<:#231,9360>34    78    92    12    8005    1350631552    "edit"    ""    0

@Outline2@<:#231,9360>130    78    52    80    9505    1344339971    "combobox"    ""    0

@Outline2@<:#231,9360>34    94    92    12    8006    1350631552    "edit"    ""    0

@Outline2@<:#231,9360>130    94    52    80    9506    1344339971    "combobox"    ""    0

@Outline2@<:#231,9360>34    108    92    12    8007    1350631552    "edit"    ""    0

@Outline2@<:#231,9360>130    108    52    80    9507    1344339971    "combobox"    ""    0

@Outline2@<:#231,9360>34    124    92    12    8008    1350631552    "edit"    ""    0

@Outline2@<:#231,9360>130    124    52    80    9508    1344339971    "combobox"    ""    0

@Outline2@<:#231,9360>34    138    92    12    8009    1350631552    "edit"    ""    0

@Outline2@<:#231,9360>130    138    52    80    9509    1344339971    "combobox"    ""    0

@Outline2@<:#231,9360>3    20    26    10    1001    1342177280    "static"    "Field 1:"    0

@Outline2@<:#231,9360>3    35    26    9    1002    1342177280    "static"    "Field 2:"    0

@Outline2@<:#231,9360>3    50    26    9    1003    1342177280    "static"    "Field 3:"    0

@Outline2@<:#231,9360>3    65    26    9    1004    1342177280    "static"    "Field 4:"    0

@Outline2@<:#231,9360>3    80    26    9    1005    1342177280    "static"    "Field 5:"    0

@Outline2@<:#231,9360>3    95    26    9    1006    1342177280    "static"    "Field 6:"    0

@Outline2@<:#231,9360>3    110    26    9    1007    1342177280    "static"    "Field 7:"    0

@Outline2@<:#231,9360>3    125    26    9    1008    1342177280    "static"    "Field 8:"    0

@Outline2@<:#231,9360>3    140    26    9    1009    1342177280    "static"    "Field 9:"    0

@Outline2@<:#231,9360>4    172    222    36    1050    1342177280    "static"    "Default box text"    0

@Outline2@<:#231,9360>4    172    222    36    1060    1342177280    "static"    "User box text"    0

@Outline2@<:#231,9360>186    16    40    14    1    1342373889    "button"    "OK"    0

@Outline2@<:#231,9360>186    32    40    14    2    1342373888    "button"    "Cancel"    0

@Outline2@<:#231,9360>3    158    102    10    1000    1342177280    "static"    "Current information:"    0

@Outline2@<:#231,9360>70    158    160    10    1010    1342177280    "static"    ""    0

@Outline2@<:#231,9360>34    6    60    10    1011    1342177280    "static"    "Fields:"    0

@Outline2@<:#231,9360>130    6    44    10    1012    1342177280    "static"    "User info:"    0

@Outline2@<:#231,9360>END DIALOG

@Function@<:#293,9360>DIALOG    echobox

@Outline2@<:#231,9360>-2134376448    4    84    70    160    92    ""    ""    "Make Fields Repeat"

@Outline2@<:#231,9360>FONT    8    "Helv"

@Outline2@<:#231,9360>6    16    102    70    9000    1352728577    "listbox"    ""    0

@Outline2@<:#231,9360>116    4    40    14    1    1342373889    "button"    "OK"    0

@Outline2@<:#231,9360>116    20    40    14    2    1342373888    "button"    "Done"    0

@Outline2@<:#231,9360>6    4    74    10    1000    1342177280    "static"    "Select field to repeat:"    0

@Outline2@<:#231,9360>END DIALOG

@Function@<:#293,9360>DIALOG    savesty

@Outline2@<:#462,9360>-2134376448    9    102    54    204    92    ""    ""    "Save As Automated Style Sheet"

@Outline2@<:#231,9360>FONT 8 "Helv"

@Outline2@<:#231,9360>52    40    86    12    8002    1350631552    "edit"    ""    0

@Outline2@<:#231,9360>52    58    146    26    8003    1350631552    "edit"    ""    0

@Outline2@<:#231,9360>159    5    40    14    1    1342373889    "button"    "OK"    0

@Outline2@<:#231,9360>159    21    40    14    2    1342373888    "button"    "Cancel"    0

@Outline2@<:#231,9360>4    39    28    10    1000    1342177280    "static"    "&Name:"    0

@Outline2@<:#231,9360>4    58    44    10    1001    1342177280    "static"    "Description:"    0

@Outline2@<:#462,9360>4    3    132    20    1002    1342177280    "static"    "Type the name and description for this automated style sheet."    0

@Outline2@<:#231,9360>4    24    58    10    1003    1342177280    "static"    "Style sheet path:"    0

@Outline2@<:#231,9360>66    24    80    10    1004    1342177280    "static"    "path"    0

@Outline2@<:#231,9360>END DIALOG

>

[Embedded]
00042111
>
[macsum] 24
menus 0 0 5 34
main 1583 1 10 60
fieldloader 2632 1 15 110
initdlg 3556 3 16 147
insertfields 5639 2 8 202
echoer 6296 0 24 228
comboload 8376 1 10 300
combocallback 8993 2 5 323
countfields 9280 2 4 337
frameinsert 9487 0 22 350
FieldNumToName 10076 1 6 374
savesty 10259 0 7 383
bookmarker 10725 0 1 404
editsty 10929 0 2 411
LabelNoBadChars 11146 1 8 420
removemenuitem 11808 0 1 444
movedlgitem 11863 4 8 447
sizedlgitem 12343 4 8 465
torchfields 12823 1 10 483
AmiButtonCheck 13549 2 3 514
AmiUIGray 13675 2 3 519
autostyle 13812 0 -1 524
echobox 15598 0 -1 563
savesty 15885 0 -1 571
[macse]
14 menus
0 802
13
8 1
0 286 "AutoStyleSheets" "DataGood" "AMIPRO2.INI"
13
8 2
6 2
5 1
18 1
11 00000281
0 295
13
8 3
0 3 "The following information is required for building automated style sheets." "SmartField Startup"
7 "{3}collect.smm"
8 4
16 "{4}"
10 00000026
0 521 1 "S&martFields"
0 515 1 "S&martFields"
0 516 1 "S&martFields" "Define &Default Information..." "{1}!main(""as_def"")" "Design the Default Information dialog box for an automated style sheet."
0 516 1 "S&martFields" "Define &Optional Information..." "{1}!main(""as_user"")" "Design the Optional Information dialog box for an automated style sheet."
0 516 1 "S&martFields" "&Repeat SmartFields..." "{1}!echoer" "Select the SmartFields you want to repeat and indicate their locations."
0 516 1 "S&martFields" "Define &Cursor Location..." "{1}!bookmarker" "Define where you want to begin typing when you create a document."
0 516 1 "S&martFields" "Add Automated &Frame..." "{1}!frameinsert" "Inserts an automated frame in the style sheet."
0 516 1 "S&martFields" "Re&move All SmartFields..." "{1}!torchfields(""as_"")" "Remove all SmartFields in the automated style sheet."
0 516 1 "S&martFields" "-" "" ""
0 516 1 "S&martFields" "Edit &Automated Style Sheet..." "{1}!editsty" "Create or edit an automated style sheet."
0 516 1 "S&martFields" "Sa&ve Automated Style Sheet..." "{1}!savesty" "Save this document as an automated style sheet."
0 516 1 "S&martFields" "-" "" ""
0 516 1 "S&martFields" "E&xit" "{1}!removemenuitem" "Remove the SmartFields menu from the menu bar."
6 0
15
9
14 main
0 1050
13
5 1
18 5
11 00000057
6 1
15
9
0 271 "target" 1
0 264 "target" "{0}"
5 9
21 2 [X]
5 9
21 3 [X]
0 802
13
8 4
0 296 1
0 271 "Setfont:hFont" 1
0 264 "Setfont:hFont" 0
16 fieldloader "{0}"
0 41 0 "{4}!InitDlg"
0 26 "." "autostyle"
13
8 5
6 5
5 0
18 0
11 00000319
10 00000879
0 296 0
5 1
8 6
5 9
6 6
18 2
12 00000413
10 00000575
5 1
6 6
3 0
8 6
10 00000338
5 8000
6 6
3 0
0 27 [X]
13
8 7
5 9500
6 6
3 0
0 27 [X]
13
8 8
6 7
7 ""
18 0
11 00000530
10 00000575
6 6
6 7
23 2
6 6
6 8
23 3
10 00000380
6 6
5 1
3 1
8 9
0 271 "fieldnames" 9
0 271 "combofields" 9
5 1
8 6
6 9
6 6
18 2
12 00000725
10 00000821
5 1
6 6
3 0
8 6
10 00000650
6 6
22 2
0 272 "fieldnames" "{6}" [X]
6 6
22 3
0 272 "combofields" "{6}" [X]
10 00000692
6 9
5 0
18 1
11 00000879
16 insertfields "{0}" "{9}"
0 265 "Setfont:hFont"
13
8 10
5 0
6 10
18 1
11 00000978
0 284 "gdi,DeleteObject,HH" "{10}"
0 266 "Setfont:hFont"
0 266 "fieldnames"
0 266 "target"
6 1
15
9
14 fieldloader
0 802
13
8 2
0 1304 0
13
8 3
5 0
6 3
18 0
11 00000092
6 1
15
9
6 3
21 4 [X]
5 1
21 5 [X]
5 0
8 6
0 1305 0 &4
5 1
8 7
6 3
6 7
18 2
12 00000230
10 00000534
5 1
6 7
3 0
8 7
10 00000155
6 7
22 4
0 20 [X] 2 ","
13
8 8
6 7
22 4
0 20 [X] 3 ","
13
8 9
0 20 "{9}" 3 " "
13
8 10
0 20 "{10}" 6 "_"
13
8 11
0 14 "{0}"
13
8 12
0 133 "{10}" 1 "{12}"
13
6 0
18 0
6 11
7 "echo"
18 1
1 1
11 00000521
6 6
5 1
3 0
8 6
6 7
22 4
0 1041 &5 "{6}" [X]
13
8 13
10 00000197
6 6
5 0
18 0
11 00000575
6 1
15
9
0 1043 &5 3 "_"
5 1
8 7
6 6
6 7
18 2
12 00000677
10 00000912
5 1
6 7
3 0
8 7
10 00000602
6 7
22 5
0 20 [X] 3 ","
13
8 9
0 20 "{9}" 3 " "
13
8 10
0 39 34
13
8 14
6 7
22 5
0 20 [X] 2 "{14}"
13
8 15
0 20 "{10}" 6 "_"
13
8 11
5 8000
6 7
3 0
0 31 [X] "{15}"
5 9500
6 7
3 0
0 31 [X] "{11}"
10 00000644
6 1
15
9
14 initdlg
0 265 "target"
13
8 2
0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
13
8 4
6 4
11 00000319
0 44 "{0}" 1050
13
8 5
0 44 "{0}" 1060
13
8 6
0 284 "user,SendMessage,HHHHJ" "{5}" 48 "{4}" 0
0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{4}" 0
0 264 "Setfont:hFont" "{4}"
0 279 3
13
8 7
0 18 "{7}"
13
8 7
0 39 091
13
8 8
0 39 093
13
8 9
0 16 "{8}" "{7}" "{9}"
13
8 7
6 2
7 "as_def"
18 0
11 00001181
0 284 "user,GetActiveWindow,H"
13
0 284 "user,SetWindowText,IHC" [X] "Default Information"
16 ComboLoad "{0}"
0 44 "{0}" 3
13
0 284 "User,EnableWindow,AHH" [X] 0
0 44 "{0}" 1060
13
0 284 "User,ShowWindow,AHH" [X] 0
7 "Specify the field names you want to use for the default "
8 10
7 "information each time you create a document using this "
8 11
7 "style sheet. You can select an item in the User info list "
8 12
0 39 91
13
8 13
0 133 "[[" 1 1
13
8 14
7 "box if you want to use information stored in the {14}AutoStyleSheet] Section of "
8 15
7 "the AMIPRO2.INI."
8 16
7 "{10}{11}{12}{15}{16}"
8 17
0 31 1050 "{17}"
16 combocallback "{0}" 9501
16 sizedlgitem "{0}" 0 0 -4
10 00002071
0 284 "user,GetActiveWindow,H"
13
0 284 "user,SetWindowText,IHC" [X] "Optional Information"
0 44 "{0}" 3
13
0 284 "User,ShowWindow,AHH" [X] 0
0 44 "{0}" 1060
13
0 284 "User,ShowWindow,AHH" [X] 0
0 44 "{0}" 1012
13
0 284 "User,ShowWindow,AHH" [X] 0
0 44 "{0}" 1000
13
0 284 "User,ShowWindow,AHH" [X] 0
0 44 "{0}" 1010
13
0 284 "User,ShowWindow,AHH" [X] 0
5 9501
8 18
5 9509
6 18
18 2
12 00001648
10 00001719
5 1
6 18
3 0
8 18
10 00001567
0 44 "{0}" "{18}"
13
0 284 "User,ShowWindow,AHH" [X] 0
10 00001613
7 "Specify the field names you want to use for the optional information each time "
8 10
7 "you create a document using this style sheet."
8 11
16 movedlgitem "{0}" 1 -90 0
16 movedlgitem "{0}" 2 -90 0
16 movedlgitem "{0}" 1050 0 -30
16 sizedlgitem "{0}" 1050 -80 0
16 sizedlgitem "{0}" 0 -90 -40
7 "{10}{11}{12}{15}"
8 17
0 31 1050 "{17}"
6 3
15
9
14 insertfields
5 1
8 3
6 1
6 3
18 2
12 00000102
10 00000645
5 1
6 3
3 0
8 3
10 00000027
19 00000632
0 273 "fieldnames" "{3}"
13
8 4
6 4
7 ""
18 0
11 00000193
10 00000632
0 7 "Move insertion point where you want to insert {4}."
0 296 1
7 "eb"
8 5
16 LabelNoBadChars "{4}"
13
8 6
0 273 "combofields" "{3}"
13
8 7
6 7
7 ""
18 1
11 00000399
0 16 "{7}" "_"
13
8 7
0 16 "{0}" "_" "{3}" "_" "{5}" "_" "{6}" "_" "{7}"
13
8 8
0 16 "{0}" "_" "{3}" "_" "{5}" "_"
13
8 9
16 torchfields "{9}"
0 24
13
7 ""
18 1
11 00000574
0 6 "[46]"
2 572 1 "if Defined {8} {8} else ""{4}"" endif"
0 296 0
10 00000069
6 2
15
9
14 echoer
0 802
13
8 1
0 32 2
7 "as_"
8 2
0 1304 0
13
8 3
5 0
6 3
18 0
11 00000159
0 3 "No fields to repeat." "SmartField Repeater"
6 0
15
9
19 00000623
0 296 1
6 3
21 4 [X]
5 1
21 5 [X]
5 0
8 6
0 1305 0 &4
5 1
8 7
6 3
6 7
18 2
12 00000319
10 00000623
5 1
6 7
3 0
8 7
10 00000244
6 7
22 4
0 20 [X] 2 ","
13
8 8
6 7
22 4
0 20 [X] 3 ","
13
8 9
0 20 "{9}" 3 " "
13
8 10
0 20 "{10}" 6 "_"
13
8 11
0 14 "{2}"
13
8 12
0 133 "{10}" 1 "{12}"
13
6 2
18 0
6 11
7 "echo"
18 1
1 1
11 00000610
6 6
5 1
3 0
8 6
6 7
22 4
0 1041 &5 "{6}" [X]
13
8 13
10 00000286
0 789 ""
0 1043 &5 3 "_"
6 6
21 14 [X]
5 1
8 7
6 6
6 7
18 2
12 00000751
10 00001367
5 1
6 7
3 0
8 7
10 00000676
6 7
22 5
0 20 [X] 3 ","
13
8 9
0 20 "{9}" 3 " "
13
8 10
0 39 34
13
8 15
6 7
22 5
0 20 [X] 2 "{15}"
13
8 16
0 20 "{10}" 2 "_"
13
8 17
0 20 "{10}" 1 "_"
13
0 20 "{10}" 2 "_"
13
0 20 "{10}" 3 "_"
13
0 20 "{10}" 4 "_"
13
0 20 "{10}" 5 "_"
13
0 16 [X] "_" [X] "_" [X] "_" [X] "_" [X] "_" "echo_"
13
8 18
6 17
7 "def"
18 0
11 00001148
7 "Default"
8 17
10 00001203
6 17
7 "user"
18 0
11 00001203
7 "Optional"
8 17
0 20 "{10}" 3 "_"
13
0 16 "{17}" " - " "{16}" "                                     |" "{18}" "|" "{16}" "|" "{17}" [X]
13
8 19
6 7
6 19
23 14
10 00000718
0 1043 &14 4 "|"
0 31 9000 &14
0 26 "." "echobox"
13
8 20
6 20
5 0
18 0
11 00001481
0 296 0
6 0
15
9
0 27 9000
13
0 20 [X] 1 "|"
13
8 21
0 27 9000
13
0 20 [X] 2 "|"
13
8 22
0 27 9000
13
0 20 [X] 3 "|"
13
8 23
0 20 "{22}" 2 "_"
13
8 17
6 17
7 "def"
18 0
11 00001699
7 "Default"
8 17
10 00001754
6 17
7 "user"
18 0
11 00001754
7 "Optional"
8 17
0 789 "To insert a repeat of this field, choose Resume.  To return to the box to choose another field, choose Cancel."
0 7 "Move insertion point where you want to insert {17} - {23}."
0 24
13
7 ""
18 1
11 00001987
0 6 "[46]"
2 572 1 "if Defined {22} {22} else ""{17} - {23} (repeat)"" endif"
10 00000623
6 0
15
9
14 comboload
0 802
13
8 2
0 286 "AutoStyleSheets" 0 "AMIPRO2.INI"
13
8 3
16 countfields "{3}" "~"
13
8 4
6 4
21 5 [X]
5 1
8 6
6 4
6 6
18 2
12 00000215
10 00000275
5 1
6 6
3 0
8 6
10 00000140
0 20 "{3}" "{6}" "~"
13
8 7
6 6
6 7
23 5
10 00000182
0 1041 &5 1 ""
0 1044 &5 "NoQuestions"
13
8 8
6 8
5 0
18 1
11 00000371
0 1042 &5 "{8}"
0 1044 &5 "DataGood"
13
8 9
6 9
5 0
18 1
11 00000448
0 1042 &5 "{9}"
5 9501
8 10
5 9509
6 10
18 2
12 00000543
10 00000605
5 1
6 10
3 0
8 10
10 00000462
0 31 "{10}" &5
0 41 "{10}" "{2}!combocallback"
10 00000508
6 1
15
9
14 combocallback
0 32 2
0 42 "{0}" "{1}"
13
8 3
0 286 "AutoStyleSheets" "{3}" "AMIPRO2.INI"
13
8 4
6 3
7 ""
18 0
11 00000148
7 ""
8 4
0 43 "{0}" 1010 "{4}"
6 1
5 1500
3 1
8 5
0 42 "{0}" "{5}"
13
8 6
6 6
7 ""
18 0
11 00000275
0 43 "{0}" "{5}" "{3}"
6 2
15
9
14 countfields
5 1
8 3
5 0
8 4
5 1
11 00000183
0 13 "{3}" "{0}" "{1}"
13
8 5
6 5
5 -1
18 0
11 00000130
10 00000183
6 4
5 1
3 0
8 4
6 5
5 1
3 0
8 3
10 00000036
6 4
15
9
6 2
15
9
14 frameinsert
0 1313 217 24 402
13
8 1
6 1
5 1
18 1
11 00000129
0 7 "Create the frame and choose Resume."
10 00000016
0 795 &9 &10 &11 &12 &13 &14 &15 &16 &17
0 772
13
0 807 [X] 4
13
8 21
2 466 1 "as_frame{21}" 4003
2 413 1 "{11}" "{12}" "{9}" "{10}"
2 421 1
2 416 1 0 1 1 0 16777215 0 0 0 0 0
2 417 1 134218240 18 "framcust.smm({21})"
2 418 1 "{9}" "{10}" "{11}" "{12}" "{13}" "{14}" "{15}" "{16}" 1
2 420 1
2 407 1
2 466 1 "as_frame{21}cover" 4003
0 6 "[13][13]Click on this frame to insert text or graphics in this area."
2 260 1
0 6 "[27][27]"
6 0
15
9
14 FieldNumToName
0 1304 0
13
8 2
6 2
21 3 [X]
0 1305 0 &3
0 1044 &3 "{0}" 1 ","
13
8 4
6 4
22 3
0 20 [X] 3 ","
13
8 5
0 20 "{5}" 3 " "
13
8 6
6 6
8 1
6 1
15
9
14 savesty
0 1313 217 24 305
13
5 1
18 1
11 00000071
6 0
15
9
7 "automate.sty"
8 1
0 269
13
0 269
13
0 14 [X]
13
5 1
3 1
0 133 [X] 1 [X]
13
8 2
0 31 1004 "{2}"
0 31 8002 "{1}"
0 26 "." "savesty"
13
8 3
6 3
5 0
18 0
11 00000270
6 0
15
9
0 27 8002
13
8 4
0 13 1 "{4}" "."
13
5 -1
18 0
11 00000365
0 16 "{4}" ".sty"
13
8 4
0 18 "{4}"
13
8 4
0 27 8003
13
8 5
2 305 1 "{4}" 1 "autosty.smm" 1 "{5}"
13
8 6
6 0
15
9
14 bookmarker
0 1313 217 24 466
13
5 1
18 1
11 00000074
6 0
15
9
0 7 "Move insertion point where you want to begin typing."
2 466 1 "as_starttext" 4004
2 466 1 "as_starttext" 4003
6 0
15
9
14 editsty
0 802
13
8 1
0 285 "{1}!AmiButtonCheck(25550, 0)" 0.1
0 285 "{1}!AmiButtonCheck(25551, 1)" 0.1
0 285 "{1}!AmiUIGray(25550, 0)" 0.1
0 285 "{1}!AmiUIGray(25551, 0)" 0.1
0 274 004
24 101
6 0
15
9
14 LabelNoBadChars
7 " ""%'()*+,-/;<<=>@[92]^}"
8 2
5 1
8 3
0 14 "{2}"
13
6 3
18 2
12 00000151
10 00000544
5 1
6 3
3 0
8 3
10 00000065
0 133 "{2}" "{3}" 1
13
8 4
0 13 1 "{0}" "{4}"
13
5 -1
18 1
11 00000531
5 10
21 5 [X]
5 1
8 6
5 10
6 6
18 2
12 00000332
10 00000497
5 1
6 6
3 0
8 6
10 00000256
6 6
0 20 "{0}" "{6}" "{4}"
13
23 5
6 6
22 5
5 -1
18 0
6 6
22 5
7 ""
18 0
1 2
11 00000448
10 00000497
6 6
22 5
0 16 "{7}" [X]
13
8 7
10 00000299
6 7
8 0
7 ""
8 7
10 00000181
10 00000118
6 0
8 8
6 8
7 ""
18 0
11 00000638
0 772
13
0 807 [X] 4
13
0 16 "temp" [X]
13
8 8
6 8
15
9
6 1
15
9
14 removemenuitem
0 521 1 "S&martFields"
6 0
15
9
14 movedlgitem
0 44 "{0}" "{1}"
13
8 5
6 1
7 ""
18 0
6 1
5 0
18 0
1 2
11 00000104
6 0
8 5
5 4
21 6 [X]
5 4
21 7 [X]
0 284 "user,GetWindowRect,HHN" "{5}" &6
6 1
7 ""
18 1
6 1
5 0
18 1
1 1
11 00000268
0 284 "user,ScreenToClient,HHN" "{0}" &6
0 284 "user,GetClientRect,HHN" "{5}" &7
5 1
22 6
8 8
5 2
22 6
8 9
5 3
22 7
8 10
5 4
22 7
8 11
6 8
6 2
3 0
6 9
6 3
3 0
0 284 "user,MoveWindow,HHHHHHH" "{5}" [X] [X] "{10}" "{11}" 1
6 4
15
9
14 sizedlgitem
0 44 "{0}" "{1}"
13
8 5
6 1
7 ""
18 0
6 1
5 0
18 0
1 2
11 00000104
6 0
8 5
5 4
21 6 [X]
5 4
21 7 [X]
0 284 "user,GetWindowRect,HHN" "{5}" &6
6 1
7 ""
18 1
6 1
5 0
18 1
1 1
11 00000268
0 284 "user,ScreenToClient,HHN" "{0}" &6
0 284 "user,GetClientRect,HHN" "{5}" &7
5 1
22 6
8 8
5 2
22 6
8 9
5 3
22 7
8 10
5 4
22 7
8 11
6 10
6 2
3 0
6 11
6 3
3 0
0 284 "user,MoveWindow,HHHHHHH" "{5}" "{8}" "{9}" [X] [X] 1
6 4
15
9
14 torchfields
0 1313 217 24 227
13
5 1
18 1
11 00000075
6 1
15
9
0 1304 0
13
8 2
5 0
6 2
18 1
11 00000618
0 20 "{0}" 3 "_"
13
5 -1
18 0
11 00000251
0 2 "Remove all SmartFields?"
13
8 3
6 3
5 0
18 0
11 00000251
6 1
15
9
6 2
21 4 [X]
0 1305 0 &4
5 1
8 5
6 2
6 5
18 2
12 00000364
10 00000605
5 1
6 5
3 0
8 5
10 00000289
6 5
22 4
0 20 [X] 1 ","
13
8 6
6 5
22 4
0 20 [X] 2 ","
13
8 7
6 5
22 4
0 20 [X] 3 ","
13
8 8
0 20 "{8}" 3 " "
13
8 9
0 14 "{0}"
13
8 10
0 133 "{9}" 1 "{10}"
13
6 0
18 0
11 00000592
2 227 1 "{6}" "{7}"
10 00000331
10 00000714
0 20 "{0}" 3 "_"
13
5 -1
18 0
11 00000714
0 3 "No fields to remove." "SmartField Remover"
6 1
15
9
14 AmiButtonCheck
0 284 "user,GetActiveWindow,H"
13
8 3
0 44 "{3}" "{0}"
13
8 4
0 1036 "{4}" 1025 "{1}" 0
6 2
15
9
14 AmiUIGray
0 284 "user,GetActiveWindow,H"
13
8 3
0 44 "{3}" "{0}"
13
8 4
0 284 "User,EnableWindow,AHH" "{4}" "{1}"
6 2
15
9
DIALOG autostyle
-2134376448 35 116 46 232 224 "" "" "_LETTER1.STY Information"
FONT 8 "Helv"
34 18 92 12 8001 1350631552 "edit" "" 0
130 18 52 80 9501 1344339971 "combobox" "" 0
34 34 92 12 8002 1350631552 "edit" "" 0
130 34 52 80 9502 1344339971 "combobox" "" 0
34 48 92 12 8003 1350631552 "edit" "" 0
130 48 52 80 9503 1344339971 "combobox" "" 0
34 64 92 12 8004 1350631552 "edit" "" 0
130 64 52 80 9504 1344339971 "combobox" "" 0
34 78 92 12 8005 1350631552 "edit" "" 0
130 78 52 80 9505 1344339971 "combobox" "" 0
34 94 92 12 8006 1350631552 "edit" "" 0
130 94 52 80 9506 1344339971 "combobox" "" 0
34 108 92 12 8007 1350631552 "edit" "" 0
130 108 52 80 9507 1344339971 "combobox" "" 0
34 124 92 12 8008 1350631552 "edit" "" 0
130 124 52 80 9508 1344339971 "combobox" "" 0
34 138 92 12 8009 1350631552 "edit" "" 0
130 138 52 80 9509 1344339971 "combobox" "" 0
3 20 26 10 1001 1342177280 "static" "Field 1:" 0
3 35 26 9 1002 1342177280 "static" "Field 2:" 0
3 50 26 9 1003 1342177280 "static" "Field 3:" 0
3 65 26 9 1004 1342177280 "static" "Field 4:" 0
3 80 26 9 1005 1342177280 "static" "Field 5:" 0
3 95 26 9 1006 1342177280 "static" "Field 6:" 0
3 110 26 9 1007 1342177280 "static" "Field 7:" 0
3 125 26 9 1008 1342177280 "static" "Field 8:" 0
3 140 26 9 1009 1342177280 "static" "Field 9:" 0
4 172 222 36 1050 1342177280 "static" "Default box text" 0
4 172 222 36 1060 1342177280 "static" "User box text" 0
186 16 40 14 1 1342373889 "button" "OK" 0
186 32 40 14 2 1342373888 "button" "Cancel" 0
3 158 102 10 1000 1342177280 "static" "Current information:" 0
70 158 160 10 1010 1342177280 "static" "" 0
34 6 60 10 1011 1342177280 "static" "Fields:" 0
130 6 44 10 1012 1342177280 "static" "User info:" 0
DIALOG echobox
-2134376448 4 84 70 160 92 "" "" "Make Fields Repeat"
FONT 8 "Helv"
6 16 102 70 9000 1352728577 "listbox" "" 0
116 4 40 14 1 1342373889 "button" "OK" 0
116 20 40 14 2 1342373888 "button" "Done" 0
6 4 74 10 1000 1342177280 "static" "Select field to repeat:" 0
DIALOG savesty
-2134376448 9 102 54 204 92 "" "" "Save As Automated Style Sheet"
FONT 8 "Helv"
52 40 86 12 8002 1350631552 "edit" "" 0
52 58 146 26 8003 1350631552 "edit" "" 0
159 5 40 14 1 1342373889 "button" "OK" 0
159 21 40 14 2 1342373888 "button" "Cancel" 0
4 39 28 10 1000 1342177280 "static" "&Name:" 0
4 58 44 10 1001 1342177280 "static" "Description:" 0
4 3 132 20 1002 1342177280 "static" "Type the name and description for this automated style sheet." 0
4 24 58 10 1003 1342177280 "static" "Style sheet path:" 0
66 24 80 10 1004 1342177280 "static" "path" 0
00042136