home *** CD-ROM | disk | FTP | other *** search
Wrap
INI File | 1993-10-26 | 60.2 KB | 3,781 lines
[ver] 4 [sty] [charset] 82 ANSI (Windows, IBM CP 1252) [PanoseFontTable] 5 5 Helvetica 2818 1029 514 514 1026 Arial 2818 1030 514 514 1026 Tms Rmn 514 774 1284 517 1027 Helv 2818 1029 514 770 1026 Times New Roman 514 774 1029 517 1027 [revisions] 0 [recfile] * 1 1 3 8 0 0 [lang] 1 [desc] Tools for building automated style sheets 751671261 8 751590726 32 13 0 0 0 0 1 [prn] QMS-PS 810 [port] LPT2: [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [GramStyle] [tag] Footer 11 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Footer 0 0 [tag] Header 9 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Header 0 0 [tag] Title 8 [fnt] Helvetica 360 0 49153 [algn] 4 1 0 0 0 [spc] 33 0 1 144 72 1 100 [brk] 16 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Title 0 0 [tag] Subhead 7 [fnt] Times New Roman 240 0 49155 [algn] 1 1 0 0 0 [spc] 33 0 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 2 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Subhead 0 0 [tag] Number List 6 [fnt] Times New Roman 240 0 49152 [algn] 1 1 360 360 360 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 <*:> 0 1 1 0 16 0 0 [nfmt] 272 1 2 . , $ Number List 0 0 [tag] Bullet 1 5 [fnt] Times New Roman 240 0 49152 [algn] 1 1 288 288 288 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 <*5> 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Bullet 1 0 0 [tag] Bullet 4 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 288 288 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 <*0> 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Bullet 0 0 [tag] Body Single 3 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Single 0 0 [tag] Function 1 [fnt] Helvetica 240 0 49153 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 68 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 3 . , $ Body Text 0 0 [tag] Outline3 12 [fnt] Times New Roman 200 0 49152 [algn] 1 1 0 720 0 [spc] 33 0 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 3 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline3 0 0 [tag] Outline1 1 [fnt] Times New Roman 240 0 49153 [algn] 1 1 0 0 0 [spc] 33 0 1 72 0 1 100 [brk] 16 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline1 0 0 [tag] Outline2 1 [fnt] Times New Roman 200 0 49152 [algn] 1 1 216 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 2 0 1 1 0 16 0 0 [nfmt] 272 1 3 . , $ Outline2 0 0 [tag] Body Text 2 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Text 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 [frght] [lyfrm] 0 13184 0 14400 12240 15840 0 1 1 0 0 0 0 0 0 0 0 16777215 0 [frmlay] 15840 12240 1 1440 792 1 14472 1440 0 1 0 0 0 0 1 1440 10800 2 2 4680 3 9360 [txt] <:s><:#P30670848,P943718> > [hrght] [lyfrm] 0 11136 0 0 12240 1440 0 1 1 0 0 0 0 0 0 0 0 16777215 0 [frmlay] 1440 12240 1 1440 72 1 792 1440 0 1 0 0 0 0 1 1440 10800 2 2 4680 3 9360 [txt] <:s><:#P30670848,P943718> > [elay] [lay] 1 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 [frght] [lyfrm] 0 13184 0 14400 12240 15840 0 1 1 0 0 0 0 0 0 0 0 16777215 0 [frmlay] 15840 12240 1 1440 792 1 14472 1440 0 1 0 0 0 0 1 1440 10800 2 2 4680 3 9360 [txt] <:s> > [hrght] [lyfrm] 0 11136 0 0 12240 1440 0 1 1 0 0 0 0 0 0 0 0 16777215 0 [frmlay] 1440 12240 1 1440 72 1 792 1440 0 1 0 0 0 0 1 1440 10800 2 2 4680 3 9360 [txt] <:s> > [elay] [l1] 0 [edoc] @Function@<:s><:#P30670848,P912261>'declares and defines @Outline2@<:s><:#P30670848,P786432><:X3,0;Include "amixlate.sam!smartfld">define AS_ASPREFIX "as_" @Outline2@<:s>define AS_DEFPREFIX "as_def" @Outline2@<:s>define AS_ECHOTXT "echo" @Outline2@<:s>define AS_USERPREFIX "as_user" @Outline2@<:s>define DLGTITLE_DEFINFO "Personal Information" @Outline2@<:s>define DLGTITLE_OPTINFO "Optional Information" @Outline2@<:s>define AS_ADDRESS1TXT "address2" @Outline2@<:s>define AS_ADDRESS2TXT "address1" @Outline2@<:s>define BKMK_STARTTEXT "as_starttext" @Outline2@<:s>define COLLECT_MACRO "collect.smm" @Outline2@<:s>define ERR_NOTINNEWDOC "This macro is for automated style sheets. To use it, choose File/New and leave Run macro selected." @Outline2@<:s>define GVAR_NUMGLOBS "numglobs" @Outline2@<:s>define GVAR_TARGET "target" @Outline2@<:s>define INIFILE "AMIPRO2.INI" @Outline2@<:s>define INIKEY_AUTOSTY "AutoStyleSheets" @Outline2@<:s>define INISECT_DATAGOOD "DataGood" @Outline2@<:s>define INISECT_NOQUEST "NoQuestions" @Outline2@<:s>define PFTXT_HERE " here" @Outline2@<:s>define PFTXT_SSN " SSN " @Outline2@<:s>define PFTXT_TYPE "type " @Outline2@<:s>define MENU_SMARTFLD "S&martFields" @Outline2@<:s>define ITEM_DEFINEDEFAULT "Define &Personal Information..." @Outline2@<:s>define ITEM_DEFINEDEFAULT_HELP "Design the Personal Information dialog box for an automated style sheet." @Outline2@<:s>define ITEM_DEFINEOPTIONAL "Define &Optional Information..." @Outline2@<:s>define ITEM_DEFINEOPTIONAL_HELP "Design the Optional Information dialog box for an automated style sheet." @Outline2@<:s>define ITEM_REPEATFLD "&Repeat SmartFields..." @Outline2@<:s>define ITEM_REPEATFLD_HELP "Select the SmartFields you want to repeat and indicate their locations." @Outline2@<:s>define ITEM_DEFINECURSOR "Define &Cursor Location..." @Outline2@<:s>define ITEM_DEFINECURSOR_HELP "Define where you want to begin typing when you create a document." @Outline2@<:s>define ITEM_ADDFRAME "Add Automated &Frame..." @Outline2@<:s>define ITEM_ADDFRAME_HELP "Inserts an automated frame in the style sheet." @Outline2@<:s>define ITEM_REMOVEFLD "Re&move All SmartFields..." @Outline2@<:s>define ITEM_REMOVEFLD_HELP "Remove all SmartFields in the automated style sheet." @Outline2@<:s>define ITEM_EDITAUTO "Edit &Automated Style Sheet..." @Outline2@<:s>define ITEM_EDITAUTO_HELP "Create or edit an automated style sheet." @Outline2@<:s>define ITEM_SAVEAUTO "Sa&ve Automated Style Sheet..." @Outline2@<:s>define ITEM_SAVEAUTO_HELP "Save this document as an automated style sheet." @Outline2@<:s>define ITEM_EXIT "E&xit" @Outline2@<:s>define ITEM_EXIT_HELP "Remove the SmartFields menu from the menu bar." @Outline2@<:s>define NULL "" @Outline2@<:s>define g_fieldnames "fieldnames" @Outline2@<:s>define g_combofields "combofields" @Outline2@<:s>define FLDSEP "," @Outline2@<:s>define SPACE " " @Outline2@<:s>define UNDERSCORE "_" @Outline2@<:s>define DEFBOX_HELPTEXT_1 "Specify the field names you want to use for the default " @Outline2@<:s>define DEFBOX_HELPTEXT_2 "information each time you create a document using this " @Outline2@<:s>define DEFBOX_HELPTEXT_3 "style sheet. You can select an item in the User info list " @Outline2@<:s>define DBL_LEFT_BRACKET "<[><[>" @Outline2@<:s>define DEFBOX_HELPTEXT_4 "box if you want to use information stored in the {b}AutoStyleSheet] Section of " @Outline2@<:s>define DEFBOX_HELPTEXT_5 "the AMIPRO2.INI." @Outline2@<:s>define DEFBOX_HELPSTRING "{L1}{L2}{L3}{L4}{L5}" @Outline2@<:s>define OPTBOX_HELPTEXT_1 "Specify the field names you want to use for the optional information each time " @Outline2@<:s>define OPTBOX_HELPTEXT_2 "you create a document using this style sheet." @Outline2@<:s>define OPTBOX_HELPSTRING "{L1}{L2}{L3}{L4}" @Outline2@<:s>define USRCTRL_INSFLD "Ready to insert {showntext}." @Outline2@<:s>define FLDTYPE_EB "eb" @Outline2@<:s>define SMARTFLD_TEXT "if Defined {fieldname} {fieldname} else ""{showntext}"" endif" @Outline2@<:s>define MSG_NOFLDSTOREPEAT "No fields to repeat." @Outline2@<:s>define MSG_NOFLDSTOREPEAT_TITLE "SmartField Repeater" @Outline2@<:s>define BOXTYPE_DEF "def" @Outline2@<:s>define BOXTYPE_DEFLONG "Personal" @Outline2@<:s>define BOXTYPE_USER "user" @Outline2@<:s>define BOXTYPE_USERLONG "Optional" @Outline2@<:s>define SP_HYPHEN_SP " - " @Outline2@<:s>define MANYSP_VERTBAR " |" @Outline2@<:s>define VERTBAR "|" @Outline2@<:s>define STATBAR_REPEATINSTR "To insert a repeat of this field, choose Resume. To return to the box to choose another field, choose Cancel." @Outline2@<:s>define USRCTRL_INSERTFLD "Ready to insert {boxtype} - {showntext}." @Outline2@<:s>define SMARTFLD_ECHOTXT "if Defined {echothis} {echothis} else ""{boxtype} - {showntext} (repeat)"" endif" @Outline2@<:s>define TILDE "~" @Outline2@<:s>define USRCTRL_ADDFRAME "Create the frame and choose Resume." @Outline2@<:s>define BKMK_FRAMENUM "as_frame{num}" @Outline2@<:s>define BKMK_FRAMECOVERNUM "as_frame{num}cover" @Outline2@<:s>define SMRTFRAME_TEXT "<[>Enter]<[>Enter]Click on this frame to insert text or graphics in this area." @Outline2@<:s>define STYSHEETNAME "automate.sty" @Outline2@<:s>define STYSHEETEXT ".sty" @Outline2@<:s>define AUTOSTY_MACRO "autosty.smm" @Outline2@<:s>define USRCTRL_INSPOINT "Ready to position cursor position." @Outline2@<:s>define LIST_BADCHAR " ""%'()*+,-/;<<=<;>@<[>\]^}" @Outline2@<:s>define DECIDE_REMOVEFLD "Remove all SmartFields?" @Outline2@<:s>define MSG_NOFLDSTOREMOVE "No fields to remove." @Outline2@<:s>define MSG_NOFLDSTOREMOVE_TITLE "SmartField Remover"<:X~3,0;Include "amixlate.sam!smartfld"> @Outline2@<:s><:#P30670848,P786432>declare ComboLoad(hdlg); @Outline2@<:s><:#P30670848,P786432>declare countfields(strings, char); @Outline2@<:s><:#P30670848,P786432>declare fieldloader(target); @Outline2@<:s><:#P30670848,P786432>declare FieldNumToName(num); @Outline2@<:s><:#P30670848,P786432>declare fillboxfields(target); @Outline2@<:s><:#P30670848,P786432>declare collect.smm!main() alias collecto @Outline2@<:s><:#P30670848,P786432>declare initcapit(string); @Outline2@<:s><:#P30670848,P786432>declare insertfields(target, numfields); @Outline2@<:s><:#P30670848,P786432>declare LabelNoBadChars(showntext); @Outline2@<:s><:#P30670848,P786432>declare movedlgitem(hdlg, ControlID, xshift, yshift); @Outline2@<:s><:#P30670848,P786432>declare sizedlgitem(hdlg, ControlID, xshift, yshift); @Outline2@<:s><:#P30670848,P786432>declare torchfields(target); @Outline2@<:s><:#P30670848,P786432>define GetCurFrameDimensions() GetInfo(102); @Outline2@<:s><:#P30670848,P786432>define GetFieldAtInsPt() GetInfo(177); @Function@<:s><:#P30670848,P912261>function menus() @Outline2@<:s><:#P30670848,P786432>rmac=GetRunningMacroFile$() @Outline2@<:s><:#P30670848,P786432>'run collect.smm if necessary @Outline3@<:s><:#P30670848,P786432>checkagain: @Outline3@<:s><:#P30670848,P786432>datagood=getprofilestring$(INIKEY_AUTOSTY, INISECT_DATAGOOD, INIFILE) @Outline2@<:s><:#P30670848,P786432>if datagood != 1 @Outline2@<:s><:#P30670848,P786432> 'macpath=GetMacPath$() @Outline2@<:s><:#P30670848,P786432> 'message("macpath={macpath}") @Outline2@<:s><:#P30670848,P786432> collector= COLLECT_MACRO @Outline2@<:s><:#P30670848,P786432> 'collector=strcat$(macpath, collector) @Outline2@<:s><:#P30670848,P786432> 'collector="{macpath}collecto.smm" @Outline2@<:s><:#P30670848,P786432> calli collector() @Outline2@<:s><:#P30670848,P786432>endif @Outline2@<:s><:#P30670848,P786432>deletemenu(1, MENU_SMARTFLD) @Outline2@<:s><:#P30670848,P786432>addmenu(1, MENU_SMARTFLD) @Outline2@<:s><:#P30670848,P1572864>addmenuitem(1, MENU_SMARTFLD, ITEM_DEFINEDEFAULT, "{rmac}!main(""as_def"")", ITEM_DEFINEDEFAULT_HELP) @Outline2@<:s><:#P30670848,P1572864>addmenuitem(1, MENU_SMARTFLD, ITEM_DEFINEOPTIONAL, "{rmac}!main(""as_user"")", ITEM_DEFINEOPTIONAL_HELP) @Outline2@<:s><:#P30670848,P786432><:f200,2Times New Roman,255,0,0>'addmenuitem(1, MENU_SMARTFLD, ITEM_REPEATFLD, "{rmac}!echoer", ITEM_REPEATFLD_HELP) @Outline2@<:s><:#P30670848,P1572864><:f,,>addmenuitem(1, MENU_SMARTFLD, ITEM_DEFINECURSOR, "{rmac}!bookmarker", ITEM_DEFINECURSOR_HELP) @Outline2@<:s><:#P30670848,P1572864><:f,,255,0,0>'addmenuitem(1, MENU_SMARTFLD, ITEM_ADDFRAME, "{rmac}!frameinsert", ITEM_ADDFRAME_HELP) @Outline2@<:s><:#P30670848,P1572864><:f,,>addmenuitem(1, MENU_SMARTFLD, ITEM_REMOVEFLD, "{rmac}!torchfields("AS_ASPREFIX")", ITEM_REMOVEFLD_HELP) @Outline2@<:s><:#P30670848,P786432>addmenuitem (1, MENU_SMARTFLD, "-" "" "") @Outline2@<:s><:#P30670848,P786432>addmenuitem(1, MENU_SMARTFLD, ITEM_EDITAUTO, "{rmac}!editsty", ITEM_EDITAUTO_HELP) @Outline2@<:s><:#P30670848,P786432>addmenuitem(1, MENU_SMARTFLD, ITEM_SAVEAUTO, "{rmac}!savesty", ITEM_SAVEAUTO_HELP) @Outline2@<:s><:#P30670848,P786432>addmenuitem (1, MENU_SMARTFLD, "-" "" "") @Outline2@<:s><:#P30670848,P786432>addmenuitem(1, MENU_SMARTFLD, ITEM_EXIT, "{rmac}!removemenuitem", ITEM_EXIT_HELP) @Outline2@<:s><:#P30670848,P786432>end function @Function@<:s><:#P30670848,P912261>function main(target) @Outline2@<:s><:#P30670848,P786432>if getopenfilecount() << 1 @Outline2@<:s><:#P30670848,P786432> exit function @Outline2@<:s><:#P30670848,P786432>endif @Outline2@<:s><:#P30670848,P786432>allocglobalvar(GVAR_TARGET, 1) @Outline2@<:s><:#P30670848,P786432>setglobalvar(GVAR_TARGET, target) @Outline2@<:s><:#P30670848,P786432>dim fieldnames(9) @Outline2@<:s><:#P30670848,P786432>dim combofields(9) @Outline2@<:s><:#P30670848,P786432>rmac=GetRunningMacroFile$() @Outline2@<:s><:#P30670848,P786432>'hourglass(1) @Outline2@<:s><:#P30670848,P786432>'font handler @Outline2@<:s><:#P30670848,P786432>fieldloader(target) @Outline2@<:s><:#P30670848,P786432>SetDlgCallBack(0,"{rmac}!InitDlg") @Outline2@<:s><:#P30670848,P786432>for ComboID = 9501 to 9509 @Outline2@<:s><:#P30670848,P786432> SetDlgCallBack(ComboID, "{rmac}!combocallback") @Outline2@<:s><:#P30670848,P786432>next @Outline2@<:s><:#P30670848,P786432>if target != AS_USERPREFIX @Outline2@<:s><:#P30670848,P786432> box=dialogbox("smartfld.dlg", "autostyle") @Outline2@<:s><:#P30670848,P786432>else @Outline2@<:s><:#P30670848,P786432> box=dialogbox("smartfld.dlg", "autostyle_user") @Outline2@<:s><:#P30670848,P786432>endif @Outline2@<:s><:#P30670848,P786432>if box=0 @Outline2@<:s><:#P30670848,P786432> goto blowout @Outline2@<:s><:#P30670848,P786432>endif @Outline2@<:s><:#P30670848,P786432>'hourglass(0) @Outline2@<:s><:#P30670848,P786432>'drive the box & get field names @Outline2@<:s><:#P30670848,P786432>for i = 1 to 9 @Outline2@<:s><:#P30670848,P786432> fieldcontents=getdialogfield$(8000 + i) @Outline2@<:s><:#P30670848,P786432> combocontents=getdialogfield$(9500+ i) @Outline2@<:s><:#P30670848,P786432> if fieldcontents = NULL @Outline2@<:s><:#P30670848,P786432> break @Outline2@<:s><:#P30670848,P786432> endif @Outline2@<:s><:#P30670848,P786432> fieldnames(i)=fieldcontents @Outline2@<:s><:#P30670848,P786432> combofields(i)=combocontents @Outline2@<:s><:#P30670848,P786432>next @Outline2@<:s><:#P30670848,P786432>numfields=i - 1 @Outline2@<:s><:#P30670848,P786432>allocglobalvar(g_fieldnames, 9) @Outline2@<:s><:#P30670848,P786432>allocglobalvar(g_combofields, 9) @Outline2@<:s><:#P30670848,P786432>for i= 1 to numfields @Outline2@<:s><:#P30670848,P786432> setglobalarray(g_fieldnames, i, fieldnames(i)) @Outline2@<:s><:#P30670848,P786432> setglobalarray(g_combofields, i, combofields(i)) @Outline2@<:s><:#P30670848,P786432>next @Outline2@<:s><:#P30670848,P786432>if numfields != 0 @Outline2@<:s><:#P30670848,P786432> insertfields(target, numfields) @Outline2@<:s><:#P30670848,P786432>endif @Outline2@<:s><:#P30670848,P786432>blowout: @Outline2@<:s><:#P30670848,P786432>freeglobalvar(g_fieldnames) @Outline2@<:s><:#P30670848,P786432>freeglobalvar(GVAR_TARGET) @Outline2@<:s><:#P30670848,P786432>end function @Function@<:s><:#P30670848,P912261>function fieldloader(target) @Outline2@<:s><:#P30670848,P786432>rmac=getrunningmacrofile$() @Outline2@<:s><:#P30670848,P786432>cnt=GetPowerFieldCount(0) @Outline2@<:s><:#P30670848,P786432>if (0 =cnt) @Outline2@<:s><:#P30670848,P786432> exit function @Outline2@<:s><:#P30670848,P786432>endif @Outline2@<:s><:#P30670848,P786432>dim fields(cnt) @Outline2@<:s><:#P30670848,P786432>dim globvars(1) @Outline2@<:s><:#P30670848,P786432>numglobs=0 @Outline2@<:s><:#P30670848,P786432>GetPowerFields(0, &fields) @Outline2@<:s><:#P30670848,P786432>'load &globvars @Outline3@<:s><:#P30670848,P786432>for i = 1 to cnt @Outline3@<:s><:#P30670848,P786432> pftype = StrField$(fields(i), 2, FLDSEP) 'get the power field type @Outline3@<:s><:#P30670848,P786432> pffield = StrField$(fields(i), 3, FLDSEP) 'get the power field @Outline3@<:s><:#P30670848,P786432> varname=StrField$(pffield, 3, SPACE) 'get the name of the variable in the PF @Outline3@<:s><:#P30670848,P1572864> showtype=strfield$(varname, 6, UNDERSCORE) 'item from AMIPRO2.INI or AS_ECHOTXT @Outline3@<:s><:#P30670848,P786432> targlen=len(target) @Outline3@<:s><:#P30670848,P786432> if left$(varname, targlen)=target and showtype != AS_ECHOTXT @Outline3@<:s><:#P30670848,P786432> numglobs=numglobs+1 @Outline3@<:s><:#P30670848,P786432> result=arrayinsert(&globvars, numglobs, fields(i)) @Outline3@<:s><:#P30670848,P786432> endif @Outline3@<:s><:#P30670848,P786432>next @Outline3@<:s><:#P30670848,P786432>if numglobs= 0 exit function @Outline3@<:s><:#P30670848,P786432>endif @Outline2@<:s><:#P30670848,P786432>'fill dialog box with labels & AMIPRO2.INI entry fields @Outline3@<:s><:#P30670848,P786432>arraysort(&globvars, 3, UNDERSCORE) 'sort the array on varnum @Outline3@<:s><:#P30670848,P786432>for i = 1 to numglobs @Outline3@<:s><:#P30670848,P786432> pffield = StrField$(globvars(i), 3, FLDSEP) 'get the power field @Outline3@<:s><:#P30670848,P786432> varname=StrField$(pffield, 3, SPACE) 'get the name of the variable in the PF @Outline3@<:s><:#P30670848,P786432> quotechar=chr$(34) @Outline3@<:s><:#P30670848,P786432> varlabel=StrField$(globvars(i), 2, quotechar) 'get the label for the variable @Outline3@<:s><:#P30670848,P786432> showtype=strfield$(varname, 6, UNDERSCORE) @Outline3@<:s><:#P30670848,P786432> filledit(8000 + i, varlabel) @Outline3@<:s><:#P30670848,P786432> filledit(9500 + i, showtype) @Outline3@<:s><:#P30670848,P786432>next @Outline2@<:s><:#P30670848,P786432>END FUNCTION @Function@<:s><:#P30670848,P912261>function initdlg(hdlg, id, target) @Outline2@<:s><:#P30670848,P786432>target=getglobalvar$(GVAR_TARGET) @Outline2@<:s><:#P30670848,P786432>'name the box and show the right buttons and static text @Outline3@<:s><:#P30670848,P786432>CurStyleSheet = GetDocInfo$(3) @Outline3@<:s><:#P30670848,P786432>CurStyleSheet = ucase$(CurStyleSheet) @Outline3@<:s><:#P30670848,P786432>lb=chr$(091) @Outline3@<:s><:#P30670848,P786432>rb=chr$(093) @Outline3@<:s><:#P30670848,P786432>CurStyleSheet = strcat$(lb, CurStyleSheet, rb) @Outline3@<:s><:#P30670848,P786432>if target =AS_DEFPREFIX @Outline3@<:s><:#P30670848,P786432> DlgSetCaption(hdlg, DLGTITLE_DEFINFO) @Outline3@<:s><:#P30670848,P786432> ComboLoad(hdlg) @Outline3@<:s><:#P30670848,P786432>' EnableWindow(GetDlgItem(Hdlg,3), 0) ' gray the save as button @Outline3@<:s><:#P30670848,P786432>' ShowWindow(GetDlgItem(Hdlg,1060), 0) ' hide the 1060 field static text @Outline3@<:s><:#P30670848,P786432> DlgHideControl(Hdlg, 3, 0) ' show the save as button @Outline3@<:s><:#P30670848,P786432> DlgHideControl(hdlg, 1060, 1) ' hide the 1060 field static text @Outline3@<:s><:#P30670848,P786432> DlgHideControl(hdlg, 1050, 0) @Outline3@<:s><:#P30670848,P786432> L1=DEFBOX_HELPTEXT_1 @Outline3@<:s><:#P30670848,P786432> L2=DEFBOX_HELPTEXT_2 @Outline3@<:s><:#P30670848,P786432> L3=DEFBOX_HELPTEXT_3 @Outline3@<:s><:#P30670848,P786432> quotchar=chr$(91) @Outline3@<:s><:#P30670848,P786432> b = left$(DBL_LEFT_BRACKET, 1) @Outline3@<:s><:#P30670848,P786432> L4=DEFBOX_HELPTEXT_4 @Outline3@<:s><:#P30670848,P786432> L5=DEFBOX_HELPTEXT_5 @Outline3@<:s><:#P30670848,P786432> helptext=DEFBOX_HELPSTRING @Outline3@<:s><:#P30670848,P786432> setdlgitemtext(hdlg, 1050, helptext) @Outline3@<:s><:#P30670848,P786432> call combocallback(hdlg, 9501) @Outline3@<:s><:#P30670848,P786432>' sizedlgitem(hdlg, 0, 0, -4) @Outline3@<:s><:#P30670848,P786432>else @Outline3@<:s><:#P30670848,P786432> DlgSetCaption(hdlg, DLGTITLE_OPTINFO) @Outline3@<:s><:#P30670848,P786432> DlgHideControl(Hdlg, 3, 1) ' hide the save as button @Outline3@<:s><:#P30670848,P786432> DlgHideControl(hdlg, 1050, 1) ' hide the 1050 field static text @Outline3@<:s><:#P30670848,P786432> DlgHideControl(hdlg, 1060, 0) @Outline3@<:s><:#P30670848,P786432>' TitleBarMsg(DLGTITLE_OPTINFO) @Outline3@<:s><:#P30670848,P786432>' ShowWindow(GetDlgItem(Hdlg,3), 0) ' hide the save as button @Outline3@<:s><:#P30670848,P786432>' ShowWindow(GetDlgItem(Hdlg,1060), 0) ' hide the 1060 field static text @Outline3@<:s><:#P30670848,P786432>' ShowWindow(GetDlgItem(Hdlg,1012), 0) @Outline3@<:s><:#P30670848,P786432>' ShowWindow(GetDlgItem(Hdlg,1000), 0) @Outline3@<:s><:#P30670848,P786432>' ShowWindow(GetDlgItem(Hdlg,1010), 0) @Outline3@<:s><:#P30670848,P786432> for ComboID = 9501 to 9509 @Outline3@<:s><:#P30670848,P786432> DlgHideControl(hdlg,ComboID, 1) @Outline3@<:s><:#P30670848,P786432> next @Outline3@<:s><:#P30670848,P786432> L1=OPTBOX_HELPTEXT_1 @Outline3@<:s><:#P30670848,P786432> L2=OPTBOX_HELPTEXT_2 @Outline3@<:s><:#P30670848,P786432> helptext=OPTBOX_HELPSTRING @Outline3@<:s><:#P30670848,P786432> setdlgitemtext(hdlg,1060, helptext) @Outline3@<:s><:#P30670848,P786432>endif @Outline2@<:s><:#P30670848,P786432>end function @Function@<:s><:#P30670848,P912261>function insertfields(target, numfields) @Outline2@<:s><:#P30670848,P786432>for position = 1 to numfields @Outline2@<:s><:#P30670848,P786432> oncancel nexter @Outline2@<:s><:#P30670848,P786432> showntext=getglobalarray$(g_fieldnames, position) @Outline2@<:s><:#P30670848,P786432> if showntext= NULL @Outline2@<:s><:#P30670848,P786432> goto nexter @Outline2@<:s><:#P30670848,P786432> endif @Outline2@<:s><:#P30670848,P786432> if (IsOKToRun(type)) != 1 exit function @Outline2@<:s><:#P30670848,P786432> endif @Outline2@<:s><:#P30670848,P786432> usercontrol(USRCTRL_INSFLD) @Outline2@<:s><:#P30670848,P786432> 'hourglass(1) @Outline2@<:s><:#P30670848,P786432> fieldtype = FLDTYPE_EB @Outline2@<:s><:#P30670848,P786432> label=LabelNoBadChars(showntext) @Outline2@<:s><:#P30670848,P786432> prefill=getglobalarray$(g_combofields, position) @Outline2@<:s><:#P30670848,P786432> if prefill != NULL @Outline2@<:s><:#P30670848,P786432> prefill=strcat$(prefill, UNDERSCORE) @Outline2@<:s><:#P30670848,P786432> endif @Outline2@<:s><:#P30670848,P1572864> fieldname=strcat$(target, UNDERSCORE, position, UNDERSCORE, fieldtype, UNDERSCORE, label, UNDERSCORE, prefill) @Outline2@<:s><:#P30670848,P786432> exantfield=strcat$(target, UNDERSCORE, position, UNDERSCORE, fieldtype, UNDERSCORE) @Outline2@<:s><:#P30670848,P786432> torchfields(exantfield) @Outline2@<:s><:#P30670848,P786432> if curshade$() != NULL @Outline2@<:s><:#P30670848,P786432> type ("<[>del]") @Outline2@<:s><:#P30670848,P786432> endif @Outline2@<:s><:#P30670848,P786432> FieldAdd(SMARTFLD_TEXT) @Outline2@<:s><:#P30670848,P786432> 'hourglass(0) @Outline2@<:s><:#P30670848,P786432>nexter: @Outline2@<:s><:#P30670848,P786432>next @Outline2@<:s><:#P30670848,P786432>end function @Function@<:s><:#P30670848,P912261>function echoer() @Outline2@<:s><:#P30670848,P786432>singlestep(1) @Outline2@<:s><:#P30670848,P786432>rmac=getrunningmacrofile$() @Outline2@<:s><:#P30670848,P786432>ignorekeyboard(2) @Outline2@<:s><:#P30670848,P786432>target=AS_ASPREFIX @Outline2@<:s><:#P30670848,P786432>cnt=GetPowerFieldCount(0) @Outline2@<:s><:#P30670848,P786432>if (0 =cnt) @Outline2@<:s><:#P30670848,P786432> Message(MSG_NOFLDSTOREPEAT, MSG_NOFLDSTOREPEAT_TITLE) @Outline2@<:s><:#P30670848,P786432> exit function @Outline2@<:s><:#P30670848,P786432>endif @Outline2@<:s><:#P30670848,P786432>oncancel boxagain @Outline2@<:s><:#P30670848,P786432>'hourglass(1) @Outline2@<:s><:#P30670848,P786432>dim fields(cnt) @Outline2@<:s><:#P30670848,P786432>dim globvars(1) @Outline2@<:s><:#P30670848,P786432>numglobs=0 @Outline2@<:s><:#P30670848,P786432>GetPowerFields(0, &fields) @Outline2@<:s><:#P30670848,P786432>'load &globvars @Outline3@<:s><:#P30670848,P786432>for i = 1 to cnt @Outline3@<:s><:#P30670848,P786432> pftype = StrField$(fields(i), 2, FLDSEP) 'get the power field type @Outline3@<:s><:#P30670848,P786432> pffield = StrField$(fields(i), 3, FLDSEP) 'get the power field @Outline3@<:s><:#P30670848,P786432> varname=StrField$(pffield, 3, SPACE) 'get the name of the variable in the PF @Outline3@<:s><:#P30670848,P1572864> showtype=strfield$(varname, 6, UNDERSCORE) 'item from AMIPRO2.INI or AS_ECHOTXT @Outline3@<:s><:#P30670848,P786432> targlen=len(target) @Outline3@<:s><:#P30670848,P786432> if left$(varname, targlen)=target and showtype != AS_ECHOTXT @Outline3@<:s><:#P30670848,P786432> numglobs=numglobs+1 @Outline3@<:s><:#P30670848,P786432> result=arrayinsert(&globvars, numglobs, fields(i)) @Outline3@<:s><:#P30670848,P786432> endif @Outline3@<:s><:#P30670848,P786432>next @Outline2@<:s><:#P30670848,P786432>boxagain: @Outline2@<:s><:#P30670848,P786432>statusbarmsg(NULL) @Outline2@<:s><:#P30670848,P786432>'fill dialog box with labels @Outline3@<:s><:#P30670848,P786432>arraysort(&globvars, 3, UNDERSCORE) 'sort the array on varnum @Outline3@<:s><:#P30670848,P786432>dim displayarray (numglobs) @Outline3@<:s><:#P30670848,P786432>for i = 1 to numglobs @Outline3@<:s><:#P30670848,P786432> pffield = StrField$(globvars(i), 3, FLDSEP) 'get the power field @Outline3@<:s><:#P30670848,P786432> varname=StrField$(pffield, 3, SPACE) 'get the name of the variable in the PF @Outline3@<:s><:#P30670848,P786432> quotechar=chr$(34) @Outline3@<:s><:#P30670848,P786432> varlabel=StrField$(globvars(i), 2, quotechar) 'get the label for the variable @Outline3@<:s><:#P30670848,P786432> boxtype=strfield$(varname, 2, UNDERSCORE) @Outline3@<:s><:#P30670848,P786432> fld1=strfield$(varname, 1, UNDERSCORE) @Outline3@<:s><:#P30670848,P786432> fld2=strfield$(varname, 2, UNDERSCORE) @Outline3@<:s><:#P30670848,P786432> fld3=strfield$(varname, 3, UNDERSCORE) @Outline3@<:s><:#P30670848,P786432> fld4=strfield$(varname, 4, UNDERSCORE) @Outline3@<:s><:#P30670848,P786432> fld5=strfield$(varname, 5, UNDERSCORE) @Outline3@<:s><:#P30670848,P1572864> echovar=strcat$(fld1, UNDERSCORE, fld2, UNDERSCORE, fld3, UNDERSCORE, fld4, UNDERSCORE, fld5, UNDERSCORE, AS_ECHOTXT, UNDERSCORE) @Outline3@<:s><:#P30670848,P786432> if boxtype=BOXTYPE_DEF @Outline3@<:s><:#P30670848,P786432> boxtype=BOXTYPE_DEFLONG @Outline3@<:s><:#P30670848,P786432> elseif boxtype=BOXTYPE_USER @Outline3@<:s><:#P30670848,P786432> boxtype=BOXTYPE_USERLONG @Outline3@<:s><:#P30670848,P786432> endif @Outline3@<:s><:#P30670848,P1572864> item=strcat$(boxtype, SP_HYPHEN_SP, varlabel, MANYSP_VERTBAR, echovar, VERTBAR, varlabel, VERTBAR, boxtype, strfield$(varname, 3, UNDERSCORE)) @Outline3@<:s><:#P30670848,P786432> displayarray(i)=item @Outline3@<:s><:#P30670848,P786432>next @Outline3@<:s><:#P30670848,P786432>ArraySort(&displayarray, 4, VERTBAR) @Outline3@<:s><:#P30670848,P786432>filledit (9000, &displayarray) @Outline2@<:s><:#P30670848,P786432>box= dialogbox("smartfld.dlg", "echobox") @Outline2@<:s><:#P30670848,P786432>if box = 0 @Outline2@<:s><:#P30670848,P786432> 'hourglass(0) @Outline2@<:s><:#P30670848,P786432> exit function @Outline2@<:s><:#P30670848,P786432>endif @Outline2@<:s><:#P30670848,P786432>prompttext=strfield$(GetDialogField$(9000), 1, VERTBAR) @Outline2@<:s><:#P30670848,P786432>echothis=strfield$(GetDialogField$(9000), 2, VERTBAR) @Outline2@<:s><:#P30670848,P786432>showntext=strfield$(GetDialogField$(9000), 3, VERTBAR) @Outline2@<:s><:#P30670848,P786432>boxtype=strfield$(echothis, 2, UNDERSCORE) @Outline2@<:s><:#P30670848,P786432> if boxtype=BOXTYPE_DEF @Outline2@<:s><:#P30670848,P786432> boxtype=BOXTYPE_DEFLONG @Outline2@<:s><:#P30670848,P786432> elseif boxtype=BOXTYPE_USER @Outline2@<:s><:#P30670848,P786432> boxtype=BOXTYPE_USERLONG @Outline2@<:s><:#P30670848,P786432> endif @Outline2@<:s><:#P30670848,P786432>statusbarmsg(STATBAR_REPEATINSTR) @Outline2@<:s><:#P30670848,P786432>usercontrol(USRCTRL_INSERTFLD) @Outline2@<:s><:#P30670848,P786432>if curshade$() != NULL @Outline2@<:s><:#P30670848,P786432> type ("<[>del]") @Outline2@<:s><:#P30670848,P786432>endif @Outline2@<:s><:#P30670848,P786432>FieldAdd(SMARTFLD_ECHOTXT) @Outline2@<:s><:#P30670848,P786432>goto boxagain @Outline2@<:s><:#P30670848,P786432>end function @Function@<:s><:#P30670848,P912261>function comboload(hdlg) @Outline2@<:s><:#P30670848,P786432>rmac=GetRunningMacroFile$() @Outline2@<:s><:#P30670848,P786432>strings=GetProfileString$(INIKEY_AUTOSTY, 0, INIFILE) @Outline2@<:s><:#P30670848,P786432>numfields=countfields(strings, TILDE) @Outline2@<:s><:#P30670848,P786432>dim temparray(numfields) @Outline2@<:s><:#P30670848,P786432>for i = 1 to numfields @Outline2@<:s><:#P30670848,P786432> thisone=strfield$(strings, i, TILDE) @Outline2@<:s><:#P30670848,P786432> TempArray(i)= thisone @Outline2@<:s><:#P30670848,P786432>next @Outline2@<:s><:#P30670848,P786432>ArrayInsert(&TempArray, 1, NULL) @Outline2@<:s><:#P30670848,P786432>questidx=ArraySearch(&TempArray, INISECT_NOQUEST) @Outline2@<:s><:#P30670848,P786432>if questidx != 0 @Outline2@<:s><:#P30670848,P786432> ArrayDelete(&TempArray, questidx) @Outline2@<:s><:#P30670848,P786432>endif @Outline2@<:s><:#P30670848,P786432> datagoodidx=ArraySearch(&TempArray, INISECT_DATAGOOD) @Outline2@<:s><:#P30670848,P786432>if datagoodidx != 0 @Outline2@<:s><:#P30670848,P786432> ArrayDelete(&TempArray, datagoodidx) @Outline2@<:s><:#P30670848,P786432>endif @Outline2@<:s><:#P30670848,P786432>'message("thisone={thisone}") @Outline2@<:s><:#P30670848,P786432>for ComboID = 9501 to 9509 @Outline2@<:s><:#P30670848,P786432> 'FillEdit (ComboID, &TempArray) @Outline2@<:s><:#P30670848,P786432> for i = 1 to numfields @Outline2@<:s><:#P30670848,P786432> setdlgitemtext(hdlg, ComboID, TempArray(i)) @Outline2@<:s><:#P30670848,P786432> next @Outline2@<:s><:#P30670848,P786432> DlgSetListBoxIndex(hdlg, ComboID, 0) @Outline2@<:s><:#P30670848,P786432> SetDlgCallBack(ComboID, "{rmac}!combocallback") @Outline2@<:s><:#P30670848,P786432>next @Outline2@<:s><:#P30670848,P786432>end function @Function@<:s><:#P30670848,P912261>function combocallback(hdlg, Comboid) @Outline2@<:s><:#P30670848,P786432>'message("combo") @Outline2@<:s><:#P30670848,P786432>'ignorekeyboard(2) @Outline2@<:s><:#P30670848,P786432>thisline=GetDlgItemText(hdlg, ComboID) @Outline2@<:s><:#P30670848,P786432>inistring=GetProfileString$(INIKEY_AUTOSTY, thisline, INIFILE) @Outline2@<:s><:#P30670848,P786432>if thisline= NULL @Outline2@<:s><:#P30670848,P786432> inistring = NULL @Outline2@<:s><:#P30670848,P786432>endif @Outline2@<:s><:#P30670848,P786432>SetDlgItemText(hdlg, 1010, inistring) @Outline2@<:s><:#P30670848,P786432>editfieldid=ComboID - 1500 @Outline2@<:s><:#P30670848,P786432>editfieldtext=GetDlgItemText(hdlg, editfieldid) @Outline2@<:s><:#P30670848,P786432>if editfieldtext = NULL @Outline2@<:s><:#P30670848,P786432> SetDlgItemText(hdlg, editfieldid, thisline) @Outline2@<:s><:#P30670848,P786432>endif @Outline2@<:s><:#P30670848,P786432>end function @Function@<:s><:#P30670848,P912261>function countfields(string, char) @Outline2@<:s><:#P30670848,P786432>j = 1 @Outline2@<:s><:#P30670848,P786432>i = 0 @Outline2@<:s><:#P30670848,P786432>while(1) @Outline2@<:s><:#P30670848,P786432> k = strchr(j, string, Char) @Outline2@<:s><:#P30670848,P786432> if k = -1 @Outline2@<:s><:#P30670848,P786432> break @Outline2@<:s><:#P30670848,P786432> endif @Outline2@<:s><:#P30670848,P786432> i = i + 1 @Outline2@<:s><:#P30670848,P786432> j = k + 1 @Outline2@<:s><:#P30670848,P786432>wend @Outline2@<:s><:#P30670848,P786432>return i @Outline2@<:s><:#P30670848,P786432>end function @Function@<:s><:#P30670848,P912261>function frameinsert() @Outline2@<:s><:#P30670848,P786432>recheck: @Outline2@<:s><:#P30670848,P786432>result=IsOKToRun(FrameLayout) @Outline2@<:s><:#P30670848,P786432>if result != 1 @Outline2@<:s><:#P30670848,P786432> UserControl(USRCTRL_ADDFRAME) @Outline2@<:s><:#P30670848,P786432> goto recheck @Outline2@<:s><:#P30670848,P786432>endif @Outline2@<:s><:#P30670848,P786432>DefStr Length, Wide, Units, Paper, WinDir, INI, in, Fwide, FHigh, Top, Left, LMargin @Outline2@<:s><:#P30670848,P786432>DefStr TMargin, RMargin, BMargin, Funits, FType, FRound, FMacName @Outline2@<:s><:#P30670848,P786432>GetCurFrameBorders(&FWide, &FHigh, &Top, &Left, &LMargin, &TMargin, &RMargin, &BMargin, &Funits) @Outline2@<:s><:#P30670848,P786432>num=right$(Now(), 4) @Outline2@<:s><:#P30670848,P786432>MarkBookMark(BKMK_FRAMENUM 4003 ) @Outline2@<:s><:#P30670848,P786432>AddFrame(top, left, FWide, FHigh ) @Outline2@<:s><:#P30670848,P786432>FrameModInit( ) @Outline2@<:s><:#P30670848,P786432>FrameModLines(0 1 1 0 16777215 0 0 0 0 0 ) @Outline2@<:s><:#P30670848,P786432>FrameModType(134218240 18 "framcust.smm({num})" ) @Outline2@<:s><:#P30670848,P786432>'FrameModBorders(fWide, FHigh, top, left, LMargin, TMargin, RMargin, BMargin,1 ) @Outline2@<:s><:#P30670848,P786432>FrameModFinish( ) @Outline2@<:s><:#P30670848,P786432>BringFrameToFront() @Outline2@<:s><:#P30670848,P786432>MarkBookMark(BKMK_FRAMECOVERNUM 4003 ) @Outline2@<:s><:#P30670848,P786432>Type(SMRTFRAME_TEXT ) @Outline2@<:s><:#P30670848,P786432>Center() @Outline2@<:s><:#P30670848,P786432>Type("<[>esc]<[>esc]") @Outline2@<:s><:#P30670848,P786432>end function @Function@<:s><:#P30670848,P912261>function FieldNumToName(num) @Outline2@<:s><:#P30670848,P786432>cnt = GetPowerFieldCount(0) @Outline2@<:s><:#P30670848,P786432>dim fields(cnt) @Outline2@<:s><:#P30670848,P786432>GetPowerFields(0, &fields) @Outline2@<:s><:#P30670848,P786432>position=ArraySearch(&fields, num, 1, FLDSEP) @Outline2@<:s><:#P30670848,P786432> pffield = StrField$(fields(position), 3, FLDSEP) 'get the power field @Outline2@<:s><:#P30670848,P786432> varname=StrField$(pffield, 3, SPACE) 'get the name of the variable in the PF @Outline2@<:s><:#P30670848,P786432>FieldNumToName=varname @Outline2@<:s><:#P30670848,P786432>end function @Function@<:s><:#P30670848,P912261>function savesty() @Outline2@<:s><:#P30670848,P786432>if (IsOKToRun(SaveAsNewStyle)) != 1 exit function @Outline2@<:s><:#P30670848,P786432>endif @Outline2@<:s><:#P30670848,P786432>rmac=GetRunningMacroFile$() @Outline2@<:s><:#P30670848,P786432>setdlgcallback(0, "{rmac}!SaveAsStyleInit") @Outline2@<:s><:#P30670848,P786432>result = SubClassDialog(305, 1022) 'result = SaveAsNewStyle @Outline2@<:s><:#P30670848,P786432>end function @Function@<:s><:#P30670848,P912261>function SaveAsStyleInit(hdlg, id, value) @Outline2@<:s><:#P30670848,P786432>CB_withcontents=25550 @Outline2@<:s><:#P30670848,P786432>CB_runmacro=25551 @Outline2@<:s><:#P30670848,P786432>EB_runmacro=25975 @Outline2@<:s><:#P30670848,P786432>text_runmacro=667 @Outline2@<:s><:#P30670848,P786432>setdlgitemtext(hdlg, cb_withcontents, 1) @Outline2@<:s><:#P30670848,P786432>dlgenablecontrol(hdlg, cb_withcontents, 0) @Outline2@<:s><:#P30670848,P786432>setdlgitemtext(hdlg, cb_runmacro, 1) @Outline2@<:s><:#P30670848,P786432>dlgenablecontrol(hdlg, cb_runmacro, 0) @Outline2@<:s><:#P30670848,P786432>setdlgitemtext(hdlg, EB_runmacro, AUTOSTY_MACRO) @Outline2@<:s><:#P30670848,P786432>DlgSetListBoxIndex(hdlg, EB_runmacro, AUTOSTY_MACRO) @Outline2@<:s><:#P30670848,P786432>dlgenablecontrol(hdlg, EB_runmacro, 0) @Outline2@<:s><:#P30670848,P786432>end function @Function@<:s><:#P30670848,P912261>function editsty() @Outline2@<:s><:#P30670848,P786432>rmac=GetRunningMacroFile$() @Outline2@<:s><:#P30670848,P786432>setdlgcallback(0, "{rmac}!EditStyInit") @Outline2@<:s><:#P30670848,P786432>result = SubClassDialog(101, 1055) 'result = New @Outline2@<:s><:#P30670848,P786432>end function @Function@<:s><:#P30670848,P912261>function EditStyInit(hdlg, id, value) @Outline2@<:s><:#P30670848,P786432>CB_withcontents=25551 @Outline2@<:s><:#P30670848,P786432>CB_runmacro=25553 @Outline2@<:s><:#P30670848,P786432>setdlgitemtext(hdlg, cb_withcontents, 1*1) @Outline2@<:s><:#P30670848,P786432>dlgenablecontrol(hdlg, cb_withcontents, 0) @Outline2@<:s><:#P30670848,P786432>setdlgitemtext(hdlg, cb_runmacro, 0*1) @Outline2@<:s><:#P30670848,P786432>dlgenablecontrol(hdlg, cb_runmacro, 0) @Outline2@<:s><:#P30670848,P786432>end function @Function@<:s><:#P30670848,P912261>function bookmarker() @Outline2@<:s><:#P30670848,P786432>if (IsOKToRun(MarkBookmark)) != 1 exit function @Outline2@<:s><:#P30670848,P786432>endif @Outline2@<:s><:#P30670848,P786432>UserControl(USRCTRL_INSPOINT) @Outline2@<:s><:#P30670848,P786432>MarkBookMark(BKMK_STARTTEXT 4004) 'delete the bookmark already in @Outline2@<:s><:#P30670848,P786432>MarkBookMark(BKMK_STARTTEXT 4003) 'insert new one @Outline2@<:s><:#P30670848,P786432>end function @Function@<:s><:#P30670848,P912261>function LabelNoBadChars(showntext) @Outline2@<:s><:#P30670848,P786432>badchars= LIST_BADCHAR; @Outline2@<:s><:#P30670848,P786432>for c=1 to len(badchars) @Outline2@<:s><:#P30670848,P786432> char=mid$(badchars, c, 1) @Outline2@<:s><:#P30670848,P786432> while (strchr(1, showntext, char) != -1) @Outline2@<:s><:#P30670848,P786432> dim part(10) @Outline2@<:s><:#P30670848,P786432> for x = 1 to 10 @Outline2@<:s><:#P30670848,P786432> part(x)=strfield$(showntext, x, char) @Outline2@<:s><:#P30670848,P786432> if part(x) = -1 or part(x) = NULL @Outline2@<:s><:#P30670848,P786432> break @Outline2@<:s><:#P30670848,P786432> endif @Outline2@<:s><:#P30670848,P786432> newtext=strcat$(newtext, part(x)) @Outline2@<:s><:#P30670848,P786432> next @Outline2@<:s><:#P30670848,P786432> showntext=newtext @Outline2@<:s><:#P30670848,P786432> newtext = NULL @Outline2@<:s><:#P30670848,P786432> wend @Outline2@<:s><:#P30670848,P786432>next @Outline2@<:s><:#P30670848,P786432>label=showntext @Outline2@<:s><:#P30670848,P786432>if label= NULL @Outline2@<:s><:#P30670848,P786432> label=strcat$("temp", right$(Now(), 4)) 'label can't be null @Outline2@<:s><:#P30670848,P786432>endif @Outline2@<:s><:#P30670848,P786432>return label @Outline2@<:s><:#P30670848,P786432>end function @Function@<:s><:#P30670848,P912261>function removemenuitem() @Outline2@<:s><:#P30670848,P786432>deletemenu(1, MENU_SMARTFLD) @Outline2@<:s><:#P30670848,P786432>end function @Function@<:s><:#P30670848,P912261>FUNCTION torchfields(target) @Outline2@<:s><:#P30670848,P786432>'if (IsOKToRun(FieldRemove)) != 1 @Outline2@<:s><:#P30670848,P786432>' exit function @Outline2@<:s><:#P30670848,P786432>'endif @Outline2@<:s><:#P30670848,P786432>'singlestep(0) @Outline2@<:s><:#P30670848,P786432>cnt = GetPowerFieldCount(0) @Outline2@<:s><:#P30670848,P786432>if (0 != cnt) @Outline2@<:s><:#P30670848,P786432> if strfield$(target, 3, UNDERSCORE) = -1 'no 3d field on target; this is a global burn; ask to confirm it @Outline3@<:s><:#P30670848,P786432> doit=Decide(DECIDE_REMOVEFLD) @Outline4@<:s><:#P30670848,P943718>if doit = 0 @Outline4@<:s><:#P30670848,P943718> exit function @Outline4@<:s><:#P30670848,P943718>endif @Outline2@<:s><:#P30670848,P786432> endif @Outline2@<:s><:#P30670848,P786432> dim fields(cnt) @Outline2@<:s><:#P30670848,P786432> GetPowerFields(0, &fields) @Outline2@<:s><:#P30670848,P786432> for i = 1 to cnt @Outline2@<:s><:#P30670848,P786432> pfid = StrField$(fields(i), 1, FLDSEP) @Outline2@<:s><:#P30670848,P786432> pftype = StrField$(fields(i), 2, FLDSEP) @Outline2@<:s><:#P30670848,P786432> pffield = StrField$(fields(i), 3, FLDSEP) 'get the power field @Outline2@<:s><:#P30670848,P786432> varname=StrField$(pffield, 3, SPACE) 'get the name of the variable in the PF @Outline2@<:s><:#P30670848,P786432> targlen=len(target) @Outline2@<:s><:#P30670848,P786432> if left$(varname, targlen)=target @Outline2@<:s><:#P30670848,P786432> FieldRemove(pfid, pftype); @Outline2@<:s><:#P30670848,P786432> endif @Outline2@<:s><:#P30670848,P786432> next @Outline2@<:s><:#P30670848,P786432>else @Outline2@<:s><:#P30670848,P786432> if strfield$(target, 3, UNDERSCORE)= -1 @Outline2@<:s><:#P30670848,P786432> message(MSG_NOFLDSTOREMOVE, MSG_NOFLDSTOREMOVE_TITLE) @Outline2@<:s><:#P30670848,P786432> endif @Outline2@<:s><:#P30670848,P786432>endif @Outline2@<:s><:#P30670848,P786432>END FUNCTION @Outline2@<:s><:#P30670848,P786432> > [Embedded] 00044922 > [macsum4] 19 212 menus 0 0 4 98 main 1368 1 10 125 fieldloader 2859 1 15 174 initdlg 4186 3 13 210 insertfields 5787 2 8 257 echoer 6738 0 29 285 comboload 9670 1 10 362 combocallback 10710 2 5 390 countfields 11167 2 4 405 frameinsert 11502 0 22 418 FieldNumToName 12538 1 6 442 savesty 12866 0 3 451 SaveAsStyleInit 13078 3 5 458 editsty 13535 0 3 471 EditStyInit 13687 3 3 476 bookmarker 13989 0 1 484 LabelNoBadChars 14237 1 8 491 removemenuitem 15124 0 1 514 torchfields 15212 1 10 517 [macse] 14 menus 29 0 menus 17 1 29 1 rmac 0 802 13 8 1 17 4 29 2 datagood 0 286 "AutoStyleSheets" "DataGood" "AMIPRO2.INI" 13 8 2 17 5 6 2 5 1 18 1 11 00000231 17 8 29 3 collector 7 "collect.smm" 8 3 17 11 16 "{3}" 17 13 0 521 1 "S&martFields" 17 14 0 515 1 "S&martFields" 17 15 0 516 1 "S&martFields" "Define &Personal Information..." "{1}!main(""as_def"")" "Design the Personal Information dialog box for an automated style sheet." 17 16 0 516 1 "S&martFields" "Define &Optional Information..." "{1}!main(""as_user"")" "Design the Optional Information dialog box for an automated style sheet." 17 18 0 516 1 "S&martFields" "Define &Cursor Location..." "{1}!bookmarker" "Define where you want to begin typing when you create a document." 17 20 0 516 1 "S&martFields" "Re&move All SmartFields..." "{1}!torchfields(" "as_" ")" "Remove all SmartFields in the automated style sheet." 17 21 0 516 1 "S&martFields" "-" "" "" 17 22 0 516 1 "S&martFields" "Edit &Automated Style Sheet..." "{1}!editsty" "Create or edit an automated style sheet." 17 23 0 516 1 "S&martFields" "Sa&ve Automated Style Sheet..." "{1}!savesty" "Save this document as an automated style sheet." 17 24 0 516 1 "S&martFields" "-" "" "" 17 25 0 516 1 "S&martFields" "E&xit" "{1}!removemenuitem" "Remove the SmartFields menu from the menu bar." 6 0 15 17 26 9 14 main 29 0 target 29 1 main 17 1 0 1050 13 5 1 18 5 11 00000087 6 1 15 9 17 4 0 271 "target" 1 17 5 0 264 "target" "{0}" 17 6 5 9 29 2 fieldnames 21 2 [X] 17 7 5 9 29 3 combofields 21 3 [X] 17 8 29 4 rmac 0 802 13 8 4 17 11 16 fieldloader "{0}" 17 12 0 41 0 "{4}!InitDlg" 29 5 ComboID 5 9501 8 5 17 13 5 9509 6 5 18 2 12 00000419 10 00000471 5 1 6 5 3 0 8 5 10 00000334 17 14 0 41 "{5}" "{4}!combocallback" 10 00000386 17 16 6 0 7 "as_user" 18 1 11 00000587 17 17 29 6 box 0 26 "smartfld.dlg" "autostyle" 13 8 6 10 00000641 17 19 0 26 "smartfld.dlg" "autostyle_user" 13 8 6 17 21 6 6 5 0 18 0 11 00000697 17 22 10 00001422 29 7 i 5 1 8 7 17 26 5 9 6 7 18 2 12 00000797 10 00001041 5 1 6 7 3 0 8 7 10 00000715 17 27 29 8 fieldcontents 5 8000 6 7 3 0 0 27 [X] 13 8 8 17 28 29 9 combocontents 5 9500 6 7 3 0 0 27 [X] 13 8 9 17 29 6 8 7 "" 18 0 11 00000982 17 30 10 00001041 17 32 6 7 6 8 23 2 17 33 6 7 6 9 23 3 10 00000764 17 35 29 10 numfields 6 7 5 1 3 1 8 10 17 36 0 271 "fieldnames" 9 17 37 0 271 "combofields" 9 5 1 8 7 17 38 6 10 6 7 18 2 12 00001238 10 00001348 5 1 6 7 3 0 8 7 10 00001155 17 39 6 7 22 2 0 272 "fieldnames" "{7}" [X] 17 40 6 7 22 3 0 272 "combofields" "{7}" [X] 10 00001205 17 42 6 10 5 0 18 1 11 00001422 17 43 16 insertfields "{0}" "{10}" 17 46 0 266 "fieldnames" 17 47 0 266 "target" 6 1 15 17 48 9 14 fieldloader 29 0 target 29 1 fieldloader 17 1 29 2 rmac 0 802 13 8 2 17 2 29 3 cnt 0 1304 0 13 8 3 17 3 5 0 6 3 18 0 11 00000162 6 1 15 9 17 6 6 3 29 4 fields 21 4 [X] 17 7 5 1 29 5 globvars 21 5 [X] 17 8 29 6 numglobs 5 0 8 6 17 9 0 1305 0 &4 29 7 i 5 1 8 7 17 11 6 3 6 7 18 2 12 00000382 10 00000827 5 1 6 7 3 0 8 7 10 00000300 17 12 29 8 pftype 6 7 22 4 0 20 [X] 2 "," 13 8 8 17 13 29 9 pffield 6 7 22 4 0 20 [X] 3 "," 13 8 9 17 14 29 10 varname 0 20 "{9}" 3 " " 13 8 10 17 15 29 11 showtype 0 20 "{10}" 6 "_" 13 8 11 17 16 29 12 targlen 0 14 "{0}" 13 8 12 17 17 0 806 "{10}" "{12}" 13 6 0 18 0 6 11 7 "echo" 18 1 1 1 11 00000814 17 18 6 6 5 1 3 0 8 6 17 19 29 13 result 6 7 22 4 0 1041 &5 "{6}" [X] 13 8 13 10 00000349 17 22 6 6 5 0 18 0 11 00000875 6 1 15 9 17 25 0 1043 &5 3 "_" 5 1 8 7 17 26 6 6 6 7 18 2 12 00000991 10 00001308 5 1 6 7 3 0 8 7 10 00000909 17 27 6 7 22 5 0 20 [X] 3 "," 13 8 9 17 28 0 20 "{9}" 3 " " 13 8 10 17 29 29 14 quotechar 0 39 34 13 8 14 17 30 29 15 varlabel 6 7 22 5 0 20 [X] 2 "{14}" 13 8 15 17 31 0 20 "{10}" 6 "_" 13 8 11 17 32 5 8000 6 7 3 0 0 31 [X] "{15}" 17 33 5 9500 6 7 3 0 0 31 [X] "{11}" 10 00000958 6 1 15 17 35 9 14 initdlg 29 0 hdlg 29 1 id 29 2 target 29 3 initdlg 17 1 0 265 "target" 13 8 2 17 3 29 4 CurStyleSheet 16 _$$1GetDocInfo$ 3 13 8 4 17 4 0 18 "{4}" 13 8 4 17 5 29 5 lb 0 39 091 13 8 5 17 6 29 6 rb 0 39 093 13 8 6 17 7 0 16 "{5}" "{4}" "{6}" 13 8 4 17 8 6 2 7 "as_def" 18 0 11 00001084 17 9 0 75 "{0}" "Personal Information" 17 10 16 ComboLoad "{0}" 17 13 0 56 "{0}" 3 0 17 14 0 56 "{0}" 1060 1 17 15 0 56 "{0}" 1050 0 17 16 29 7 L1 7 "Specify the field names you want to use for the default " 8 7 17 17 29 8 L2 7 "information each time you create a document using this " 8 8 17 18 29 9 L3 7 "style sheet. You can select an item in the User info list " 8 9 17 19 29 10 quotchar 0 39 91 13 8 10 17 20 29 11 b 0 806 "[[" 1 13 8 11 17 21 29 12 L4 7 "box if you want to use information stored in the {11}AutoStyleSheet] Section of " 8 12 17 22 29 13 L5 7 "the AMIPRO2.INI." 8 13 17 23 29 14 helptext 7 "{7}{8}{9}{12}{13}" 8 14 17 24 0 43 "{0}" 1050 "{14}" 17 25 16 combocallback "{0}" 9501 10 00001582 17 28 0 75 "{0}" "Optional Information" 17 29 0 56 "{0}" 3 1 17 30 0 56 "{0}" 1050 1 17 31 0 56 "{0}" 1060 0 29 15 ComboID 5 9501 8 15 17 38 5 9509 6 15 18 2 12 00001318 10 00001359 5 1 6 15 3 0 8 15 10 00001230 17 39 0 56 "{0}" "{15}" 1 10 00001283 17 41 7 "Specify the field names you want to use for the optional information each time " 8 7 17 42 7 "you create a document using this style sheet." 8 8 17 43 7 "{7}{8}{9}{12}" 8 14 17 44 0 43 "{0}" 1060 "{14}" 6 3 15 17 46 9 14 insertfields 29 0 target 29 1 numfields 29 2 insertfields 29 3 position 5 1 8 3 17 1 6 1 6 3 18 2 12 00000171 10 00000932 5 1 6 3 3 0 8 3 10 00000090 17 2 19 00000919 17 3 29 4 showntext 0 273 "fieldnames" "{3}" 13 8 4 17 4 6 4 7 "" 18 0 11 00000302 17 5 10 00000919 17 7 0 79 141 13 5 1 18 1 11 00000358 6 2 15 9 17 9 0 7 "Ready to insert {4}." 17 11 29 5 fieldtype 7 "eb" 8 5 17 12 29 6 label 16 LabelNoBadChars "{4}" 13 8 6 17 13 29 7 prefill 0 273 "combofields" "{3}" 13 8 7 17 14 6 7 7 "" 18 1 11 00000608 17 15 0 16 "{7}" "_" 13 8 7 17 17 29 8 fieldname 0 16 "{0}" "_" "{3}" "_" "{5}" "_" "{6}" "_" "{7}" 13 8 8 17 18 29 9 exantfield 0 16 "{0}" "_" "{3}" "_" "{5}" "_" 13 8 9 17 19 16 torchfields "{9}" 17 20 16 _$$3CurShade$ 13 7 "" 18 1 11 00000863 17 21 0 6 "[46]" 17 23 34 0 34 "if Defined {8} {8} else ""{4}"" endif" 10 00000138 6 2 15 17 27 9 14 echoer 29 0 echoer 17 1 0 4 1 17 2 29 1 rmac 0 802 13 8 1 17 3 0 32 2 17 4 29 2 target 7 "as_" 8 2 17 5 29 3 cnt 0 1304 0 13 8 3 17 6 5 0 6 3 18 0 11 00000255 17 7 0 3 "No fields to repeat." "SmartField Repeater" 6 0 15 9 17 10 19 00000944 17 12 6 3 29 4 fields 21 4 [X] 17 13 5 1 29 5 globvars 21 5 [X] 17 14 29 6 numglobs 5 0 8 6 17 15 0 1305 0 &4 29 7 i 5 1 8 7 17 17 6 3 6 7 18 2 12 00000499 10 00000944 5 1 6 7 3 0 8 7 10 00000417 17 18 29 8 pftype 6 7 22 4 0 20 [X] 2 "," 13 8 8 17 19 29 9 pffield 6 7 22 4 0 20 [X] 3 "," 13 8 9 17 20 29 10 varname 0 20 "{9}" 3 " " 13 8 10 17 21 29 11 showtype 0 20 "{10}" 6 "_" 13 8 11 17 22 29 12 targlen 0 14 "{2}" 13 8 12 17 23 0 806 "{10}" "{12}" 13 6 2 18 0 6 11 7 "echo" 18 1 1 1 11 00000931 17 24 6 6 5 1 3 0 8 6 17 25 29 13 result 6 7 22 4 0 1041 &5 "{6}" [X] 13 8 13 10 00000466 17 29 0 789 "" 17 31 0 1043 &5 3 "_" 17 32 6 6 29 14 displayarray 21 14 [X] 5 1 8 7 17 33 6 6 6 7 18 2 12 00001120 10 00002039 5 1 6 7 3 0 8 7 10 00001038 17 34 6 7 22 5 0 20 [X] 3 "," 13 8 9 17 35 0 20 "{9}" 3 " " 13 8 10 17 36 29 15 quotechar 0 39 34 13 8 15 17 37 29 16 varlabel 6 7 22 5 0 20 [X] 2 "{15}" 13 8 16 17 38 29 17 boxtype 0 20 "{10}" 2 "_" 13 8 17 17 39 29 18 fld1 0 20 "{10}" 1 "_" 13 8 18 17 40 29 19 fld2 0 20 "{10}" 2 "_" 13 8 19 17 41 29 20 fld3 0 20 "{10}" 3 "_" 13 8 20 17 42 29 21 fld4 0 20 "{10}" 4 "_" 13 8 21 17 43 29 22 fld5 0 20 "{10}" 5 "_" 13 8 22 17 44 29 23 echovar 0 16 "{18}" "_" "{19}" "_" "{20}" "_" "{21}" "_" "{22}" "_" "echo" "_" 13 8 23 17 45 6 17 7 "def" 18 0 11 00001780 17 46 7 "Personal" 8 17 10 00001849 17 47 6 17 7 "user" 18 0 11 00001849 17 48 7 "Optional" 8 17 17 50 29 24 item 0 20 "{10}" 3 "_" 13 0 16 "{17}" " - " "{16}" " |" "{23}" "|" "{16}" "|" "{17}" [X] 13 8 24 17 51 6 7 6 24 23 14 10 00001087 17 53 0 1043 &14 4 "|" 17 54 0 31 9000 &14 17 55 29 25 box 0 26 "smartfld.dlg" "echobox" 13 8 25 17 56 6 25 5 0 18 0 11 00002194 6 0 15 9 17 60 29 26 prompttext 0 27 9000 13 0 20 [X] 1 "|" 13 8 26 17 61 29 27 echothis 0 27 9000 13 0 20 [X] 2 "|" 13 8 27 17 62 29 28 showntext 0 27 9000 13 0 20 [X] 3 "|" 13 8 28 17 63 0 20 "{27}" 2 "_" 13 8 17 17 64 6 17 7 "def" 18 0 11 00002506 17 65 7 "Personal" 8 17 10 00002575 17 66 6 17 7 "user" 18 0 11 00002575 17 67 7 "Optional" 8 17 17 69 0 789 "To insert a repeat of this field, choose Resume. To return to the box to choose another field, choose Cancel." 17 70 0 7 "Ready to insert {17} - {28}." 17 71 16 _$$3CurShade$ 13 7 "" 18 1 11 00002818 17 72 0 6 "[46]" 17 74 34 0 34 "if Defined {27} {27} else ""{17} - {28} (repeat)"" endif" 17 75 10 00000944 6 0 15 17 76 9 14 comboload 29 0 hdlg 29 1 comboload 17 1 29 2 rmac 0 802 13 8 2 17 2 29 3 strings 0 286 "AutoStyleSheets" 0 "AMIPRO2.INI" 13 8 3 17 3 29 4 numfields 16 countfields "{3}" "~" 13 8 4 17 4 6 4 29 5 temparray 21 5 [X] 29 6 i 5 1 8 6 17 5 6 4 6 6 18 2 12 00000337 10 00000423 5 1 6 6 3 0 8 6 10 00000256 17 6 29 7 thisone 0 20 "{3}" "{6}" "~" 13 8 7 17 7 6 6 6 7 23 5 10 00000304 17 9 0 1041 &5 1 "" 17 10 29 8 questidx 0 1044 &5 "NoQuestions" 13 8 8 17 11 6 8 5 0 18 1 11 00000561 17 12 0 1042 &5 "{8}" 17 14 29 9 datagoodidx 0 1044 &5 "DataGood" 13 8 9 17 15 6 9 5 0 18 1 11 00000677 17 16 0 1042 &5 "{9}" 29 10 ComboID 5 9501 8 10 17 19 5 9509 6 10 18 2 12 00000794 10 00001021 5 1 6 10 3 0 8 10 10 00000706 5 1 8 6 17 21 6 4 6 6 18 2 12 00000886 10 00000940 5 1 6 6 3 0 8 6 10 00000804 17 22 6 6 22 5 0 43 "{0}" "{10}" [X] 10 00000853 17 24 0 62 "{0}" "{10}" 0 17 25 0 41 "{10}" "{2}!combocallback" 10 00000759 6 1 15 17 27 9 14 combocallback 29 0 hdlg 29 1 Comboid 29 2 combocallback 17 3 29 3 thisline 0 42 "{0}" "{1}" 13 8 3 17 4 29 4 inistring 0 286 "AutoStyleSheets" "{3}" "AMIPRO2.INI" 13 8 4 17 5 6 3 7 "" 18 0 11 00000240 17 6 7 "" 8 4 17 8 0 43 "{0}" 1010 "{4}" 17 9 29 5 editfieldid 6 1 5 1500 3 1 8 5 17 10 29 6 editfieldtext 0 42 "{0}" "{5}" 13 8 6 17 11 6 6 7 "" 18 0 11 00000438 17 12 0 43 "{0}" "{5}" "{3}" 6 2 15 17 14 9 14 countfields 29 0 string 29 1 char 29 2 countfields 17 1 29 3 j 5 1 8 3 17 2 29 4 i 5 0 8 4 17 3 5 1 11 00000297 17 4 29 5 k 0 13 "{3}" "{0}" "{1}" 13 8 5 17 5 6 5 5 -1 18 0 11 00000232 17 6 10 00000297 17 8 6 4 5 1 3 0 8 4 17 9 6 5 5 1 3 0 8 3 10 00000106 17 11 6 4 15 9 6 2 15 17 12 9 14 frameinsert 29 0 frameinsert 17 2 29 1 result 0 79 402 13 8 1 17 3 6 1 5 1 18 1 11 00000175 17 4 0 7 "Create the frame and choose Resume." 17 5 10 00000034 17 7 29 2 Length 29 3 Wide 29 4 Units 29 5 Paper 29 6 WinDir 29 7 INI 29 8 in 29 9 Fwide 29 10 FHigh 29 11 Top 29 12 Left 29 13 LMargin 17 8 29 14 TMargin 29 15 RMargin 29 16 BMargin 29 17 Funits 29 18 FType 29 19 FRound 29 20 FMacName 17 9 16 _$$2GetCurFrameBorders &9 &10 &11 &12 &13 &14 &15 &16 &17 17 10 29 21 num 0 772 13 0 807 [X] 4 13 8 21 17 11 16 _$$4MarkBookMark "as_frame{21}" 4003 17 12 16 _$$2AddFrame "{11}" "{12}" "{9}" "{10}" 17 13 16 _$$2NULL 17 14 16 _$$2FrameModLines 0 1 1 0 16777215 0 0 0 0 0 17 15 16 _$$2FrameModType 134218240 18 "framcust.smm({21})" 17 17 16 _$$2NULL 17 18 16 _$$5BringFrameToFront 17 19 16 _$$4MarkBookMark "as_frame{21}cover" 4003 17 20 0 6 "[13][13]Click on this frame to insert text or graphics in this area." 17 21 2 260 1 17 22 0 6 "[27][27]" 6 0 15 17 23 9 14 FieldNumToName 29 0 num 29 1 FieldNumToName 17 1 29 2 cnt 0 1304 0 13 8 2 17 2 6 2 29 3 fields 21 3 [X] 17 3 0 1305 0 &3 17 4 29 4 position 0 1044 &3 "{0}" 1 "," 13 8 4 17 5 29 5 pffield 6 4 22 3 0 20 [X] 3 "," 13 8 5 17 6 29 6 varname 0 20 "{5}" 3 " " 13 8 6 17 7 6 6 8 1 6 1 15 17 8 9 14 savesty 29 0 savesty 17 1 0 79 305 13 5 1 18 1 11 00000082 6 0 15 9 17 3 29 1 rmac 0 802 13 8 1 17 4 0 41 0 "{1}!SaveAsStyleInit" 17 5 29 2 result 0 71 305 1022 13 8 2 6 0 15 17 6 9 14 SaveAsStyleInit 29 0 hdlg 29 1 id 29 2 value 29 3 SaveAsStyleInit 17 1 29 4 CB_withcontents 5 25550 8 4 17 2 29 5 CB_runmacro 5 25551 8 5 17 3 29 6 EB_runmacro 5 25975 8 6 17 4 29 7 text_runmacro 5 667 8 7 17 5 0 43 "{0}" "{4}" 1 17 6 0 53 "{0}" "{4}" 0 17 7 0 43 "{0}" "{5}" 1 17 8 0 53 "{0}" "{5}" 0 17 9 0 43 "{0}" "{6}" "autosty.smm" 17 10 0 62 "{0}" "{6}" "autosty.smm" 17 11 0 53 "{0}" "{6}" 0 6 3 15 17 12 9 14 editsty 29 0 editsty 17 1 29 1 rmac 0 802 13 8 1 17 2 0 41 0 "{1}!EditStyInit" 17 3 29 2 result 0 71 101 1055 13 8 2 6 0 15 17 4 9 14 EditStyInit 29 0 hdlg 29 1 id 29 2 value 29 3 EditStyInit 17 1 29 4 CB_withcontents 5 25551 8 4 17 2 29 5 CB_runmacro 5 25553 8 5 17 3 5 1 5 1 4 0 0 43 "{0}" "{4}" [X] 17 4 0 53 "{0}" "{4}" 0 17 5 5 0 5 1 4 0 0 43 "{0}" "{5}" [X] 17 6 0 53 "{0}" "{5}" 0 6 3 15 17 7 9 14 bookmarker 29 0 bookmarker 17 1 0 79 466 13 5 1 18 1 11 00000088 6 0 15 9 17 3 0 7 "Ready to position cursor position." 17 4 16 _$$4MarkBookMark "as_starttext" 4004 17 5 16 _$$4MarkBookMark "as_starttext" 4003 6 0 15 17 6 9 14 LabelNoBadChars 29 0 showntext 29 1 LabelNoBadChars 17 1 29 2 badchars 7 " ""%'()*+,-/;<=>@[92]^}" 8 2 29 3 c 5 1 8 3 17 2 0 14 "{2}" 13 6 3 18 2 12 00000223 10 00000722 5 1 6 3 3 0 8 3 10 00000131 17 3 29 4 char 0 15 "{2}" "{3}" 1 13 8 4 17 4 0 13 1 "{0}" "{4}" 13 5 -1 18 1 11 00000709 17 5 5 10 29 5 part 21 5 [X] 29 6 x 5 1 8 6 17 6 5 10 6 6 18 2 12 00000457 10 00000661 5 1 6 6 3 0 8 6 10 00000375 17 7 6 6 0 20 "{0}" "{6}" "{4}" 13 23 5 17 8 6 6 22 5 5 -1 18 0 6 6 22 5 7 "" 18 0 1 2 11 00000591 17 9 10 00000661 17 11 29 7 newtext 6 6 22 5 0 16 "{7}" [X] 13 8 7 10 00000424 17 13 6 7 8 0 17 14 7 "" 8 7 10 00000269 10 00000190 17 17 29 8 label 6 0 8 8 17 18 6 8 7 "" 18 0 11 00000849 17 19 0 772 13 0 807 [X] 4 13 0 16 "temp" [X] 13 8 8 17 21 6 8 15 9 6 1 15 17 22 9 14 removemenuitem 29 0 removemenuitem 17 1 0 521 1 "S&martFields" 6 0 15 17 2 9 14 torchfields 29 0 target 29 1 torchfields 17 5 29 2 cnt 0 1304 0 13 8 2 17 6 5 0 6 2 18 1 11 00000808 17 7 0 20 "{0}" 3 "_" 13 5 -1 18 0 11 00000274 17 8 29 3 doit 0 2 "Remove all SmartFields?" 13 8 3 17 9 6 3 5 0 18 0 11 00000274 6 1 15 9 17 13 6 2 29 4 fields 21 4 [X] 17 14 0 1305 0 &4 29 5 i 5 1 8 5 17 15 6 2 6 5 18 2 12 00000429 10 00000795 5 1 6 5 3 0 8 5 10 00000347 17 16 29 6 pfid 6 5 22 4 0 20 [X] 1 "," 13 8 6 17 17 29 7 pftype 6 5 22 4 0 20 [X] 2 "," 13 8 7 17 18 29 8 pffield 6 5 22 4 0 20 [X] 3 "," 13 8 8 17 19 29 9 varname 0 20 "{8}" 3 " " 13 8 9 17 20 29 10 targlen 0 14 "{0}" 13 8 10 17 21 0 806 "{9}" "{10}" 13 6 0 18 0 11 00000782 17 22 16 _$$5FieldRemove "{6}" "{7}" 10 00000396 10 00000918 17 26 0 20 "{0}" 3 "_" 13 5 -1 18 0 11 00000918 17 27 0 3 "No fields to remove." "SmartField Remover" 6 1 15 17 30 9 00044947