PC World Komputer 1998 July & August

home *** CD-ROM | disk | FTP | other *** search

/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS028.DSK / AMIFX.SMM < prev next >

Wrap

INI File | 1994-07-28 | 107KB | 5,700 lines

[ver] 4 [sty] [files] [charset] 82 ANSI (Windows, IBM CP 1252) [revisions] 0 [prn] QMS-PS 810 [port] LPT1: [lang] 1 [fldnames] DocName Field2 Field3 Field4 Field5 Field6 Field7 Field8 [desc] Modified on Thursday, July 28, 1994 0 775442577 160 754111251 4199 37 0 0 0 0 1 [fopts] 0 1 0 0 [auto] AmiFx.smm!Main(1) AmiFx.smm!Bye() 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [GramStyle] [ParaNum] 1 [tag] Body Text 2 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 3 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Text 0 0 [tag] SubFunction 3 [fnt] Times New Roman 240 0 49153 [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 2 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Text 0 0 [tag] Comment 4 [fnt] Arial 200 0 16384 [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 3 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Text 0 0 [tag] Translate 5 [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 3 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Text 0 0 [tag] Footnote 6 [fnt] Times New Roman 200 0 49152 [algn] 1 1 0 720 0 [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 256 0 0 0 [nfmt] 280 1 2 . , $ Footnote 0 0 [tag] Subhead 7 [fnt] Times New Roman 240 0 49155 [algn] 1 1 0 0 0 [spc] 33 273 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Subhead 0 0 [tag] Header 9 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Header 0 0 [tag] Footer 11 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Footer 0 0 [lay] Standard 513 [rght] 15840 12240 1 446 1440 1 1440 532 0 1 0 1 0 2 1 450 11700 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 [hrght] [lyfrm] 1 11200 0 0 12240 1440 0 1 3 1 0 0 0 0 0 0 0 0 1 [frmlay] 1440 12240 1 1440 72 1 792 1440 0 1 0 1 1 0 1 1440 10800 2 2 4680 3 9360 [txt] <+B><+!>Page <:P10,0,><-!> <+B><:da<*!><* >> > [frght] [lyfrm] 1 13248 0 14400 12240 15840 0 1 3 1 0 0 0 0 0 0 0 0 2 [frmlay] 15840 12240 1 1440 792 1 14472 1440 0 1 0 1 1 0 1 1440 10800 2 2 4680 3 9360 [txt] > [elay] [l1] 0 [pg] 37 39 0 17 0 3 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 82 0 19 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 123 0 37 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 167 0 23 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 209 0 35 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 219 0 5 512 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 261 0 0 0 0 0 0 65535 65535 Standard 65535 0 1 1 242 31 0 0 0 65535 65535 1 1 65535 0 0 0 0 0 304 0 34 0 0 0 0 65535 65535 Standard 65535 0 2 1 254 119 0 0 0 65535 65535 2 2 65535 0 0 0 0 0 349 0 31 0 0 0 0 65535 65535 Standard 65535 0 2 1 254 119 0 0 0 65535 65535 2 2 65535 0 0 0 0 0 394 0 0 0 0 0 0 65535 65535 Standard 65535 0 2 1 254 119 0 0 0 65535 65535 2 2 65535 0 0 0 0 0 438 0 35 0 0 0 0 65535 65535 Standard 65535 0 2 1 254 119 0 0 0 65535 65535 2 2 65535 0 0 0 0 0 482 0 99 0 0 0 0 65535 65535 Standard 65535 0 2 1 254 119 0 0 0 65535 65535 2 2 65535 0 0 0 0 0 528 0 52 0 0 0 0 65535 65535 Standard 65535 0 2 1 254 119 0 0 0 65535 65535 2 2 65535 0 0 0 0 0 574 0 17 0 0 0 0 65535 65535 Standard 65535 0 2 1 254 119 0 0 0 65535 65535 2 2 65535 0 0 0 0 0 620 0 46 0 0 1 0 65535 65535 Standard 65535 0 2 1 254 119 0 0 0 65535 65535 2 2 65535 0 0 0 0 0 665 0 17 0 0 0 0 65535 65535 Standard 65535 0 2 1 254 119 0 0 0 65535 65535 2 2 65535 0 0 0 0 0 710 0 0 0 0 0 0 65535 65535 Standard 65535 0 2 1 254 119 0 0 0 65535 65535 2 2 65535 0 0 0 0 0 753 0 17 0 0 0 0 65535 65535 Standard 65535 0 2 1 254 119 0 0 0 65535 65535 2 2 65535 0 0 0 0 0 795 0 28 0 0 0 0 65535 65535 Standard 65535 0 3 1 120 133 0 0 0 65535 65535 3 3 65535 0 0 0 0 0 840 0 34 0 0 1 0 65535 65535 Standard 65535 0 3 1 120 133 0 0 0 65535 65535 3 3 65535 0 0 0 0 0 884 0 0 0 1 0 0 65535 65535 Standard 65535 0 3 1 120 133 0 0 0 65535 65535 3 3 65535 0 0 0 0 0 929 0 0 0 0 0 0 65535 65535 Standard 65535 0 3 1 120 133 0 0 0 65535 65535 3 3 65535 0 0 0 0 0 974 0 11 0 0 1 0 65535 65535 Standard 65535 0 3 1 120 133 0 0 0 65535 65535 3 3 65535 0 0 0 0 0 1018 0 0 0 0 0 0 65535 65535 Standard 65535 0 3 1 120 133 0 0 0 65535 65535 3 3 65535 0 0 0 0 0 1044 0 5 512 0 0 0 65535 65535 Standard 65535 0 3 1 120 133 0 0 0 65535 65535 3 3 65535 0 0 0 0 0 1088 0 32 0 0 0 0 65535 65535 Standard 65535 0 3 1 120 133 0 0 0 65535 65535 3 3 65535 0 0 0 0 0 1133 0 22 0 0 1 0 65535 65535 Standard 65535 0 3 1 120 133 0 0 0 65535 65535 3 3 65535 0 0 0 0 0 1178 0 41 0 0 0 0 65535 65535 Standard 65535 0 3 1 120 133 0 0 0 65535 65535 3 3 65535 0 0 0 0 0 1222 0 0 0 0 0 0 65535 65535 Standard 65535 0 3 1 120 133 0 0 0 65535 65535 3 3 65535 0 0 0 0 0 1266 0 48 0 3 0 0 65535 65535 Standard 65535 0 3 1 120 133 0 0 0 65535 65535 3 3 65535 0 0 0 0 0 1311 0 39 0 0 0 0 65535 65535 Standard 65535 0 3 1 120 133 0 0 0 65535 65535 3 3 65535 0 0 0 0 0 1356 0 10 0 0 1 0 65535 65535 Standard 65535 0 3 1 120 133 0 0 0 65535 65535 3 3 65535 0 0 0 0 0 1400 0 12 0 0 0 0 65535 65535 Standard 65535 0 3 1 120 133 0 0 0 65535 65535 3 3 65535 0 0 0 0 0 1430 0 5 512 0 0 0 65535 65535 Standard 65535 0 3 1 120 133 0 0 0 65535 65535 3 3 65535 0 0 0 0 0 1471 0 0 0 0 0 0 65535 65535 Standard 65535 0 3 1 120 133 0 0 0 65535 65535 3 3 65535 0 0 0 0 0 1512 0 41 0 0 1 0 65535 65535 Standard 65535 0 3 1 120 133 0 0 0 65535 65535 3 3 65535 0 0 0 0 0 1531 0 0 1025 0 0 0 65535 65535 Standard 65535 0 3 1 120 133 0 0 0 65535 65535 3 3 65535 0 0 0 0 0 [edoc] @Translate@<:s><:#284,11250>' Text to be translated is tagged with a translate paragraph style. Only the text in "" should be converted @Subhead@<:s><:#284,11250> @Subhead@<:s><:#284,11250>'Builder defines @Translate@<:#568,11250>Define Text_Upload "Copy an existing document into the Document Sharing Application. The document will be copied from the local file system and placed into the Notes database." @Translate@<:#568,11250>Define Text_NewTemplate "For use by the database administrator. Create a new workgroup template based on an existing document or Ami Pro style sheet. " @Main Macro@<:s><:#284,11250> @Subhead@<:s><:#284,11250>' Copy document to Notes instructions @Translate@<:#284,11250>Define CopyNotes_Caption "Copy Document to Notes" @Translate@<:#284,11250>Define CopyNotes_ButtonText "Paste Document" @Translate@<:#284,11250>Define CopyNotes_Instruction1 "Select a Document Sharing Database on the Notes desktop" @Translate@<:#284,11250>Define CopyNotes_Instruction2 "Select Compose - Administration - Copy Document to database" @Translate@<:#284,11250>Define CopyNotes_Instruction3 "Choose Paste Document " @Translate@<:#284,11250>Define PleaseHighlightText "Please highlight several characters of text and click resume" @Translate@<:#284,11250>Define BaseTemplateCurrentDoc "Base the template on the current document" <:s><:#284,11250> @Subhead@<:s><:#284,11250>' Creating a new template floating assistant @Translate@<:#284,11250>Define NewTitleBar "Create New Template" @Translate@<:#284,11250>Define NewTemplate_Instruct1 "Select a Document Sharing Database on the Notes desktop" @Translate@<:#284,11250>Define NewTemplate_Instruct2 "Select Compose - Administration - New Document Template" @Translate@<:#284,11250>Define NewTemplate_Instruct3 "Position the cursor in the template field - Choose Paste Template" @Translate@<:#284,11250>Define NewTemplate_Button "Paste Template" @Translate@<:#284,11250>Define NewTemplate_Caption "Create Document Template" <:s><:#284,11250> @Subhead@<:#284,11250>'Bookmark existing smartfields @Translate@<:#284,11250>Define StatusBar_Bookmarking "Please wait...bookmarking existing smartfields" <:s><:#284,11250> @Subhead@<:s><:#284,11250>' Version Section @Translate@<:#284,11250>Define Text1 "The author of this document has specified that all edits are stored as a new version. " @Translate@<:#284,11250>Define Text2 "This revision description is stored in the description field in the File/Doc Info box." @Translate@<:#284,11250>Define Text3 "It is suggested that you describe this revision:" @Translate@<:#284,11250>Define RemText1 "Please enter a remark that describes your edits to this document. " @Translate@<:#284,11250>Define RemText2 "This remark is stored in the description field in the File/Doc Info box." @Translate@<:#284,11250>Define RemText3 "It is suggested that you enter a remark:" @Subhead@<:s><:#284,11250> @Translate@<+@><:#284,11250>Define NoHandle "Did not receive a notes handle. Is Notes in your path?" @Translate@<+@><:#284,11250>Define ErrorNotOleDoc "This document is not stored in Notes. Click OK to remove the icons." @Translate@<+@><:#284,11250>Define AmiMessage "Ami Pro" @Translate@<+@><:#284,11250> @Subhead@<:s><:#284,11250>'Editing options @Translate@<:#568,11250>Define OptionText "This document has the following Workgroup Options set. Edits to this document will be stored " @Translate@<:#284,11250>Define TextIsAuthor "{Fname}, as the original author of this document, you have the following options:" @Translate@<:#284,11250>Define TextIsEditor "{Fname}, as an editor of this document, you have the following options:" @Translate@<:#284,11250>Define FollowingOptions "As an editor of this document, you have the following options:" @Translate@<:#284,11250>Define InOriginal "in the original." @Translate@<:#284,11250>Define InVersion "as a new version." @Translate@<:#284,11250>Define OptionEdit "Editing mode:" @Translate@<:#284,11250>Define OptionTools "Revision management tools:" <:s><:#284,11250> @Subhead@<:#284,11250>' Defines for inserting a menuitem and changing the file - doc info action @Translate@<:#284,11250>Define ViewMenu "&View" @Translate@<:#284,11250>Define ViewMenuItem "&Workgroup SmartIcons On/Off" @Translate@<:#284,11250>Define ViewMenuHelpText "Toggle the workgroup SmartIcons on/off" @Translate@<:#284,11250>Define Menu_File "&File" @Translate@<:#284,11250>Define MenuItem_File "&Doc Info..." @Translate@<:#284,11250>Define MenuDocInfoHelp_File "Display or edit descriptive data about the current document." @Translate@<:#284,11250>Define Version_Describe "Modified on {Today}" ' do not translate the today in {} @Translate@<:#284,11250>Define NoLoadOutWin "Unable to load outwin.dll" @Translate@<:#284,11250>Define FontBadParam "Fontdlg received an invalid parameter {Action}" @Translate@<+@><:s><:#284,11250> <:s><:#284,11250> <:s><:#284,11250>' End text to be translated <:s><:#284,11250> <:s><:#284,11250> <:#284,11250>Define FXIcon_GoNotes 1 <:#284,11250>Define FXIcon_Remark 2 <:#284,11250>Define FXIcon_RevMark 3 <:#284,11250>Define FXIcon_Review 4 <:#284,11250>Define FXIcon_DocInfo 5 <:#284,11250>Define FXIcon_Mail 6 <:#284,11250>Define FXIcon_InsertNote 7 <:#284,11250>Define FXIcon_GotoNote 8 <:#284,11250>Define AppNotes "Lotus Notes" <:#284,11250>Define AMIUI_DESCRIPTFIELDS 16 <:s><:#284,11250> @Subhead@<:s><:#284,11250>' Defines for Main <:#284,11250>Define OpenField 1 <:#284,11250>Define CloseField 2 <:#284,11250>Define OpenMacro 3 <:#284,11250>Define CloseMacro 4 <:#284,11250>Define NewDoc 1 <:s><:#284,11250>Define Existing 2 <:#284,11250>Define FromNotes 1 <:#284,11250>Define Field1Name "DocName" @Subhead@<:s><:#284,11250> @Subhead@<:#284,11250>AmiNotes defines <:#284,11250>' These defines are necessary to retrieve information from the __FXPARAMx fields. <:#568,11250>Define GetNotesStringField(hTempNote, FieldName, Var, VarLen) DllCall("AmiNotes.dll,GetNotesStringField,HHCCH",%1,%2,%3,%4) <:#568,11250>Define GetNotesStringFieldUnlimited(hTempNote, lpstrField) DllCall("AmiNotes.dll,GetNotesStringFieldUnlimited,HHC",%1,%2) <:#568,11250>Define SetNotesStringField(hTempNote, lpstr Field, lpstr data) DllCall("AmiNotes.dll,SetNotesStringField,HHCC",%1,%2,%3) <+@><:#284,11250>Define NotesTerm() DllCall("AmiNotes.dll,NotesFriendlyTerm,A") <+@><:#284,11250>Define NotesInit() DllCall("AmiNotes.dll,NotesFriendlyInit,A") <+@><:#284,11250>Define ReOpenDatabase() DllCall("AmiNotes.dll,ReOpenDatabase,HH",%1) <+@><:#284,11250>Define CloseDatabase() DllCall("AmiNotes.dll,CloseDatabase,HH",%1) <+@><:#284,11250> @Subhead@<+@><:#284,11250>Windows Defines <+@><:#284,11250>' Common window API defines <+@><:#284,11250>Define GlobalLock(hmem) DllCall("Kernel,GlobalLock,CH",%1) <+@><:#284,11250>Define GlobalUnlock(hmem) DllCall("Kernel,GlobalUnlock,AH",%1) <+@><:#284,11250>Define GlobalFree(hmem) DllCall("Kernel,GlobalFree,HH",%1) <:#284,11250><:><:><:><:>Define FindWindow() DllCall("user,FindWindow,HCC", %1, %2) <:#284,11250>Define EM_SetSel 1025 <:#284,11250><:><:><:><:>'Define MoveWindow() DllCall("User,MoveWindow,HHHHHHA",%1,%2,%3,%4,%5,%6) @Outline2@<:#284,11250>Define EnableWindow() DllCall("User,EnableWindow,AHH",%1,%2) @Outline2@<:#284,11250>define GetActiveWindow() DllCall("user,GetActiveWindow,H") <:#284,11250>Define IsWindowVisible(hwnd) DllCall("User,IsWindowVisible,AH",%1) <:#284,11250>Define WinHelp(hWnd, file, cmd, ptr) DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4) <:#284,11250>define HELP_CONTEXT 0x0001 <:#284,11250>define VK_F1 112 <:#284,11250>Define HelpPanelGlobalVar "HelpPanelGlobalVar" <:#284,11250>Define SetWindowText(hwnd, Text) DllCall("User,SetWindowText,HHC",%1,%2) <:#284,11250>Define Getfocus() DllCall("user,GetFocus,H") <:#284,11250>Define SetFocus() DllCall("user,SetFocus,HH",%1) <:#284,11250>'Define ShowWindow(hWnd, stuff) DllCall("user,ShowWindow,HHH", %1, %2) @Outline2@<:#284,11250>Define PostMessage(hwnd, msg, wp, lp) Dllcall("user,PostMessage,JHHHJ", %1, %2, %3, %4) <:#284,11250>Define DestroyWindow(hwnd) DllCall("user,DestroyWindow,HH", %1) <:#284,11250>Define wm_command 0x0111 <:#284,11250>Define WM_QUIT 0x0012 <:#284,11250>Define GetSystemMetrics(Param) DllCall("User,GetSystemMetrics,HH"%1) <:#284,11250>Define sm_cyscreen 1 <:#284,11250> @SubFunction@<:#284,11250> @SubFunction@<:#284,11250> <:#284,11250>' Help Panel Numbers for dialog boxes <:#284,11250>' These panels represent help panels in the Ami Pro help file. <:#284,11250>Define HP_Assistant 5000 <:#284,11250>Define HP_CopyToNotes 5001 <:#284,11250>Define HP_NewDoc 5002 <:#284,11250>Define HP_EditOptions 5003 <:#284,11250>Define HP_Remark 5004 <:#284,11250>Define HasFxMacroRun "HasAmiFxRun" <:#284,11250> <:#284,11250>' Defines for GetInfo() <:#284,11250>define AMIUI_INREVMARKMODEFLAG 136 <:#284,11250>define AMIUI_DOCUMENTLOCKED 142 <:#284,11250> @Translate@<:#284,11250> <:#284,11250>Define IconToggle 3 <:#284,11250>Define Icon_Enable 4 <:#284,11250>Define Icon_Disable 5 <:#284,11250> <:#284,11250> <:#284,11250>Define MaxLengthName 31 <:#284,11250>Define EM_LimitText 1045 <:#284,11250> @Subhead@<:#284,11250>'Icon Handling <:#284,11250>Define hFxOutWin "HFXOutWin" <:#284,11250>Define hFxIconBar "HFXIconBar" <:#284,11250>Define IsOKToRun(menuname) GetInfo(217, 24, %1); <:#284,11250> @Subhead@<:#284,11250>' FxSty Defines @Outline2@<:#284,11250>Define PenBmp "FxPen.bmp" ' this should be placed in the Ami Pro directory @Outline2@<:#284,11250>Define PageBmp "FxPage.bmp" @Outline2@<:#284,11250>Define GetIniInfo(Key) GetProfileString$("AutoStyleSheets",%1,"AmiPro2.Ini") @Outline2@<:#284,11250>Define MoveWindow() DllCall("user,MoveWindow,HHHHHHH",%1,%2,%3,%4,%5,1) @Outline2@<:#284,11250>Define GetWindowRect() DllCall("user,GetWindowRect,HHN",%1,%2) @Outline2@<:#284,11250>Define GetClientRect() DllCall("user,GetClientRect,HHN",%1,%2) @Outline2@<:#284,11250>Define ScreenToClient() DllCall("user,ScreenToClient,HHN", %1, %2) @Outline2@<:#284,11250>Define ClientToScreen() DllCall("user,ClientToScreen,HHN", %1, %2) @Outline2@<:#284,11250>Define ShowWindow() DllCall("User,ShowWindow,AHH",%1,%2) @Outline2@<:#284,11250>'Define EnableWindow() DllCall("User,EnableWindow,AHH",%1,%2) @Outline2@<:#284,11250>Define MapDialogRect() DllCall("user,MapDialogRect,HHN", %1, %2) <:#284,11250>Define BM_StartTypingHere "as_starttext" @Outline2@<:#284,11250>Define NumOptionalItems "NumOptional" @Outline2@<:#284,11250>Define Delim "~" <+@><:#284,11250>Define Rights_RevisionMarking 8 <+@><:#284,11250>Define Rights_Annotations 16 <+@><:#284,11250>Define Rights_Full 4 <+@><:#284,11250> <:#284,11250>Define GlobalOrigAuthor "GlobalVarAuthor" <:#284,11250> @SubFunction@<:#284,11250>'Outwin Defines <:#284,11250>Define AddMacroCall(hwnd, macro, cmd) DllCall("outdll,AddMacroCall,HHCH", %1, %2, %3) <:#284,11250>Define SetWallPaper(hwnd, fname) DllCall("outdll,SetWallPaper,HHC", %1, %2) <:#568,11250>Define IconOn(hwnd, ini, ega, vga, 8514, pos, tbl) DllCall("outdll,IconOn,HHCCCCHC", %1, %2, %3, %4, %5, %6, %7) <:#284,11250>Define IconOff(hwnd) DllCall("outdll,IconOff,HH", %1) <:#284,11250>Define IconConfig(hwnd, ini) DllCall("outdll,IconConfig,HHC", %1, %2) <:#568,11250>Define CreateTheWin(hWndParent,Flag,x,y,cx,xy,Title) DllCall("outdll,CreateTheWin,HHHHHHHC",%1,%2,%3,%4,%5,%6,%7) <:#284,11250> <:#284,11250> <:#284,11250> @Subhead@<:#284,11250>' Declares <:#284,11250>' Forward declarations <:#284,11250>Declare SetOpeningOptions(OpenOptions, IsVersion, UserName, IsOrigAuthor, DocName) <:#284,11250>Declare Bye() <:#284,11250>Declare FXAutosty(DocName) <:#284,11250>Declare Version(UserName, Descript) <:#284,11250>Declare Remark() <:#284,11250>Declare EditingOptionsDialog(MarkingMode, IsVersion, IsOrigAuthor, UserName) <:#284,11250>Declare WorkgroupIcons(State) <:#284,11250>Delcare FontDlg(Action, Hdlg, id) <:#284,11250>Declare InDesignMode() <:#284,11250>Declare SetEditingMode(Mode) <:#284,11250>Declare ModifyMenu() <:#284,11250>Declare MenuDocInfo() <:#284,11250>Declare AmiUIGray(Id, State) <:#284,11250>Declare Builder() <:#284,11250>Declare FXLaunch(param) <:#284,11250>Declare SetupDocumentForFX(DocName) <:#284,11250>Declare Icons_Create() <:#284,11250>Declare GetDocUserFiedlName(Number) <:#284,11250>Declare HelpFunction() <:#284,11250>Declare FontDlg(Action, Hdlg, id) <:#284,11250> @Subhead@<:#284,11250>'FXAutosty declares <:#284,11250>Declare MoveControl(Hdlg, ControlToMove, ControlAbove, YDistance) <:#284,11250>Declare UpdateDefaultFields(aHoldUserFields) <:#284,11250>Declare FontDlg(Action, Hdlg, id) <:#284,11250>Declare RequestDocName(AHoldUserFields, NumUserFields, DocName) <:#284,11250>Declare SizeBox(Hdlg, NumberToShow) <:#284,11250> @Subhead@<:#284,11250>Function Main() @Comment@<:#231,11250>' the main entry point to the builder. This function will execute is the user selects Tools - Macros - Playback AmiFx.smm <:#284,11250>IgnoreKeyBoard(2) <:#284,11250>Mac = GetRunningMacroFile$() <:#284,11250>Stat = Builder() @Outline2@<:#284,11250>End Function <:#284,11250> <:#284,11250> <:p<* >> <:#284,11250>' This is called from the __FXMacro field in the notes form. @Subhead@<:#284,11250> @Subhead@<:#284,11250>Function FxLaunch(AdditionalMacroToRun) @Comment@' This should be executed if the document is embedded into a notes form see footnore below<:F @Footnote@The FX field __FxMacro will automatically run a macro when the document is OLE launched from notes. Therefore, "AmiFx.smm!FxLaunch()" should be in the __FXMacro field. To investigate this field, open the dochare.nsf database and open the document form i n design mode. > . <+@><:#284,11250>DefStr OpenOptions, IsVersion, UserName, IsOrigAuthor, DocName ; <:#284,11250> <:#284,11250> <:#284,11250> <:#284,11250>AllocGlobalVar(HasFXMacroRun,1) <:#284,11250>Mac = GetRunningMacroFile$() <:#284,11250> <:#284,11250>If GetGlobalVar$(HasFXMacroRun) != "1" <:#284,11250> ' The macro has not run, modify the menubar and setup mdi switching <:#284,11250> ModifyMenu() ' Modify the menus <:#284,11250> OnMdiActivate("{Mac}!FXMdiSwitch") ' setup the mdi switching <:#284,11250> SetGlobalVar(HasFXMacroRun, "1") <:#284,11250>Endif <:#284,11250>' Maximize Ami Pro <:#284,11250>AppMaximize("") <:#284,11250> <+@><:#284,11250>hTempNote = GetNotesWriteHandle() ' Retrieve a NotesHandle - Only with OLE launched docs <+@><:#284,11250>If hTempNote != 0 @Comment@<+@><:#231,11250> ' Valid notes handle, retrieve the info from the 5 custom fields <+@><:#284,11250> LibId = DllLoadLib("{AmiDir}Aminotes.dll","NotesFriendlyInit","A") <+@><:#284,11250> If LibId <+@><:#284,11250> If NotesInit() <+@><:#284,11250> ' Place the info from the Notes fields __FXParamx into variables <+@><:#284,11250> GetNotesStringField(hTempNote,"__FXPARAM1",&OpenOptions,50) <+@><:#284,11250> GetNotesStringField(hTempNote,"__FXPARAM2",&IsVersion,40) <+@><:#284,11250> GetNotesStringField(hTempNote,"__FXPARAM3",&UserName,40) <+@><:#284,11250> GetNotesStringField(hTempNote,"__FXPARAM4",&IsOrigAuthor,10) <+@><:#284,11250> GetNotesStringField(hTempNote,"__FXPARAM5",&DocName,40) <+@><:#284,11250> NotesTerm() <+@><:#284,11250> Endif <+@><:#284,11250> DllFreeLib(LibId) ' Free the dll <+@><:#284,11250> Endif <+@><:#284,11250>Else <+@><:#284,11250> Message(NoHandle, AmiMessage) <:#284,11250> Return -1 <+@><:#284,11250>Endif <:#284,11250>DocField_DocName = GetDocInfo$(DDUser1) ' Get the info in user field1 -where the docname is fx'd <:#284,11250> <:#284,11250> @Comment@<:#231,11250>' If no doc name has been stored in the user defined doc info field 1, then run autosty <:#284,11250>If DocField_DocName = "" @Comment@<:#231,11250> ' This is a new document - request info and turn the icons on <:#284,11250> Stat = FxAutosty(DocName) ' Run FXAutosty and request docname and description <:#284,11250> WorkgroupIcons(on) ' Turn the workgroup icons on <:#284,11250> Else @Comment@<:#231,11250> ' This is an existing doc - a doc that has already been named. @Comment@<:#231,11250> ' Just display the editing options box and set correct editing mode <:#284,11250> SetOpeningOptions(OpenOptions, IsVersion, UserName, IsOrigAuthor, DocName) <:#284,11250> Endif <:#284,11250> <:#284,11250>If Len(AdditionalMacroToRun) <;> 1 <:#284,11250> ' If a macro name was passed to the fuction, run the macro <:#284,11250> Calli AdditionalMacroToRun() <:#284,11250>Endif <:#284,11250> <:#284,11250> <:#284,11250>End Function <:#284,11250> @Subhead@<:#284,11250>Function SetupDocumentForFX(DocName) ' Setup the document to be compatible with the docshare database. see info <:F @Footnote@The Docshare.nsf transfers the document name through a field in Ami Pro's document info. The field should be renameed docname. To rename this field manually, select File - Doc Info, Other Fields..., and then Rename Fields. With Ami Pro 3.1, the field nam es travel with the document. The database transfers the remark through the description field of Ami Pro's doc info. > <:#284,11250>IgnoreKeyBoard(2) <:#284,11250>' Rename user field1 to "docname" <:#284,11250>RenameDocInfoField(0,Field1Name) <:#284,11250>' Set the document name into the user field1 and <:#284,11250>Dim Field(8) <:#284,11250>For t =2 to 8 <:#284,11250> Field(t) = GetDocInfo$(t + 7) <:#284,11250>Next <:#284,11250>' Put the docname into the first user defined field - the field has been rename to "docname" <:#284,11250>Stat = DocInfoFields(DocName,Field(2),Field(3),Field(4),Field(5),Field(6),Field(7),Field(8)) <:#284,11250>End Function <:#284,11250> @Subhead@<:#284,11250>Function SetOpeningOptions(OpenOptions, IsVersion, UserName, IsOrigAuthor, DocName) <:#284,11250>IgnoreKeyBoard(2) <:#284,11250>' @Comment@<:#231,11250>'Run when the document is opened from a notes form. @Comment@<:#231,11250> 'Extract the first field delimited with a ; from field 8 of doc info and do something @Comment@<:#231,11250>' here are the value @Comment@<:#231,11250>' 8 Lock for revision marking @Comment@<:#231,11250>' 16 lock for annotations @Comment@<:#231,11250>' Retrieve a flag from __FXPARAM1 @Comment@<:#231,11250>' check the flag against the various options <:#284,11250> <:#284,11250>Descript = GetDocInfo$(7) <:#284,11250>KeyWords = GetDocInfoKeyWords$() @Comment@<:#231,11250>' If this is an existing doc ask the editing option and describe version questions <:#284,11250> <:#284,11250>Stat = EditingOptionsDialog(OpenOptions, IsVersion, IsOrigAuthor, UserName) <:#284,11250> <:#284,11250>If IsVersion = 2 <:#284,11250> ' Prompt for a remark for this new version <:#284,11250> Version(&Descript, UserName) <:#284,11250> DocInfo(Descript, GetDocInfoKeywords$(),1); <:#284,11250>Endif <:#284,11250>End Function <:#284,11250> @Subhead@<:#284,11250>Function EditingOptionsDialog(MarkingMode, Isversion, IsOrigAuthor, UserName) <:#284,11250>' Display the editing options dialog box. <:#284,11250>IgnoreKeyBoard(2) @Comment@<:#231,11250>' Build the text that will be displayed at the top of the dialogbox describing where edits will be stored (version or original) <:#284,11250>Fname = StrField$(UserName,1," ") <:#284,11250>If Fname = -1 <:#284,11250> Fname = "" <:#284,11250>Endif <:#284,11250>If IsVersion = 2 <:#284,11250> Explanation = StrCat$(OptionText,InVersion) <:#284,11250>Elseif IsVersion = 1 <:#284,11250> Explanation = StrCat$(OptionText,InOriginal) <:#284,11250>Endif <:#284,11250> @Comment@<:#231,11250>' Set Different text depending of whether the current editor is the original author or not <:#284,11250>If IsOrigAuthor <:#284,11250> YourOptionsText = TextIsAuthor <:#284,11250>Else <:#284,11250> YourOptionsText = TextIsEditor <:#284,11250>Endif <:#284,11250> <:#284,11250>Mac = GetRunningMacroFile$() <:#284,11250>AmiDir = GetAmiDirectory$() <:#284,11250> <:#284,11250>FontDlg(1,0,0) ' Create a small font <:#284,11250> <:#284,11250>FillEdit(1000, "{AmiDir}FxPage.bmp") <:#284,11250>FillEdit(1001, "{AmiDir}FxPen.bmp") <:#284,11250>FillEdit(1002, Explanation) <:#284,11250>FillEdit(1003, YourOptionsText) <:#284,11250>FillEdit(1004, OptionEdit) <:#284,11250>FillEdit(1005, OptionTools) <:#284,11250> <:#284,11250>If MarkingMode & Rights_RevisionMarking <:#284,11250> ' Set Revision Marking mode radio on <:#284,11250> FillEdit(23,1) <:#284,11250>ElseIf MarkingMode & Rights_Annotations <:#284,11250> ' Set Rights for annotation radion on <:#284,11250> FillEdit(24,1) <:#284,11250>Else <:#284,11250> ' Set Full rights radio button on <:#284,11250> FillEdit(22,1) <:#284,11250>Endif <:#284,11250>FillEdit(21,1) <:#284,11250>FillEdit(25,1) <:#284,11250> <:#284,11250>SetDlgCallBack(0, "CallBack") ' Init routine for this box...set fonts and grey stuff <:#284,11250> <:#284,11250>AllocGlobalVar(GlobalOrigAuthor,1) <:#284,11250>SetGlobalVar(GlobalOrigAuthor,IsOrigAuthor) <:#284,11250> <:#284,11250>AllocGlobalVar(HelpPanelGlobalVar,1) <:#284,11250>SetGlobalVar(HelpPanelGlobalVar,HP_EditOptions) <:#284,11250>DlgKeyInterrupt(VK_F1,"{Mac}!HelpFunction") <:#284,11250> Box = DialogBox(".","Options") <:#284,11250>FreeGlobalVar(HelpPanelGlobalVar) <:#284,11250>FreeGlobalVar(GlobalOrigAuthor) <:#284,11250>FontDlg(4,0,0) ' Destroy the small font object and free the global variable <:#284,11250>If Box <<<;>1 <:#284,11250> ' They cancelled from the box <:#284,11250> Status = 0 <:#284,11250>Else <:#284,11250> <:#284,11250>If GetDialogField$(22) <:#284,11250> ' All Rights radio button selected <:#284,11250> SetEditingMode(Rights_Full) <:#284,11250>Endif <:#284,11250> <:#284,11250>If GetDialogField$(23) <:#284,11250> ' Revision Marking radio button <:#284,11250> SetEditingMode(Rights_RevisionMarking) <:#284,11250>Endif <:#284,11250> <:#284,11250>If GetDialogField$(24) <:#284,11250> ' Lock for annotations radio button <:#284,11250> SetEditingMode(Rights_Annotations) <:#284,11250>Endif <:#284,11250> <:#284,11250>If GetDialogField$(25) <:#284,11250> ' Show icons checkbox <:#284,11250> WorkgroupIcons(on) <:#284,11250>Else <:#284,11250> WorkgroupIcons(off) <:#284,11250>Endif <:#284,11250>Endif <:#284,11250>Return Status <:#284,11250>End Function @Subhead@<:#284,11250> @Subhead@<:#284,11250>Function SetEditingMode(EditingMode) <:#284,11250>' Set the editing mode for the document <:#284,11250>IgnoreKeyBoard(2) <:#284,11250>Descript = GetDocInfo$(7) <:#284,11250>KeyWords = GetDocInfoKeyWords$() <:#284,11250> <:#284,11250>If EditingMode & Rights_Full <:#284,11250> ' Turn off revision marking mode and give them full access <:#284,11250> Flag = GetInfo(AmiUI_InRevMarkModeFlag) <:#284,11250> DocInfo(Descript,Keywords,DocRunMacro) <:#284,11250> <:#284,11250> If Flag = 0 <:#284,11250> ' Not in revision marking mode <:#284,11250> Else <:#284,11250> ' In Revision marking mode - Toggle mode off <:#284,11250> Locked = GetInfo(AMiUI_DocumentLocked) <:#284,11250> If Locked << 64 <:#284,11250> Stat = RevisionMarking(1,0) <:#284,11250> Endif <:#284,11250> Endif <:#284,11250>Endif <:#284,11250> <:#284,11250>If EditingMode & Rights_RevisionMarking <:#284,11250> ' Enter revision marking mode <:#284,11250> DocInfo(Descript, KeyWords,5) <:#284,11250> RevisionMarking(1,1) <:#284,11250>Endif <:#284,11250> <:#284,11250>If EditingMode & Rights_Annotations <:#284,11250> ' lock for annotations <:#284,11250> DocInfo(Descript,KeyWords,DocLock) <:#284,11250>Endif <:#284,11250>HourGlass(off) <:#284,11250>End function <:#284,11250> @Subhead@<:#284,11250>Function ModifyMenu() <:#284,11250>IgnoreKeyBoard(2) <:#284,11250>' Add a menuitem to the View menu <:#284,11250>Mac = GetRunningMacroFile$() <:#284,11250>BarId = 1 <:#284,11250>DeleteMenuItem(1,ViewMenu,ViewMenuItem) <:#284,11250>InsertMenuItem(1, ViewMenu,10, ViewMenuItem,"{Mac}!FXMenuIcons(1)",ViewMenuHelpText) <:#284,11250>ChangeMenuAction(BarId,Menu_File,MenuItem_File,"{Mac}!MenuDocInfo()",MenuDocInfoHelp_File) <:#284,11250>End function <:#284,11250> @Subhead@<:#284,11250>Function FXMenuIcons(Param) <:#284,11250>' This function is called whenever the user selects the toggel workgroup icons from the view menu <:#284,11250>WorkgroupIcons(IconToggle) <:#284,11250>End Function <:#284,11250> @Subhead@<:#284,11250>Function MenuDocInfo() @Comment@<:#231,11250>' Macro to call the docinfo box and grey out several controls @Comment@<:#231,11250>' This is called before the Ami Pro document information box is displayed. May need to grey controls in the box @Outline2@<:#284,11250>If GetNotesWriteHandle != 0 @Outline2@<:#284,11250> Mac = GetRunningMacroFile$() @Outline2@<:#284,11250> runlater("{mac}!AmiUIGray(25550, 0)", 0.1) @Outline2@<:#284,11250> runlater("{mac}!AmiUIGray(25552, 0)", 0.1) @Outline2@<:#284,11250> pause(004) <:#284,11250>Endif <:#284,11250>DocInfo <:#284,11250>End Function <:#284,11250> @Subhead@<:#284,11250>function AmiUIGray(ID, State) @Comment@<:#231,11250>' get the handle to the active window @Comment@<:#231,11250>' then gray the control @Outline2@<:#284,11250>hdlg = getactivewindow() @Outline2@<:#284,11250>idnew = GetDlgItem(Hdlg, ID) @Outline2@<:#284,11250>enablewindow(idnew, state) @Outline2@<:#284,11250>end function <:#284,11250> @Subhead@<:#284,11250>Function FXMdiSwitch() @Comment@<:#231,11250>' This is called whenever MDI documents are switched. Check to see if this is Notes OLE doc. @Comment@<:#231,11250>'Try to get a notes WriteHandle, if one is present, this is an OLE doc from notes -<;> show the icons @Comment@<:#231,11250>If GetNotesWritehandle != 0 @Comment@<:#231,11250> ' Show the icons, this is an OLE launched doc from notes <:#284,11250> WorkgroupIcons(on) <:#284,11250>else @Comment@<:#231,11250> ' Hide the icons <:#284,11250> WorkgroupIcons(off) <:#284,11250>Endif <:#284,11250>End Function <:#284,11250> @Subhead@<:#284,11250>Function GetDocUserFieldName(Number) <:#284,11250>' Return the name of a custom doc info field. These may be displayed in File\Doc Info.. - Other Fields... <:#284,11250>' Only 8 fields are available <:#284,11250>If Number <<1 Or Number <;> 8 <:#284,11250> ' out of bounds <:#284,11250> Return "" <:#284,11250>Endif <:#284,11250>AllFieldNames = GetInfo(AMIUI_DESCRIPTFIELDS) <:#284,11250>TargetField = StrField$(AllFieldNames, Number,",") <:#284,11250>Return TargetField <:#284,11250>End function <:#284,11250> @SubFunction@<:#284,11250>Function FXAutoSty(DocName) @Outline2@<:#284,11250>ignorekeyboard(2) @Outline2@<:#284,11250>' This performs the same function as the _autosty.smm macro. @Outline2@<:#284,11250>Hourglass(on) @Outline2@<:#284,11250>rmac=getrunningmacrofile$() @Outline2@<:#284,11250>EverBeenRun=getprofilestring$("AutoStyleSheets", "DataGood", "AMIPRO2.INI") @Outline2@<:#284,11250>if EverBeenRun != 1 @Outline2@<:#284,11250> ' Collect the information that will be stored as defaults @Outline2@<:#284,11250> macpath=GetMacPath$() @Outline2@<:#284,11250> collector="{macpath}collect.smm" @Outline2@<:#284,11250> calli collector() @Outline2@<:#284,11250>endif @Comment@<:#231,11250>' Update any default fields with info from the AmiPro2.ini @Outline2@<:#284,11250>Dim AHoldUserFields(1) @Outline2@<:#284,11250>NumUserFields = UpdateDefaultFields(&AHoldUserFields) @Outline2@<:#284,11250>RequestDocName(&AHoldUserFields, NumUserFields, DocName) @Outline2@<:#284,11250>MarkBookMark(BM_StartTypingHere, FindBookMark ) @Outline2@<:#284,11250>MarkBookMark(BM_StartTypingHere, DeleteBookMark ) @Outline2@<:#284,11250>HourGlass(off) @Outline2@<:#284,11250>end function <:#284,11250> @SubFunction@<:#284,11250>Function UpdateDefaultFields(AHoldUserFields) @Comment@<:#231,11250>' Update any automated default fields with information from the AmiPro2.ini @Comment@<:#231,11250>' Stores the user fields in the array AholduserFields @Comment@<:#231,11250>' returns the number of user fields in the docuement <:#284,11250>Count = GetPowerFieldCount(0) <:#284,11250>If Count << 1 <:#284,11250> ' No powerfields, return <:#284,11250> Return 0 <:#284,11250>Endif <:#284,11250>Dim Fields(Count) <:#284,11250>GetPowerFields(0,&Fields) <:#284,11250>Quote = Chr$(34) <:#284,11250>For t = 1 to Count <:#284,11250> PowerField = Fields(t) @Outline3@<:#284,11250> PowerFieldId = StrField$(PowerField,1,",") @Outline3@<:#284,11250> PowerFieldType = StrField$(PowerField,2,",") @Outline3@<:#284,11250> ReadableFieldText = StrField$(PowerField, 3, ",") @Outline3@<:#284,11250> CheckIfAs = Right$(StrField$(ReadableFieldText,1,"_"),2) @Outline3@<:#284,11250> If CheckIfAs = "as" @Comment@<:#231,11250> ' Is this an automated field @Outline3@<:#284,11250> If "def" = StrField$(ReadableFieldText,2,"_") @Comment@<:#231,11250> ' This is a default field @Comment@<:#231,11250> ' This is the name of the first as_user_3_eb_City etc... @Outline3@<:#284,11250> VariableName = StrField$(ReadableFieldText,3," ") @Comment@<:#231,11250> ' Name of the ini entry holding this info @Outline3@<:#284,11250> IniEntry = StrField$(VariableName,6,"_") @Outline3@<:#284,11250> AllocGlobalVar(VariableName,1) @Outline3@<:#284,11250> FromIni = GetIniInfo(IniEntry) @Outline3@<:#284,11250> SetGlobalVar(VariableName, FromIni) @Outline3@<:#284,11250> GotoPowerField(PowerFieldId, PowerFieldType) @Outline3@<:#284,11250> FieldEvaluate() @Outline3@<:#284,11250> FieldRemove(PowerFieldId, PowerFieldType) @Outline3@<:#284,11250> FreeGlobalVar(VariableName) @Outline3@<:#284,11250> Else @Comment@<:#231,11250> ' This is a user field and will be store in an array to pass to the docname box @Outline3@<:#284,11250> NumUserFields = NumUserFields + 1 @Outline3@<:#284,11250> VariableName = StrField$(ReadableFieldText,3," ") @Outline3@<:#284,11250> NameForDlgItem = StrField$(ReadableFieldText,2,"{Quote}") @Outline3@<:#284,11250> Item = StrCat$(VariableName,Delim,NameForDlgItem,Delim,PowerFieldId) @Outline3@<:#284,11250> ArrayInsertByKey(&AHoldUserFields,Item,False,3,Delim) @Outline3@<:#284,11250> Endif @Outline3@<:#284,11250> Endif @Outline3@<:#284,11250> Next @Outline3@<:#284,11250>Return NumUserFields; <:#284,11250>End Function <:#284,11250> <:#284,11250> @SubFunction@<:#284,11250>Function RequestDocName(AHoldUserFields, NumUserFields, DocName) @Comment@<:#231,11250>' Display the dialog that requests document name and initial remark. Also prompt for automated fields <:#284,11250>IgnoreKeyBoard(2) <:#284,11250>Mac = GetRunningMacroFile$() <:#284,11250>FxPen = StrCat$(GetAmiDirectory$(),penbmp) ' Filledit the bitmaps <:#284,11250>FxPage = StrCat$(GetAmiDirectory$(),pagebmp) <:#284,11250>FillEdit(1013, FxPage) <:#284,11250>FillEdit(1010, FxPen) <:#284,11250>FillEdit(8010, DocName) <:#284,11250>FillEdit(8011, GetDocInfo$(DDDescription)) <:#284,11250> <:#284,11250>AllocGlobalVar(NumOptionalItems, 1) <:#284,11250>SetGlobalVar(NumOptionalItems,NumUserFields) <:#284,11250> <:#284,11250>SetDlgCallBack(8010,"DocNameCallBack") <:#284,11250>SetDlgCallBack(0, "DlgDocNameInit") <:#284,11250>For t = 1 to NumUserFields <:#284,11250> Item = StrField$(*AHoldUserFields(t),2,Delim); <:#284,11250> FillEdit(1000+t,Item) <:#284,11250>Next <:#284,11250> <:#284,11250>AllocGlobalVar(HelpPanelGlobalVar,1) <:#284,11250>SetGlobalVar(HelpPanelGlobalVar,HP_NewDoc) <:#284,11250>DlgKeyInterrupt(VK_F1,"{Mac}!HelpFunction") <:#284,11250> <:#284,11250>Box = DialogBox(".","DocName") <:#284,11250>FreeGlobalVar(NumOptionalItems) <:#284,11250>FreeGlobalVar(HelpPanelGlobalVar) <:#284,11250> <:#284,11250>If Box <<<;> 1 <:#284,11250> <:#284,11250>Endif @Outline3@<:#284,11250> @Outline3@<:#284,11250>DocName = GetDialogField$(8010) @Outline3@<:#284,11250>DocDescription = GetDialogField$(8011); @Comment@<:#231,11250>' Set the doc info and the name @Outline3@<:#284,11250>stat = DocInfo(DocDescription,"",1) @Outline3@<:#284,11250>SetupDocumentForFx(DocName) ' Rename the user field1 to docname and set the docname @Outline3@<:#284,11250> @Outline3@<:#284,11250>For EditField = 1 to NumUserFields @Outline3@<:#284,11250> PowerFieldType = 3 @Outline3@<:#284,11250> Information = GetDialogField$(8000 + EditField) @Comment@<:#231,11250> IF Information = 0 @Comment@<:#231,11250> Information = "" @Comment@<:#231,11250> Endif @Comment@<:#231,11250> ' Retrieved the info from the edit field, no alloc a global var, update the info and remove the field @Outline3@<:#284,11250> ArrayInfo = *AHoldUserFields(EditField) @Outline3@<:#284,11250> VariableName = StrField$(ArrayInfo, 1, Delim) @Outline3@<:#284,11250> PowerFieldId = StrField$(ArrayInfo, 3, Delim) @Outline3@<:#284,11250> AllocGlobalVar(VariableName,1) @Outline3@<:#284,11250> SetGlobalVar(VariableName, Information) @Outline3@<:#284,11250> GotoPowerField(PowerFieldId, PowerFieldType) @Outline3@<:#284,11250> FieldEvaluate() @Outline3@<:#284,11250> FieldRemove(PowerFieldId, PowerFieldType) @Outline3@<:#284,11250> FreeGlobalVar(VariableName) @Outline3@<:#284,11250>Next <:#284,11250>End Function <:#284,11250> @Subhead@<:#284,11250>Function DocNameCallBack(Hdlg, Id, Value) <:#284,11250>IgnoreKeyBoard(2) <:#284,11250>' Callback routine for the dialog box that requests the document name and custome information. <:#284,11250>Define Enable 1 <:#284,11250>Define Disable 0 <:#284,11250>DocNameValue = GetDlgItemText(Hdlg, 8010) <:#284,11250>If Len(DocNameValue) << 1 <:#284,11250> EnableWindow(GetDlgItem(Hdlg, 1),Disable) <:#284,11250>Else <:#284,11250> EnableWindow(GetDlgItem(Hdlg,1),Enable) <:#284,11250>Endif <:#284,11250>End Function <:#284,11250> @SubFunction@<:#284,11250>Function DlgDocNameInit(Hdlg, Id, Value) <:#284,11250>IgnoreKeyBoard(2) @Comment@<:#231,11250>' Callback procedure for the dlg to retrieve the document name and optional information <:#284,11250>NumberItems = GetGlobalVar$(NumOptionalItems) <:#284,11250>Id = Id *1 <:#284,11250>Switch Id <:#284,11250> Case 0 @Comment@<:#231,11250> ' // This is called before the box is displayed. @Comment@<:#231,11250> ' // Size the box to display only the number of fields we want <:#284,11250> If Len(GetDlgItemText(Hdlg,8010)) <;> 0 <:#284,11250> Else <:#284,11250> EnableWindow(GetDlgItem(Hdlg,1),Disable) <:#284,11250> Endif <:#284,11250> SizeBox(Hdlg, NumberItems) @Comment@<:#231,11250> ' // only allow 38 characters for the document name - doc info fields only hold 39 <:#284,11250> hEditBox = GetDlgItem(Hdlg, 8010) <:#284,11250> AppSendMessage(hEditBox, EM_LimitText, MaxLengthName, 0) <:#284,11250> Default <:#284,11250>EndSwitch <:#284,11250>End Function <:#284,11250> @SubFunction@<:#284,11250>Function SizeBox(Hdlg, EditsToShow) @Outline3@<:#284,11250>IgnoreKeyBoard(2) @Outline3@<:#284,11250>Dim Rect(4) @Outline3@<:#284,11250>GetWindowRect(hDlg,&rect) @Outline3@<:#284,11250>x=rect(1) @Outline3@<:#284,11250>y=rect(2) @Outline3@<:#284,11250>cx=rect(3) @Outline3@<:#284,11250>cy=rect(4) @Outline3@<:#284,11250>MoveShrink = 24 * (9 - EditsToShow) @Outline3@<:#284,11250>MoveWindow(hDlg,x,y,cx-x,cy-(y+MoveShrink) ) @Outline3@<:#284,11250>For t = EditsToShow to 8 @Outline3@<:#284,11250> ShowWindow(GetDlgItem(Hdlg, 8001 + t), 0) @Outline3@<:#284,11250> ShowWindow(GetDlgItem(Hdlg, 1001 + t), 0) @Outline3@<:#284,11250>Next @Outline3@<:#284,11250>End Function <:#284,11250> @Subhead@<:#284,11250>Function Version(Descript, UserName) <:#284,11250>IgnoreKeyBoard(2) <:#284,11250>DefStr Name; <:#284,11250>Mac = GetRunningMacroFile$() <:#284,11250>AmiDir = GetAmiDirectory$() <:#284,11250>FontDlg(1,0,0); <:#284,11250>Name = UserName; <:#284,11250>Today = FormatDate$(Now(),"d") <:#284,11250>FillEdit(8000, Version_Describe) <:#284,11250>FillEdit(1010,"{AmiDir}FxPen.bmp") <:#284,11250>SetDlgCallBack(0,"InitVersion") <:#284,11250>FillEdit(1000, Text1) <:#284,11250>FillEdit(1001, Text2) <:#284,11250>FillEdit(1002, Text3) <:#284,11250> <:#284,11250><:f><:f>AllocGlobalVar(HelpPanelGlobalVar,1) <:#284,11250>SetGlobalVar(HelpPanelGlobalVar,HP_Remark) <:#284,11250>DlgKeyInterrupt(VK_F1,"{Mac}!HelpFunction") <:#284,11250> <:#284,11250>WorkgroupIcons(Icon_Disable) <:#284,11250>Box = DialogBox(".","Version"); <:#284,11250>WorkGroupIcons(Icon_Enable) <:#284,11250> <:#284,11250>FreeGlobalVar(HelpPanelGlobalVar) <:#284,11250> <:#284,11250>Info = GetDialogField$(8000); <:#284,11250>*Descript = Info; <:#284,11250>FontDlg(4,0,0) <:#284,11250>End Function <:#284,11250> <:#284,11250> @Subhead@<:#284,11250>Function Remark() <:#284,11250>IgnoreKeyBoard(2) <:#284,11250>DefStr Name; <:#568,11250>' Display the remark dialog box. Store the remark in the description field of doc info. This will be FX'd back to Notes <:#284,11250>Mac = GetRunningMacroFile$() <:#284,11250>AmiDir = GetAmiDirectory$() <:#284,11250>FontDlg(1,0,0); <:#284,11250>Describe = GetDocInfo$(7) <:#284,11250>FillEdit(8000, Describe) <:#284,11250>FillEdit(1010,"{AmiDir}FxPen.bmp") <:#284,11250>SetDlgCallBack(0,"InitVersion") <:#284,11250>FillEdit(1000, RemText1) <:#284,11250>FillEdit(1001, RemText2) <:#284,11250>FillEdit(1002, RemText3) <:#284,11250> <:#284,11250>AllocGlobalVar(HelpPanelGlobalVar,1) <:#284,11250>SetGlobalVar(HelpPanelGlobalVar,HP_Remark) <:#284,11250>DlgKeyInterrupt(VK_F1,"{Mac}!HelpFunction") <:#284,11250> <:#284,11250>Box = DialogBox(".","Remark"); <:#284,11250>FreeGlobalVar(HelpPanelGlobalVar) <:#284,11250> <:#284,11250>If Box <<<;> 1 <:#284,11250> Return -1 <:#284,11250>Endif <:#284,11250>Info = GetDialogField$(8000); <:#284,11250>DocInfo(Info, GetDocInfoKeywords$(),1); <:#284,11250>FontDlg(4,0,0) <:#284,11250>End Function <:#284,11250> @SubFunction@<:#284,11250>Function InitVersion(hdlg, id, value) @Comment@<:#231,11250>' Set the font small <:#284,11250>FontDlg(3,Hdlg, 1000) <:#284,11250>FontDlg(3,Hdlg,1001) <:#284,11250>FontDlg(3,Hdlg, 1002) <:#284,11250>FontDlg(3,Hdlg,8000) @Comment@<:#231,11250>' select all characters in the 8000 editbox <:#284,11250>AppSendMessage(GetDlgITem(Hdlg, 8000),EM_SetSel,0,32767) <:#284,11250>End Function <:#284,11250> <:#284,11250> @SubFunction@<:#284,11250>Function CallBack(Hdlg, id, Value) <:#284,11250>IgnoreKeyBoard(2) ' Callback<:F @Footnote@Callbacks are triggered events linked to macro dialog boxes. They are set using the SetDlgCallBack macro command. The callback routine is mainly used to grey items in a dialog box or set the box into a specific state before it is actually displayed. > routine for the box that will display if this not a new document and we are launched from Notes <:#284,11250>Id = Id * 1; <:#284,11250>Switch Id <:#284,11250> Case 0 <:#284,11250> 'Init routine <:#284,11250> ' make the fonts small <:#284,11250> For TextId = 1002 to 1005 <:#284,11250> FontDlg(3, Hdlg, TextId) <:#284,11250> Next <:#284,11250> For Radio = 20 to 26 <:#284,11250> FontDlg(3, Hdlg, Radio) <:#284,11250> Next <:#284,11250> EnableWindow(GetDlgItem(Hdlg, 26),0) <:#284,11250> IsOrigAuthor = GetGlobalVar$(GlobalOrigAuthor) <:#284,11250> If IsOrigAuthor <:#284,11250> ' The current editor is the original author, no need to grey out radio button <:#284,11250> Else <:#284,11250> ' Current editor is not the original author, grey our radio buttons <:#284,11250> <:#284,11250> If GetDlgItemText(Hdlg, 22) = 1 <:#284,11250> 'EnableWindow(GetDlgItem(Hdlg, 23),Disable) <:#284,11250> 'EnableWindow(GetDlgItem(Hdlg, 24),Disable) <:#284,11250> ElseIf GetDlgItemText(Hdlg,23) = 1 <:#284,11250> EnableWindow(GetDlgItem(Hdlg, 22),Disable) <:#284,11250> EnableWindow(GetDlgItem(Hdlg, 24),Disable) <:#284,11250> Else <:#284,11250> EnableWindow(GetDlgItem(Hdlg, 22),Disable) <:#284,11250> EnableWindow(GetDlgItem(Hdlg, 23),Disable) <:#284,11250> Endif <:#284,11250> Endif <:#284,11250> Default <:#284,11250>EndSwitch <:#284,11250>End Function <:#284,11250> @Subhead@<:#284,11250>' Outwin Defines @Subhead@<:#284,11250>Function WorkgroupIcons(State) <:#284,11250>IgnoreKeyBoard(2) <:#284,11250>' Manage the icons that will help take the user back to Notes. <:#284,11250>DefStr hWnd, hBar; <:#284,11250>Mac = GetRunningMacroFile$() <:#284,11250>AllocGlobalVar(hFxOutWin,1) <:#284,11250>AllocGlobalVar(hFxIconBar,1) <:#284,11250>hBar = GetGlobalVar$(hFxIconBar) <:#284,11250>If hBar != "" ' if the window is already created, then show/hide or toggle the visibility <:#284,11250> Switch State <:#284,11250> Case on <:#284,11250> ShowWindow(hBar,1) <:#284,11250> Return 0 <:#284,11250> Case off <:#284,11250> ShowWindow(hBar,0) <:#284,11250> Return 0 <:#284,11250> Case IconToggle <:#284,11250> If IsWindowVisible(hBar) <:#284,11250> ' It is visible, hide it <:#284,11250> ShowWindow(hBar, 0) <:#284,11250> Else <:#284,11250> ' it is hidden, show it <:#284,11250> ShowWindow(hBar, 1) <:#284,11250> Endif <:#284,11250> Return 0 Case Icon_Enable <:#284,11250> EnableWindow(hBar,1) Case Icon_Disable <:#284,11250> EnableWindow(hBar,0) <:#284,11250> <:#284,11250> Default: <:#284,11250> EndSwitch <:#284,11250>Else <:#284,11250> ' Icons have not been created <:#284,11250> ' Create the icons, then show/hide the pallette <:#284,11250> hIconBar = Icons_Create() <:#284,11250> If hIconBar != "" <:#284,11250> WorkgroupIcons(State) <:#284,11250> Else <:#284,11250> Return -1 <:#284,11250> Endif <:#284,11250>Endif <:#284,11250>End Function <:#284,11250> <:#284,11250> @Subhead@<:#284,11250>Function Icons_Create() <:#284,11250>' Create the icon pallette. Do not show the window <:#284,11250>Mac = GetRunningMacroFile$() <:#284,11250>LibId = DllLoadLib("{amidir}outdll.dll", "CreateTheWin", "HHHHHHHC") <:#284,11250> <:#284,11250>If LibId = 0 <:#284,11250> Message(NoLoadOutWin, AmiMessage) <:#284,11250> Return -1 <:#284,11250>Endif <:#284,11250>Define ActiveTextWin 267 <:#284,11250>hWndParent = GetInfo(ActiveTextWin) <:#284,11250> <:#284,11250>ScrHeight = GetSystemMetrics(sm_cyscreen) <:#284,11250>If ScrHeight = 480 <:#284,11250> y = 309 <:#284,11250>Else <:#284,11250> y = ScrHeight - 173 <:#284,11250>Endif <:#284,11250> <:#284,11250>Flag = 1; <:#284,11250>x = 515; <:#284,11250>cx = 114; <:#284,11250>cy = 138; <:#284,11250>' No need to localize this text <:#284,11250>Title = "Workgroup"; <:#284,11250>IconIni = "fxicons" <:#284,11250>PalEga = "" <:#568,11250>PalVga = "FxPalVga.dll" ' dll to hold bitmaps that will display on the icon bar. Edit this dll with a resource editor to explore/change the icons <:#284,11250>Pal8514 = "" <:#284,11250>IconPos = 5 ' Make it a floating bar <:#284,11250>Table = "fxicons" ' name of smi <:#284,11250> <:#284,11250>hWnd = CreateTheWin(hWndParent,Flag,x,y,cx,cy,Title) <:#284,11250>If hWnd <:#284,11250> ' Setup the icons to return a number to the hiticon function when the icon is hit <:#284,11250> For Icon = 1 to 8 <:#284,11250> AddMacroCall(hwnd , "{mac}!HitIcon({Icon})", Icon) ' insert object <:#284,11250> Next <:#284,11250> ' Set globals we will need next time we are here <:#284,11250> IconOn(hWnd,IconIni, PalVga,PalVga,PalVga,IconPos,Table) <:#289,11250> hIconBar = findwindow("SmartIconBar", 0) ' <+!>get the handle to the palette<-!> <:#284,11250> MoveWindow(hIconBar, x, y, cx, cy, 1) <:#284,11250> SetGlobalVar(hFXIconBar,hIconBar) <:#284,11250> SetGlobalVar(hFXOutWin, hwnd) <:#284,11250>Endif <:#284,11250>Return hIconBar <:#284,11250>End Function <:#284,11250> @SubFunction@<:#284,11250> @SubFunction@<:#284,11250> @SubFunction@<:#284,11250> @SubFunction@<:#284,11250> @SubFunction@<:#284,11250>Function HitIcon(Icon) <:#284,11250>IgnoreKeyBoard(2) <:#284,11250>If GetOpenFileCount()<< 1 <:#284,11250> ' No files are currently open, don't do anything with the icon pallette. <:#284,11250> Return -1 <:#284,11250>Endif <:#284,11250>If GetNotesWriteHandle = 0 <:#284,11250> ' This document is not launched from notes. Remove the palette <:#284,11250> Message(ErrorNotOLEDoc, AmiMessage) <:#284,11250> WorkgroupIcons(off) <:#284,11250> Return -1 <:#284,11250>Endif <:#284,11250> <:#284,11250> <:#284,11250> <:#284,11250> <:#284,11250>Switch Icon <:#284,11250> Case FXIcon_GoNotes <:#284,11250> ' Go to notes <:#284,11250> If IsOkToRun(Save) <:#284,11250> Save() <:#284,11250> Endif <:#284,11250> FileClose() <:#284,11250> WorkgroupIcons(off) <:#284,11250> ActivateApp(AppNotes) <:#284,11250> '// This puts Notes into edit mode <:#284,11250> 'Id = DDEInitiate("Notes","Action") <:#284,11250> 'If Id = 0 <:#284,11250> ' Break; <:#284,11250> ''Endif <:#284,11250> 'Quote = Chr$(34) ' " <:#284,11250> 'Lb = Chr$(91) ' <[> <:#284,11250> 'Rb = Chr$(93) ' ] <:#284,11250> ' Now build the string @command(<[>EditDocument];"1") <:#284,11250> 'DDECommand = StrCat$("@Command(",LB,"EditDocument",RB,";",Quote,"1",Quote,")") <:#284,11250> 'DDEExecute(Id, DDECommand) <:#284,11250> 'DDETerminate(id) <:#284,11250> Break; <:#284,11250> <:#284,11250> Case FXIcon_Remark <:#284,11250> ' Editors remarks here <:#284,11250> Remark() <:#284,11250> Break; <:#284,11250> <:#284,11250> Case FXIcon_RevMark <:#284,11250> If IsFrameSelected() <:#284,11250> Return 0 <:#284,11250> Endif <:#284,11250> Flag = GetInfo(AmiUI_InRevMarkModeFlag) <:#284,11250> If Flag = 0 <:#284,11250> ' Not in revision marking mode <:#284,11250> ' turn the mode on <:#284,11250> Locked = GetInfo(AMiUI_DocumentLocked) <:#284,11250> If Locked << 64 <:#284,11250> Stat = RevisionMarking(1,1) <:#284,11250> Endif <:#284,11250> <:#284,11250> Else <:#284,11250> ' In Revision marking mode - Toggle mode off <:#284,11250> Locked = GetInfo(AMiUI_DocumentLocked) <:#284,11250> If Locked << 64 <:#284,11250> Stat = RevisionMarking(1,0) <:#284,11250> Endif <:#284,11250> Endif <:#284,11250> Break; <:#284,11250> <:#284,11250> Case FXIcon_Review <:#284,11250> If IsFrameSelected() <:#284,11250> Return 0 <:#284,11250> Endif <:#284,11250> Locked = GetInfo(AMiUI_DocumentLocked) <:#284,11250> If Locked << 64 <:#284,11250> RevisionMarking(2 0 ) <:#284,11250> ReviewRevisions() <:#284,11250> Endif <:#284,11250> Break; <:#284,11250> <:#284,11250> Case FXIcon_DocInfo <:#284,11250> ' Call routine that will gray out the controls <:#284,11250> MenuDocInfo() <:#284,11250> Break; <:#284,11250> <:#284,11250> Case FXIcon_Mail <:#284,11250> SendMail <:#284,11250> Break; <:#284,11250> <:#284,11250> Case FXIcon_InsertNote <:#284,11250> If IsFrameSelected() <:#284,11250> Return 0 <:#284,11250> Endif <:#284,11250> InsertNote <:#284,11250> Type ("<[>Left]") <:#284,11250> GoToCmd(GoMark, 0, GoNote) <:#284,11250> <:#284,11250> Break; <:#284,11250> <:#284,11250> Case FXIcon_GotoNote <:#284,11250> GoToCmd(GoMark, 0, GoNote) <:#284,11250> Break; <:#284,11250>EndSwitch <:#284,11250>End Function <:#284,11250> <:#284,11250> @SubFunction@<:#284,11250>Function FontDlg(Action, Hdlg, id) <:#284,11250>' Generic routine to create a small font to be used in a dialog box. <:#284,11250>' 1 Create a font and allocvar <:#284,11250>' 2 Return the handle of the create font <:#284,11250>' 3 Set the id specified to the font <:#284,11250>' 4 Freeglobalvar and delete created object <:#284,11250> @Outline2@<:#568,11250>define CreateFontDLG() DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14) @Outline2@<:#284,11250>define DeleteObjectDLG(handle) DllCall("gdi,DeleteObject,HH", %1) @Outline2@<:#284,11250>define SendMessageDLG(hwnd, msg, wpara, lparm) DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4) @Outline2@<:#284,11250> <:#284,11250>Switch Action <:#284,11250> Case 1 ' Create the font and store it @Outline2@<:#284,11250> Font = CreateFontDLG(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv") <:#284,11250> AllocGlobalVar("FontHandle",1) <:#284,11250> If Font <:#284,11250> SetGlobalVar("FontHandle",Font) <:#284,11250> Return Font <:#284,11250> Else <:#284,11250> Return 0; ' no font <:#284,11250> Endif <:#284,11250> Break; <:#284,11250> Case 2 ' Return the handle to the font <:#284,11250> Handle = GetGlobalVar$("FontHandle") <:#284,11250> If Handle <:#284,11250> Return Handle <:#284,11250> Else <:#284,11250> Return 0 <:#284,11250> Endif <:#284,11250> <:#284,11250> Case 3 ' Set the id to the font <:#284,11250> Handle = GetGlobalVar$("FontHandle") <:#284,11250> If Handle <:#284,11250> IdControl = GetDlgITem(Hdlg, id) <:#284,11250> SendMessageDlg(idControl, 0x30, Handle, 0) <:#284,11250> Return 1 <:#284,11250> Else <:#284,11250> Return 0 <:#284,11250> Endif <:#284,11250> Break; <:#284,11250> <:#284,11250> Case 4 ' Delete the font and clear the var <:#284,11250> Handle = GetGlobalVar$("FontHandle") <:#284,11250> If Handle <:#284,11250> DeleteObjectDLG(Handle) <:#284,11250> Stat = 1 <:#284,11250> Else <:#284,11250> Stat = 0 <:#284,11250> Endif <:#284,11250> FreeGlobalVar("FontHandle") <:#284,11250> Return Stat <:#284,11250> Default <:#284,11250> Message(FontBadParam, AmiMessage) <:#284,11250>EndSwitch <:#284,11250>End Function <:p<* >> <:#284,11250> @Subhead@<:#284,11250>'Builder Defines <:#284,11250>Define Delay 0.1 <:#284,11250>Define Sep "~" <:#284,11250>Define Prefix "@AmiFx_" <:#284,11250>Define FXOpenMacro "AmiFx.smm!Main(1)" <:#284,11250>Define FXCloseMacro "AmiFx.smm!Bye()" <:#284,11250>Define RunOpen 2 <:#284,11250>Define RunClose 4 <:#284,11250> <:#284,11250> @Subhead@<:#284,11250>'Declares <:#284,11250>Declare AmiButtonCheck(Id, State) <:#284,11250>'Declare AmiUiGrey(Id, State) <:#284,11250>Declare AmiTitleBar(Title) <:#284,11250>Declare GetFields() <:#284,11250>Declare AddFxMarks(Array) <:#284,11250>Declare Stripit(name) @Outline2@<:#284,11250>Declare CopyOrNew(UseStyle, KeepFormat) @Outline2@<:#284,11250>Declare CreateNewTemplate(UseStyle, KeepFormat) <:#284,11250>Declare CopyDocToDatabase() <:#284,11250>Declare CopyToClipBoard() <:#284,11250>Declare SetAppFocus() <:#284,11250> @Subhead@<:#284,11250>Function Builder() @Main Macro@<:#284,11250>' Display the dialog and ask whether to copy a document or create a new template @Main Macro@<:#284,11250>DefStr UseStyle, KeepFormat; <:#284,11250> <:#284,11250>Mac = GetRunningMacroFile$() <:#284,11250>FillEdit(21, 1) <:#284,11250>FillEdit(30,1) <:#284,11250>Filledit(1000, Text_Upload) <:#284,11250>FillEdit(1001, Text_NewTemplate) <:#284,11250>SetDlgCallBack(0,"Dlg_Builder") <:#284,11250>SetDlgCallBack(21,"Dlg_Builder") <:#284,11250>SetDlgCallBack(22,"Dlg_Builder") <:#284,11250> <:#284,11250> <:#284,11250>AllocGlobalVar(HelpPanelGlobalVar,1) <:#284,11250>SetGlobalVar(HelpPanelGlobalVar,HP_Assistant) <:#284,11250>DlgKeyInterrupt(VK_F1,"{Mac}!HelpFunction") <:#284,11250> <:#284,11250>FontDlg(1,0,0) ' Create a small font for the dialog text <:#284,11250>Box = DialogBox(".","CreateDoc") <:#284,11250>FontDlg(4,0,0) ' Clear the font created above <:#284,11250>FreeGlobalVar(HelpPanelGlobalVar) <:#284,11250>If Box <<<;> 1 <:#284,11250> Return -1 <:#284,11250>Endif <:#284,11250> <:#284,11250>If GetDialogField$(30) <:#284,11250> UseStyle = 1; <:#284,11250>Endif <:#284,11250>If GetDialogField$(31) <:#284,11250> KeepFormat = 1 <:#284,11250>Endif <:#284,11250> <:#284,11250>If GetDialogField$(21) <:#284,11250> Stat = 1 <:#284,11250>Else <:#284,11250> Stat = 2 <:#284,11250>Endif <:#284,11250> @Main Macro@<:#284,11250>Switch Stat <:#284,11250> Case 1 <:#284,11250> ' Copy an existing document to the database <:#284,11250> CopyDocToDataBase() <:#284,11250> Break @Outline2@<:#284,11250> Case 2 @Outline2@<:#284,11250> ' Create a new template <:#284,11250> CreateNewTemplate(UseStyle, KeepFormat) <:#284,11250> Break; <:#284,11250> Default <:#284,11250> Return -1 <:#284,11250>EndSwitch <:#284,11250>End Function <:#284,11250> <:#284,11250> @Subhead@<:#284,11250>Function Dlg_Builder(Hdlg, id) <:#284,11250>' Callback routine for the builder dialog <:#284,11250> <:#284,11250>Switch Id <:#284,11250> Case "" <:#284,11250> ' Init routine for the dlg <:#284,11250> FontDlg(3,Hdlg, 21) <:#284,11250> FontDlg(3,Hdlg, 22) <:#284,11250> FontDlg(3, Hdlg, 1000) <:#284,11250> FontDlg(3, Hdlg, 1001) <:#284,11250> FontDlg(3, Hdlg, 30) <:#284,11250> FontDlg(3, Hdlg, 31) <:#284,11250> ' Disable the checkbox controls below the create the new template <:#284,11250> EnableWindow(GetDlgItem(Hdlg, 30),0) <:#284,11250> EnableWindow(GetDlgItem(Hdlg, 31),0) <:#284,11250> Case 21 <:#284,11250> ' Disable the checkbox controls below the create the new template <:#284,11250> EnableWindow(GetDlgItem(Hdlg, 30),0) <:#284,11250> EnableWindow(GetDlgItem(Hdlg, 31),0) <:#284,11250> Case 22 <:#284,11250> 'Enable the checkbox controls <:#284,11250> EnableWindow(GetDlgItem(hdlg,30),1) <:#284,11250> EnableWindow(GetDlgItem(hdlg,31),1) <:#284,11250>EndSwitch <:#284,11250>End Function <:#284,11250> @Subhead@<:#284,11250>Function CopyDocToDataBase() <:#284,11250>Define CurrentDoc "Copy the current document into the database" <:#284,11250>If GetOpenFileCount() << 1 <:#284,11250> ' If no docs are open, open the _default.sty <:#284,11250> DefStyleSheet = GetProfileString$("AmiPro","DefStyle","AmiPro.Ini") <:#284,11250> New(DefStyleSheet 1 512 ) <:#284,11250>Endif <:#284,11250> <:#284,11250> <:#284,11250>If Decide(CurrentDoc) <:#284,11250> ' Copy part of this document to the clipboard <:#284,11250>Else <:#284,11250> ' Don't want to copy the current document, display the fileopen dialogbox <:#284,11250> If FileOpen <:#284,11250> Else <:#284,11250> ' Cancelled from the fileopen box <:#284,11250> Return -1 <:#284,11250> Endif <:#284,11250>Endif <:#284,11250> <:#284,11250>' Collect one character of text from the top of the file <:#284,11250>If CopyToClipboard() <:#284,11250>Else <:#284,11250> Return -1 <:#284,11250>Endif <:#284,11250> <:#284,11250>RenameDocInfoField(0,Field1Name) <:#284,11250>Mac = GetRunningMacroFile$() <:#284,11250>Dim Instructions(3) <:#284,11250>Instructions(1) = CopyNotes_Instruction1 <:#284,11250>Instructions(2) = CopyNotes_Instruction2 <:#284,11250>Instructions(3) = CopyNotes_Instruction3 <:#284,11250>MacroCallBack = "{Mac}!PasteDocToNotes" <:#284,11250>AllocGlobalVar(HelpPanelGlobalVar,1) <:#284,11250>SetGlobalVar(HelpPanelGlobalVar,HP_CopyToNotes) <:#284,11250>DlgKeyInterrupt(VK_F1,"{Mac}!HelpFunction") <:#568,11250>Call MacroLib.smm!FloatingNotesInstructions(&Instructions, CopyNotes_Caption, CopyNotes_ButtonText, MacroCallBack) <:#284,11250>FreeGlobalVar(HelpPanelGlobalVar) <:#284,11250>End Function <:#284,11250> <:#284,11250> <:#284,11250>Declare CleanCopy() <:#284,11250> @Subhead@<:#284,11250>Function CopyToClipBoard() <:#284,11250>OnCancel Done <:#284,11250>If CurWord$() != "" <:#284,11250> ' a word is in front of the cursor <:#284,11250> Type("<[>ShiftCtrlRight]") <:#284,11250> If CleanCopy() <:#284,11250> Return 1 <:#284,11250> Endif <:#284,11250>Endif <:#284,11250> <:#284,11250>NumberChars = EvalField("NumChars") <:#284,11250>If NumberChars << 1 <:#284,11250> ' Totally blank document...Copy a space to the clipboard <:#284,11250> Type(" ") <:#284,11250> Type("<[>ShiftCtrlHome]") <:#284,11250> If CleanCopy() <:#284,11250> Return 1 <:#284,11250> Endif <:#284,11250>Endif <:#284,11250>Again: <:#284,11250>UserControl(PleaseHighlightText) <:#284,11250>If CleanCopy() <:#284,11250> Return 1 <:#284,11250>Else <:#284,11250> Goto Again <:#284,11250>Endif <:#284,11250>Done: <:#284,11250>' Nothing was copied to the clipboard, <:#284,11250>Return -1 <:#284,11250>End Function <:#284,11250> @Subhead@<:#284,11250>function setappfocus() <:#284,11250>' Set the focus to Notes <:#284,11250>allocglobalvar("lotusapphwnd", 1) <:#284,11250>setfocus(getglobalvar$("lotusapphwnd")) <:#284,11250>end function <:#284,11250> <:#284,11250> @Subhead@<:#284,11250>Function CleanCopy() <:#284,11250>If IsOKToRun(Copy) <:#284,11250> If Copy() <:#284,11250> Type("<[>Esc]") <:#284,11250> Return 1 <:#284,11250> Endif <:#284,11250>Endif <:#284,11250>End Function <:#284,11250> @Subhead@<:#284,11250><:ZDDE_BOOKMARK1>Function <:Z~DDE_BOOKMARK1>PasteDocToNotes(Hdlg, id, Value) <:#284,11250>setappfocus() <:#284,11250> <:#284,11250>' Callback routine for the floating Notes instruction window <:#289,11250>'ID = DDEInitiate("<:f240,BArial,255,0,0>Notes<:f>", "<:f240,BArial,255,0,0>Action<:f>") <:#284,11250>' DDE to Notes - We will send Notes some @ commands for it to execute <:#284,11250>'Message("DDE Id {Id}") <:#284,11250>'If Id <;> 0 <:#284,11250>' Quote = Chr$(34) ' " <:#284,11250>' Lb = Chr$(91) ' <[> <:#284,11250>' Rb = Chr$(93) ' ] <:#284,11250> ' Now build the string @command(<[>EditDocument];"1") <:#284,11250>' DDECommand = StrCat$("@Command(",LB,"EditPasteSpecial",RB) <:#284,11250> ' Sendkeys to notes <:#284,11250> SendKeys("<[>AltE]S") <:#284,11250> SendKeys("B<[>AltE]<[>Enter]") <:#284,11250>' DDEExecute(Id, DDECommand) <:#284,11250>' if id <;> 0 <:#284,11250>' DDETerminate(id) <:#284,11250>' endif <:#284,11250>'Else <:#284,11250> ' No conversation with Notes <:#284,11250>'Endif <:#284,11250>'activateapp("") <:#284,11250>End Function <:#284,11250> <:#284,11250> @Subhead@<:#284,11250>Function CreateNewTemplate(UseStyle, KeepFormat) @Outline2@<:#284,11250>Mac = GetRunningMacroFile$() @Outline2@<:#284,11250>TitleBar = NewTitleBar @Outline2@<:#284,11250>If UseStyle = 1 @Outline2@<:#284,11250> RunLater("{mac}!AmiButtonCheck(25550, 0)", Delay) @Outline2@<:#284,11250> RunLater("{mac}!AmiUIGray(25550, 0)", Delay) @Outline2@<:#284,11250> RunLater("{Mac}!AmiTitleBar(""{TitleBar}"")",Delay) @Outline2@<:#284,11250> Pause(004) @Outline2@<:#284,11250> If New <:#284,11250> Else <:#284,11250> Return -1 <:#284,11250> Endif <:#284,11250>Else <:#284,11250> If GetOpenFileCount() << 1 <:#284,11250> ' If no docs are open, open the _default.sty <:#284,11250> DefStyleSheet = GetProfileString$("AmiPro","DefStyle","AmiPro.Ini") <:#284,11250> New(DefStyleSheet 1 512 ) <:#284,11250> Endif <:#284,11250> <:#284,11250> If Decide(BaseTemplateCurrentDoc) <:#284,11250> ' Copy part of this document to the clipboard <:#284,11250> Else <:#284,11250> ' Don't want to copy the current document, display the fileopen dialogbox <:#284,11250> If FileOpen <:#284,11250> Else <:#284,11250> ' Cancelled from the fileopen box <:#284,11250> Return -1 <:#284,11250> Endif <:#284,11250> Endif <:#284,11250>Endif <:#284,11250>' they have opened a new style sheet <:#284,11250>GetFields() 'Bookmark all of the smartfields with AmiFX_Fieldname <:#284,11250>If KeepFormat = 1 <:#284,11250> DocPath = GetDocPath$() <:#284,11250> TempDocName = StrCat$(DocPath,"fx",Right$(Now(),5),".sam") <:#284,11250> SaveAs(TempDocName 32 "" "" ) <:#284,11250>Endif <:#284,11250>Stat = CopyToClipBoard() <:#284,11250>If Stat = -1 <:#284,11250> Return -1 <:#284,11250>Endif <:#284,11250> <:#284,11250>RenameDocInfoField(0,Field1Name) <:#284,11250>Dim Instructions(3) <:#284,11250> <:#284,11250>Instructions(1) = NewTemplate_Instruct1 <:#284,11250>Instructions(2) = NewTemplate_Instruct2 <:#284,11250>Instructions(3) = NewTemplate_Instruct3 <:#284,11250>Caption = NewTemplate_Caption <:#284,11250>ButtonText = NewTemplate_Button <:#284,11250> <:#284,11250>Mac = GetRunningMacroFile$() <:#284,11250>MacroCallBack = "{Mac}!PasteDocToNotes" <:#284,11250>AllocGlobalVar(HelpPanelGlobalVar,1) <:#284,11250>SetGlobalVar(HelpPanelGlobalVar,HP_CopyToNotes) <:#284,11250>DlgKeyInterrupt(VK_F1,"{Mac}!HelpFunction") <:#284,11250> <:#284,11250>Call MacroLib.smm!FloatingNotesInstructions(&Instructions, Caption, ButtonText, MacroCallBack) <:#284,11250> <:#284,11250>FreeGlobalVar(HelpPanelGlobalVar) <:#284,11250>End Function <:#284,11250> <:#284,11250> <:#284,11250> <:#284,11250> <:#284,11250> @Subhead@<:#284,11250>Function GetFields() <:#284,11250>Count = GetPowerFieldCount(0) <:#284,11250>If Count << 1 <:#284,11250> ' No powerfields, return <:#284,11250> Return -1 <:#284,11250>Endif <:#284,11250>x = 1 <:#284,11250> <:#284,11250> <:#284,11250>StatusBarMsg(StatusBar_BookMarking) <:#284,11250>Dim SmartFields(x) <:#284,11250>Dim Fields(Count) <:#284,11250>GetPowerFields(0,&Fields) <:#284,11250>For t = 1 to Count <:#284,11250> WholeFieldName = Fields(t) @Outline3@<:#284,11250> FieldId = StrField$(WholeFieldName,1,",") @Outline3@<:#284,11250> FieldType = Strfield$(WholeFieldName,2,",") @Outline3@<:#284,11250> ' check to see if it is an automated field @Outline3@<:#284,11250> If Right$(StrField$(WholeFieldName,1,"_"),2) = "as" @Outline3@<:#284,11250> ' this is an automated field @Outline3@<:#284,11250> IdName = StrField$(WholeFieldName,2, Chr$(34)) @Outline3@<:#284,11250> FieldInfo = StrCat$(FieldId,Sep,FieldType,Sep,IdName) @Outline3@<:#284,11250> ' store the powerfield info in an array for future reference @Outline3@<:#284,11250> ArrayInsert(&SmartFields,x,FieldInfo) @Outline3@<:#284,11250> x =x + 1 @Outline3@<:#284,11250> Endif <:#284,11250>Next <:#284,11250> <:#284,11250>'FillEdit(9000, &SmartFields) <:#284,11250>'Box = DialogBox(".","Smarts") <:#284,11250>AddFxMarks(&SmartFields) <:#284,11250>StatusBarMsg("") <:#284,11250>End Function <:#284,11250> <:#284,11250> @Subhead@<:#284,11250>Function AddFxMarks(AllFields) <:#284,11250>' Go to each powerfield and bookmark the field with the associated name <:#284,11250>Stat = FieldNext() <:#284,11250>While Stat != 0 <:#284,11250> FieldId = Mod(Stat,0x10000) <:#284,11250> FieldType = Round(Stat/0x10000) <:#284,11250> If FieldType = 3 <:#284,11250> ' Search the id <:#284,11250> FindIndex = ArraySearch(&AllFields,FieldId,1,Sep,0); <:#284,11250> If FindIndex <;> 0 <:#284,11250> ' only get info if we have a valid field <:#284,11250> Shortname = StrField$(*AllFields(FindIndex),3,Sep) <:#284,11250> MarkName = StrCat$(Prefix,ShortName) <:#284,11250> MarkName = Stripit(MarkName) <:#284,11250> MarkBookMark(MarkName,AddBookMark) <:#284,11250> Endif <:#284,11250> Endif <:#284,11250> Stat = FieldNext() <:#284,11250>Wend <:#284,11250>End function <:#284,11250> @Subhead@<:#284,11250>Function AmiTitleBar(Title) @Outline2@<:#284,11250>hdlg = GetActiveWindow() <:#284,11250>SetWindowText(Hdlg, Title) <:#284,11250>End function <:#284,11250> <:#284,11250> @Subhead@<:#284,11250>function AmiButtonCheck(ID, State) @Outline2@<:#284,11250>define BM_SETCHECK 0x0401 @Outline2@<:#284,11250> @Outline2@<:#284,11250>hdlg = getactivewindow() @Outline2@<:#284,11250>idnew = GetDlgItem(Hdlg, ID) @Outline2@<:#284,11250>AppSendMessage(idnew, BM_SETCHECK, state, 0) @Outline2@<:#284,11250>end function @Function@<:#284,11250> @Subhead@<:#284,11250>function AmiUIGray(ID, State) @Outline2@<:#284,11250>hdlg = getactivewindow() @Outline2@<:#284,11250>idnew = GetDlgItem(Hdlg, ID) @Outline2@<:#284,11250>enablewindow(idnew, state) @Outline2@<:#284,11250>end function @Function@<:#284,11250> @Subhead@<:#284,11250>Function stripit(name) <:#284,11250>spos = 1 <:#284,11250>newname = "" <:#284,11250>while (1) <:#284,11250> txt = strfield$(name, spos, " ") <:#284,11250> if (txt = "" or txt = -1) <:#284,11250> break <:#284,11250> endif <:#284,11250> newname = strcat$(newname, "_", txt) <:#284,11250> spos = spos + 1 <:#284,11250>wend <:#284,11250>return right$(newname, (len(newname) - 1)) <:#284,11250>end function <:#284,11250> @Subhead@<:#284,11250>Function HelpFunction() <:#284,11250>IgnoreKeyBoard(2) <:#284,11250>HelpNum = GetGlobalVar$(HelpPanelGlobalVar) <:#284,11250>prohWnd = FindWindow("AmiProWndA", 0) <:#284,11250>helpfile = strcat$(GetAmiDirectory$(), "amipro.hlp") <:#284,11250>WinHelp (prohWnd, helpfile, HELP_CONTEXT, HelpNum) <:#284,11250>End function @Function@<:#284,11250> <:p<* >> <:#284,11250> <:#284,11250>DIALOG CreateDoc <:#284,11250>-2134376448 8 53 33 231 110 "" "AmiDialog" "Notes Workgroup Document Assistant" <:#284,11250>FONT 8 "Helv" <:#568,11250>5 9 170 14 21 1342373897 "button" "&Copy an existing document to the workgroup database. " 0 <:#568,11250>5 53 172 14 22 1342242825 "button" "Create a &new workgroup database template. " 0 <:#284,11250>16 22 167 29 1000 1342177280 "static" "text" 0 <:#284,11250>16 66 172 28 1001 1342177280 "static" "text" 0 <:#568,11250>25 86 160 10 30 1342242819 "button" "&Base the template on an existing style sheet" 0 <:#568,11250>25 98 155 10 31 1342242819 "button" "&Store form in document" 0 <:#284,11250>188 4 40 14 1 1342373889 "button" "OK" 0 <:#284,11250>188 20 40 14 2 1342242816 "button" "Cancel" 0 <:#284,11250>END DIALOG <:#284,11250> <:#284,11250> <:#284,11250> <:#284,11250>DIALOG Smarts <:#284,11250>-2134376448 4 85 67 170 90 "" "" "Translate Fields" <:#284,11250>FONT 8 "Helv" <:#284,11250>126 4 40 14 1 1342373889 "button" "OK" 0 <:#284,11250>126 20 40 14 2 1342373888 "button" "Cancel" 0 <:#284,11250>7 25 71 60 9000 1352728579 "listbox" "" 0 <:#284,11250>7 13 71 10 1000 1342177280 "static" "Available fields:" 0 <:#284,11250>END DIALOG <:#284,11250> @Subhead@<:#284,11250> <:#284,11250> <:#284,11250> <:#284,11250> <:#284,11250>DIALOG Remark <:#284,11250>-2134376448 7 33 42 211 85 "" "AmiDialog" "Editor's Remark" <:#284,11250>FONT 8 "Helv" <:#284,11250>20 34 146 22 8000 1350631428 "edit" "" 0 <:#284,11250>168 4 40 14 1 1342373889 "button" "OK" 0 <:#284,11250>20 6 141 20 1000 1342177280 "static" "text" 0 <:#284,11250>20 59 148 22 1001 1342177280 "static" "text" 0 <:#284,11250>1 4 17 16 1010 1342177290 "static" "filename.bmp" 0 <:#284,11250>20 23 143 10 1002 1342177280 "static" "text" 0 <:#284,11250>168 20 40 14 2 1342373888 "button" "Cancel" 0 <:#284,11250>END DIALOG <:#284,11250> <:#284,11250> <:#284,11250> <:#284,11250>DIALOG version <:#284,11250>-2134376448 6 68 62 211 85 "" "AmiDialog" "New Version" <:#284,11250>FONT 8 "Helv" <:#284,11250>20 34 146 22 8000 1350631428 "edit" "" 0 <:#284,11250>168 4 40 14 1 1342373889 "button" "OK" 0 <:#284,11250>20 6 141 20 1000 1342177280 "static" "text" 0 <:#284,11250>20 59 148 22 1001 1342177280 "static" "text" 0 <:#284,11250>1 4 17 16 1010 1342177290 "static" "filename.bmp" 0 <:#284,11250>20 24 143 10 1002 1342177280 "static" "text" 0 <:#284,11250>END DIALOG <:#284,11250> <:#284,11250> <:#284,11250>DIALOG Options <:#284,11250>-2134376448 9 30 29 231 94 "" "AmiDialog" "Workgroup Document Editing Options" <:#284,11250>FONT 8 "HELV" <:#568,11250>35 46 120 10 22 1342373897 "button" "Have full editing abilities" 0 <:#568,11250>35 57 125 10 23 1342242825 "button" "Automatically enter revision marking mode" 0 <:#568,11250>35 68 120 10 24 1342242825 "button" "Enable document comments only" 0 <:#568,11250>20 82 115 10 25 1342242819 "button" "Show Workgroup Tools palette" 0 <:#284,11250>185 4 40 14 1 1342373889 "button" "OK" 0 <:#284,11250>4 4 19 19 1000 1342177290 "static" "FxPage.bmp" 0 <:#284,11250>4 26 19 18 1001 1342177290 "static" "FxPen.bmp" 0 <:#284,11250>23 5 158 26 1002 1342177280 "static" "text" 0 <:#284,11250>23 26 158 16 1003 1342177280 "static" "text" 0 <:#284,11250>END DIALOG <:#284,11250> <:#284,11250> <:#284,11250>DIALOG DocName <:#284,11250>-2134376448 26 71 62 237 214 "" "AmiDialog" "New Document Information" <:#284,11250>FONT 8 "Helv" <:#284,11250>23 16 163 12 8010 1350631552 "edit" "" 0 <:#284,11250>23 41 163 21 8011 1350631428 "edit" "" 0 <:#284,11250>96 75 91 12 8001 1350631552 "edit" "" 0 <:#284,11250>96 90 91 12 8002 1350631552 "edit" "" 0 <:#284,11250>96 105 91 12 8003 1350631552 "edit" "" 0 <:#284,11250>96 120 91 12 8004 1350631552 "edit" "" 0 <:#284,11250>96 135 91 12 8005 1350631552 "edit" "" 0 <:#284,11250>96 150 91 12 8006 1350631552 "edit" "" 0 <:#284,11250>96 165 91 12 8007 1350631552 "edit" "" 0 <:#284,11250>96 180 91 12 8008 1350631552 "edit" "" 0 <:#284,11250>96 195 91 12 8009 1350631552 "edit" "" 0 <:#284,11250>192 5 40 14 1 1342373889 "button" "OK" 0 <:#284,11250>21 77 73 9 1001 1342177280 "static" "fld1:" 0 <:#284,11250>21 92 73 9 1002 1342177280 "static" "fld2:" 0 <:#284,11250>21 107 73 9 1003 1342177280 "static" "fld3:" 0 <:#284,11250>21 122 73 9 1004 1342177280 "static" "fld4:" 0 <:#284,11250>21 137 73 9 1005 1342177280 "static" "fld5:" 0 <:#284,11250>21 152 73 9 1006 1342177280 "static" "fld6:" 0 <:#284,11250>21 167 73 9 1007 1342177280 "static" "fld7:" 0 <:#284,11250>21 182 73 9 1008 1342177280 "static" "fld8:" 0 <:#284,11250>21 197 73 9 1009 1342177280 "static" "fld9:" 0 <:#284,11250>23 30 78 10 1000 1342177280 "static" "Document remark:" 0 <:#284,11250>4 60 16 15 1010 1342177290 "static" "fxpen.bmp" 0 <:#284,11250>21 65 85 9 1011 1342177280 "static" "Additional information:" 0 <:#284,11250>23 6 98 9 1012 1342177280 "static" "Document name:" 0 <:#284,11250>4 3 17 16 1013 1342177290 "static" "fxpage.bmp" 0 <:#284,11250>END DIALOG <:#284,11250> > [Embedded] 00080810 > [macsum] 47 Main 0 0 3 210 FxLaunch 66 1 12 221 SetupDocumentForFX 1175 1 4 281 SetOpeningOptions 1522 5 4 295 EditingOptionsDialog 1738 4 8 319 SetEditingMode 3286 1 6 409 ModifyMenu 3674 0 3 444 FXMenuIcons 4015 1 1 454 MenuDocInfo 4064 0 2 459 AmiUIGray 4237 2 3 471 FXMdiSwitch 4374 0 1 479 GetDocUserFieldName 4493 1 3 491 FXAutoSty 4655 1 7 503 UpdateDefaultFields 5005 1 16 524 RequestDocName 5860 3 15 571 DocNameCallBack 7026 3 2 629 DlgDocNameInit 7255 3 3 642 SizeBox 7587 2 8 663 Version 8115 2 7 679 Remark 8822 0 7 710 InitVersion 9467 3 1 740 CallBack 9641 3 4 751 WorkgroupIcons 10449 1 5 788 Icons_Create 11254 0 21 833 HitIcon 12302 1 4 885 FontDlg 13538 3 5 988 Builder 14394 0 6 1068 Dlg_Builder 15376 2 1 1122 CopyDocToDataBase 15998 0 5 1148 CopyToClipBoard 16816 0 2 1191 setappfocus 17228 0 1 1222 CleanCopy 17336 0 1 1229 PasteDocToNotes 17448 3 1 1238 CreateNewTemplate 17534 2 11 1265 GetFields 18849 0 11 1331 AddFxMarks 19433 1 7 1366 AmiTitleBar 19811 1 2 1387 AmiButtonCheck 19924 2 3 1393 AmiUIGray 20050 2 3 1401 stripit 20187 1 4 1407 HelpFunction 20464 0 4 1421 CreateDoc 20682 0 -1 1431 Smarts 21321 0 -1 1446 Remark 21601 0 -1 1459 version 22028 0 -1 1473 Options 22404 0 -1 1485 DocName 23058 0 -1 1500 [macse] 14 Main 0 32 2 0 802 13 8 1 16 Builder 13 8 2 6 0 15 9 14 FxLaunch 0 271 "HasAmiFxRun" 1 0 802 13 8 7 0 265 "HasAmiFxRun" 13 7 "1" 18 1 11 00000169 16 ModifyMenu 0 1318 "{7}!FXMdiSwitch" 0 264 "HasAmiFxRun" "1" 0 1029 "" 2 850 1 13 8 8 6 8 5 0 18 1 11 00000796 0 297 "{10}Aminotes.dll" "NotesFriendlyInit" "A" 13 8 9 6 9 11 00000783 0 284 "AmiNotes.dll,NotesFriendlyInit,A" 13 11 00000770 0 284 "AmiNotes.dll,GetNotesStringField,HHCCH" "{8}" "__FXPARAM1" &2 50 0 284 "AmiNotes.dll,GetNotesStringField,HHCCH" "{8}" "__FXPARAM2" &3 40 0 284 "AmiNotes.dll,GetNotesStringField,HHCCH" "{8}" "__FXPARAM3" &4 40 0 284 "AmiNotes.dll,GetNotesStringField,HHCCH" "{8}" "__FXPARAM4" &5 10 0 284 "AmiNotes.dll,GetNotesStringField,HHCCH" "{8}" "__FXPARAM5" &6 40 0 284 "AmiNotes.dll,NotesFriendlyTerm,A" 0 298 "{9}" 10 00000881 0 3 "Did not receive a notes handle. Is Notes in your path?" "Ami Pro" 5 -1 15 9 0 279 8 13 8 11 6 11 7 "" 18 0 11 00000995 16 FxAutosty "{6}" 13 8 12 16 WorkgroupIcons 1 10 00001047 16 SetOpeningOptions "{2}" "{3}" "{4}" "{5}" "{6}" 0 14 "{0}" 13 5 1 18 3 11 00001097 16 "{0}" 6 1 15 9 14 SetupDocumentForFX 0 32 2 2 125 1 0 "DocName" 5 8 21 2 [X] 5 2 8 3 5 8 6 3 18 2 12 00000152 10 00000206 5 1 6 3 3 0 8 3 10 00000077 6 3 6 3 5 7 3 0 0 279 [X] 13 23 2 10 00000119 5 2 22 2 5 3 22 2 5 4 22 2 5 5 22 2 5 6 22 2 5 7 22 2 5 8 22 2 2 140 1 "{0}" [X] [X] [X] [X] [X] [X] [X] 13 8 4 6 1 15 9 14 SetOpeningOptions 0 32 2 0 279 7 13 8 6 0 301 13 8 7 16 EditingOptionsDialog "{0}" "{1}" "{3}" "{2}" 13 8 8 6 1 5 2 18 0 11 00000204 16 Version &6 "{2}" 0 301 13 2 109 1 "{6}" [X] 1 6 5 15 9 14 EditingOptionsDialog 0 32 2 0 20 "{3}" 1 " " 13 8 5 6 5 5 -1 18 0 11 00000101 7 "" 8 5 6 1 5 2 18 0 11 00000275 0 16 "This document has the following Workgroup Options set. Edits to this document will be stored " "as a new version." 13 8 6 10 00000435 6 1 5 1 18 0 11 00000435 0 16 "This document has the following Workgroup Options set. Edits to this document will be stored " "in the original." 13 8 6 6 2 11 00000554 7 "{5}, as the original author of this document, you have the following options:" 8 7 10 00000632 7 "{5}, as an editor of this document, you have the following options:" 8 7 0 802 13 8 8 0 798 13 8 9 16 FontDlg 1 0 0 0 31 1000 "{9}FxPage.bmp" 0 31 1001 "{9}FxPen.bmp" 0 31 1002 "{6}" 0 31 1003 "{7}" 0 31 1004 "Editing mode:" 0 31 1005 "Revision management tools:" 6 0 5 8 25 1 11 00000889 0 31 23 1 10 00000954 6 0 5 16 25 1 11 00000943 0 31 24 1 10 00000954 0 31 22 1 0 31 21 1 0 31 25 1 0 41 0 "CallBack" 0 271 "GlobalVarAuthor" 1 0 264 "GlobalVarAuthor" "{2}" 0 271 "HelpPanelGlobalVar" 1 0 264 "HelpPanelGlobalVar" 5003 0 47 112 "{8}!HelpFunction" 0 26 "." "Options" 13 8 10 0 266 "HelpPanelGlobalVar" 0 266 "GlobalVarAuthor" 16 FontDlg 4 0 0 6 10 5 1 18 1 11 00001300 5 0 8 11 10 00001523 0 27 22 13 11 00001347 16 SetEditingMode 4 0 27 23 13 11 00001394 16 SetEditingMode 8 0 27 24 13 11 00001442 16 SetEditingMode 16 0 27 25 13 11 00001502 16 WorkgroupIcons 1 10 00001523 16 WorkgroupIcons 0 6 11 15 9 6 4 15 9 14 SetEditingMode 0 32 2 0 279 7 13 8 2 0 301 13 8 3 6 0 5 4 25 1 11 00000249 0 1313 136 13 8 4 2 109 1 "{2}" "{3}" 1 6 4 5 0 18 0 11 00000176 10 00000249 0 1313 142 13 8 5 6 5 5 64 18 5 11 00000249 2 460 1 1 0 13 8 6 6 0 5 8 25 1 11 00000314 2 109 1 "{2}" "{3}" 5 2 460 1 1 1 6 0 5 16 25 1 11 00000367 2 109 1 "{2}" "{3}" 2 0 296 0 6 1 15 9 14 ModifyMenu 0 32 2 0 802 13 8 1 5 1 8 2 0 520 1 "&View" "&Workgroup SmartIcons On/Off" 0 527 1 "&View" 10 "&Workgroup SmartIcons On/Off" "{1}!FXMenuIcons(1)" "Toggle the workgroup SmartIcons on/off" 0 523 "{2}" "&File" "&Doc Info..." "{1}!MenuDocInfo()" "Display or edit descriptive data about the current document." 6 0 15 9 14 FXMenuIcons 16 WorkgroupIcons 3 6 1 15 9 14 MenuDocInfo 24 850 13 5 0 18 1 11 00000153 0 802 13 8 1 0 285 "{1}!AmiUIGray(25550, 0)" 0.1 0 285 "{1}!AmiUIGray(25552, 0)" 0.1 0 274 004 24 109 6 0 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 14 FXMdiSwitch 24 850 13 5 0 18 1 11 00000086 16 WorkgroupIcons 1 10 00000107 16 WorkgroupIcons 0 6 0 15 9 14 GetDocUserFieldName 6 0 5 1 18 5 6 0 5 8 18 3 1 2 11 00000087 7 "" 15 9 0 1313 16 13 8 2 0 20 "{2}" "{0}" "," 13 8 3 6 3 15 9 6 1 15 9 14 FXAutoSty 0 32 2 0 296 1 0 802 13 8 2 0 286 "AutoStyleSheets" "DataGood" "AMIPRO2.INI" 13 8 3 6 3 5 1 18 1 11 00000186 0 295 13 8 4 7 "{4}collect.smm" 8 5 16 "{5}" 5 1 21 6 [X] 16 UpdateDefaultFields &6 13 8 7 16 RequestDocName &6 "{7}" "{0}" 2 466 1 "as_starttext" 4002 2 466 1 "as_starttext" 4004 0 296 0 6 1 15 9 14 UpdateDefaultFields 0 1304 0 13 8 2 6 2 5 1 18 5 11 00000084 5 0 15 9 6 2 21 3 [X] 0 1305 0 &3 0 39 34 13 8 4 5 1 8 5 6 2 6 5 18 2 12 00000215 10 00000830 5 1 6 5 3 0 8 5 10 00000140 6 5 22 3 8 6 0 20 "{6}" 1 "," 13 8 7 0 20 "{6}" 2 "," 13 8 8 0 20 "{6}" 3 "," 13 8 9 0 20 "{9}" 1 "_" 13 0 807 [X] 2 13 8 10 6 10 7 "as" 18 0 11 00000817 7 "def" 0 20 "{9}" 2 "_" 13 18 0 11 00000667 0 20 "{9}" 3 " " 13 8 11 0 20 "{11}" 6 "_" 13 8 12 0 271 "{11}" 1 0 286 "AutoStyleSheets" "{12}" "AmiPro2.Ini" 13 8 13 0 264 "{11}" "{13}" 0 1306 "{7}" "{8}" 2 571 1 2 227 1 "{7}" "{8}" 0 266 "{11}" 10 00000817 6 14 5 1 3 0 8 14 0 20 "{9}" 3 " " 13 8 11 0 20 "{9}" 2 "{4}" 13 8 15 0 16 "{11}" "~" "{15}" "~" "{7}" 13 8 16 0 1045 &0 "{16}" 0 3 "~" 10 00000182 6 14 15 9 6 1 15 9 14 RequestDocName 0 32 2 0 802 13 8 4 0 798 13 0 16 [X] "FxPen.bmp" 13 8 5 0 798 13 0 16 [X] "FxPage.bmp" 13 8 6 0 31 1013 "{6}" 0 31 1010 "{5}" 0 31 8010 "{2}" 0 279 7 13 0 31 8011 [X] 0 271 "NumOptional" 1 0 264 "NumOptional" "{1}" 0 41 8010 "DocNameCallBack" 0 41 0 "DlgDocNameInit" 5 1 8 7 6 1 6 7 18 2 12 00000396 10 00000479 5 1 6 7 3 0 8 7 10 00000321 6 7 22 0 0 20 [X] 2 "~" 13 8 8 5 1000 6 7 3 0 0 31 [X] "{8}" 10 00000363 0 271 "HelpPanelGlobalVar" 1 0 264 "HelpPanelGlobalVar" 5002 0 47 112 "{4}!HelpFunction" 0 26 "." "DocName" 13 8 9 0 266 "NumOptional" 0 266 "HelpPanelGlobalVar" 6 9 5 1 18 1 11 00000678 0 27 8010 13 8 2 0 27 8011 13 8 10 2 109 1 "{10}" "" 1 13 8 11 16 SetupDocumentForFx "{2}" 5 1 8 12 6 1 6 12 18 2 12 00000868 10 00001154 5 1 6 12 3 0 8 12 10 00000790 5 3 8 13 5 8000 6 12 3 0 0 27 [X] 13 8 14 6 14 5 0 18 0 11 00000960 7 "" 8 14 6 12 22 0 8 15 0 20 "{15}" 1 "~" 13 8 16 0 20 "{15}" 3 "~" 13 8 17 0 271 "{16}" 1 0 264 "{16}" "{14}" 0 1306 "{17}" "{13}" 2 571 1 2 227 1 "{17}" "{13}" 0 266 "{16}" 10 00000833 6 3 15 9 14 DocNameCallBack 0 32 2 0 42 "{0}" 8010 13 8 4 0 14 "{4}" 13 5 1 18 5 11 00000162 0 44 "{0}" 1 13 0 284 "User,EnableWindow,AHH" [X] 0 10 00000217 0 44 "{0}" 1 13 0 284 "User,EnableWindow,AHH" [X] 1 6 3 15 9 14 DlgDocNameInit 0 32 2 0 265 "NumOptional" 13 8 4 6 1 5 1 4 0 8 1 5 0 6 1 18 0 11 00000320 0 42 "{0}" 8010 13 0 14 [X] 13 5 0 18 3 11 00000178 10 00000233 0 44 "{0}" 1 13 0 284 "User,EnableWindow,AHH" [X] 0 16 SizeBox "{0}" "{4}" 0 44 "{0}" 8010 13 8 5 0 1036 "{5}" 1045 31 0 10 00000320 6 3 15 9 14 SizeBox 0 32 2 5 4 21 3 [X] 0 284 "user,GetWindowRect,HHN" "{0}" &3 5 1 22 3 8 4 5 2 22 3 8 5 5 3 22 3 8 6 5 4 22 3 8 7 5 24 5 9 6 1 3 1 4 0 8 8 6 6 6 4 3 1 6 7 6 5 6 8 3 0 3 1 0 284 "user,MoveWindow,HHHHHHH" "{0}" "{4}" "{5}" [X] [X] 1 6 1 8 9 5 8 6 9 18 2 12 00000357 10 00000516 5 1 6 9 3 0 8 9 10 00000282 5 8001 6 9 3 0 0 44 "{0}" [X] 13 0 284 "User,ShowWindow,AHH" [X] 0 5 1001 6 9 3 0 0 44 "{0}" [X] 13 0 284 "User,ShowWindow,AHH" [X] 0 10 00000324 6 2 15 9 14 Version 0 32 2 0 802 13 8 4 0 798 13 8 5 16 FontDlg 1 0 0 6 1 8 3 0 772 13 0 770 [X] "d" 13 8 6 0 31 8000 "Modified on {6}" 0 31 1010 "{5}FxPen.bmp" 0 41 0 "InitVersion" 0 31 1000 "The author of this document has specified that all edits are stored as a new version. " 0 31 1001 "This revision description is stored in the description field in the File/Doc Info box." 0 31 1002 "It is suggested that you describe this revision:" 0 271 "HelpPanelGlobalVar" 1 0 264 "HelpPanelGlobalVar" 5004 0 47 112 "{4}!HelpFunction" 16 WorkgroupIcons 5 0 26 "." "Version" 13 8 7 16 WorkGroupIcons 4 0 266 "HelpPanelGlobalVar" 0 27 8000 13 8 8 6 8 28 0 16 FontDlg 4 0 0 6 2 15 9 14 Remark 0 32 2 0 802 13 8 2 0 798 13 8 3 16 FontDlg 1 0 0 0 279 7 13 8 4 0 31 8000 "{4}" 0 31 1010 "{3}FxPen.bmp" 0 41 0 "InitVersion" 0 31 1000 "Please enter a remark that describes your edits to this document. " 0 31 1001 "This remark is stored in the description field in the File/Doc Info box." 0 31 1002 "It is suggested that you enter a remark:" 0 271 "HelpPanelGlobalVar" 1 0 264 "HelpPanelGlobalVar" 5004 0 47 112 "{2}!HelpFunction" 0 26 "." "Remark" 13 8 5 0 266 "HelpPanelGlobalVar" 6 5 5 1 18 1 11 00000563 5 -1 15 9 0 27 8000 13 8 6 0 301 13 2 109 1 "{6}" [X] 1 16 FontDlg 4 0 0 6 0 15 9 14 InitVersion 16 FontDlg 3 "{0}" 1000 16 FontDlg 3 "{0}" 1001 16 FontDlg 3 "{0}" 1002 16 FontDlg 3 "{0}" 8000 0 44 "{0}" 8000 13 0 1036 [X] 1025 0 32767 6 3 15 9 14 CallBack 0 32 2 6 1 5 1 4 0 8 1 5 0 6 1 18 0 11 00000796 5 1002 8 4 5 1005 6 4 18 2 12 00000161 10 00000200 5 1 6 4 3 0 8 4 10 00000083 16 FontDlg 3 "{0}" "{4}" 10 00000128 5 20 8 5 5 26 6 5 18 2 12 00000287 10 00000326 5 1 6 5 3 0 8 5 10 00000211 16 FontDlg 3 "{0}" "{5}" 10 00000254 0 44 "{0}" 26 13 0 284 "User,EnableWindow,AHH" [X] 0 0 265 "GlobalVarAuthor" 13 8 6 6 6 11 00000447 10 00000783 0 42 "{0}" 22 13 5 1 18 0 11 00000503 10 00000783 0 42 "{0}" 23 13 5 1 18 0 11 00000671 0 44 "{0}" 22 13 0 284 "User,EnableWindow,AHH" [X] 0 0 44 "{0}" 24 13 0 284 "User,EnableWindow,AHH" [X] 0 10 00000783 0 44 "{0}" 22 13 0 284 "User,EnableWindow,AHH" [X] 0 0 44 "{0}" 23 13 0 284 "User,EnableWindow,AHH" [X] 0 10 00000796 6 3 15 9 14 WorkgroupIcons 0 32 2 0 802 13 8 4 0 271 "HFXOutWin" 1 0 271 "HFXIconBar" 1 0 265 "HFXIconBar" 13 8 3 6 3 7 "" 18 1 11 00000686 5 1 6 0 18 0 11 00000236 0 284 "User,ShowWindow,AHH" "{3}" 1 5 0 15 9 10 00000673 5 0 6 0 18 0 11 00000327 0 284 "User,ShowWindow,AHH" "{3}" 0 5 0 15 9 10 00000673 5 3 6 0 18 0 11 00000524 0 284 "User,IsWindowVisible,AH" "{3}" 13 11 00000462 0 284 "User,ShowWindow,AHH" "{3}" 0 10 00000499 0 284 "User,ShowWindow,AHH" "{3}" 1 5 0 15 9 10 00000673 5 4 6 0 18 0 11 00000605 0 284 "User,EnableWindow,AHH" "{3}" 1 10 00000673 5 5 6 0 18 0 11 00000673 0 284 "User,EnableWindow,AHH" "{3}" 0 10 00000793 16 Icons_Create 13 8 5 6 5 7 "" 18 1 11 00000780 16 WorkgroupIcons "{0}" 10 00000793 5 -1 15 9 6 1 15 9 14 Icons_Create 0 802 13 8 1 0 297 "{3}outdll.dll" "CreateTheWin" "HHHHHHHC" 13 8 2 6 2 5 0 18 0 11 00000176 0 3 "Unable to load outwin.dll" "Ami Pro" 5 -1 15 9 0 1313 267 13 8 4 0 284 "User,GetSystemMetrics,HH" 1 13 8 5 6 5 5 480 18 0 11 00000298 5 309 8 6 10 00000320 6 5 5 173 3 1 8 6 5 1 8 7 5 515 8 8 5 114 8 9 5 138 8 10 7 "Workgroup" 8 11 7 "fxicons" 8 12 7 "" 8 13 7 "FxPalVga.dll" 8 14 7 "" 8 15 5 5 8 16 7 "fxicons" 8 17 0 284 "outdll,CreateTheWin,HHHHHHHC" "{4}" "{7}" "{8}" "{6}" "{9}" "{10}" "{11}" 13 8 18 6 18 11 00001023 5 1 8 19 5 8 6 19 18 2 12 00000685 10 00000766 5 1 6 19 3 0 8 19 10 00000607 0 284 "outdll,AddMacroCall,HHCH" "{18}" "{1}!HitIcon({19})" "{19}" 10 00000650 0 284 "outdll,IconOn,HHCCCCHC" "{18}" "{12}" "{14}" "{14}" "{14}" "{16}" "{17}" 0 284 "user,FindWindow,HCC" "SmartIconBar" 0 13 8 20 0 284 "user,MoveWindow,HHHHHHH" "{20}" "{8}" "{6}" "{9}" "{10}" 1 0 264 "HFXIconBar" "{20}" 0 264 "HFXOutWin" "{18}" 6 20 15 9 6 0 15 9 14 HitIcon 0 32 2 0 1050 13 5 1 18 5 11 00000069 5 -1 15 9 24 850 13 5 0 18 0 11 00000225 0 3 "This document is not stored in Notes. Click OK to remove the icons." "Ami Pro" 16 WorkgroupIcons 0 5 -1 15 9 5 1 6 0 18 0 11 00000375 0 1313 217 24 103 13 11 00000299 2 103 1 2 147 1 16 WorkgroupIcons 0 0 38 "Lotus Notes" 10 00001224 10 00001224 5 2 6 0 18 0 11 00000441 16 Remark 10 00001224 10 00001224 5 3 6 0 18 0 11 00000741 0 800 13 11 00000506 5 0 15 9 0 1313 136 13 8 2 6 2 5 0 18 0 11 00000642 0 1313 142 13 8 3 6 3 5 64 18 5 11 00000629 2 460 1 1 1 13 8 4 10 00000715 0 1313 142 13 8 3 6 3 5 64 18 5 11 00000715 2 460 1 1 0 13 8 4 10 00001224 10 00001224 5 4 6 0 18 0 11 00000905 0 800 13 11 00000806 5 0 15 9 0 1313 142 13 8 3 6 3 5 64 18 5 11 00000879 2 460 1 2 0 2 558 1 10 00001224 10 00001224 5 5 6 0 18 0 11 00000976 16 MenuDocInfo 10 00001224 10 00001224 5 6 6 0 18 0 11 00001039 24 229 10 00001224 10 00001224 5 7 6 0 18 0 11 00001166 0 800 13 11 00001104 5 0 15 9 24 181 0 6 "[37]" 2 452 1 4 0 10 10 00001224 10 00001224 5 8 6 0 18 0 11 00001224 2 452 1 4 0 10 10 00001224 6 1 15 9 14 FontDlg 5 1 6 0 18 0 11 00000255 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv" 13 8 4 0 271 "FontHandle" 1 6 4 11 00000217 0 264 "FontHandle" "{4}" 6 4 15 9 10 00000229 5 0 15 9 10 00000844 10 00000844 5 2 6 0 18 0 11 00000381 0 265 "FontHandle" 13 8 5 6 5 11 00000356 6 5 15 9 10 00000368 5 0 15 9 10 00000844 5 3 6 0 18 0 11 00000596 0 265 "FontHandle" 13 8 5 6 5 11 00000558 0 44 "{1}" "{2}" 13 8 6 0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{5}" 0 5 1 15 9 10 00000570 5 0 15 9 10 00000844 10 00000844 5 4 6 0 18 0 11 00000785 0 265 "FontHandle" 13 8 5 6 5 11 00000730 0 284 "gdi,DeleteObject,HH" "{5}" 5 1 8 7 10 00000740 5 0 8 7 0 266 "FontHandle" 6 7 15 9 10 00000844 0 3 "Fontdlg received an invalid parameter {0}" "Ami Pro" 6 3 15 9 14 Builder 0 802 13 8 3 0 31 21 1 0 31 30 1 0 31 1000 "Copy an existing document into the Document Sharing Application. The document will be copied from the local file system and placed into the Notes database." 0 31 1001 "For use by the database administrator. Create a new workgroup template based on an existing document or Ami Pro style sheet. " 0 41 0 "Dlg_Builder" 0 41 21 "Dlg_Builder" 0 41 22 "Dlg_Builder" 0 271 "HelpPanelGlobalVar" 1 0 264 "HelpPanelGlobalVar" 5000 0 47 112 "{3}!HelpFunction" 16 FontDlg 1 0 0 0 26 "." "CreateDoc" 13 8 4 16 FontDlg 4 0 0 0 266 "HelpPanelGlobalVar" 6 4 5 1 18 1 11 00000660 5 -1 15 9 0 27 30 13 11 00000696 5 1 8 1 0 27 31 13 11 00000732 5 1 8 2 0 27 21 13 11 00000781 5 1 8 5 10 00000791 5 2 8 5 5 1 6 5 18 0 11 00000868 16 CopyDocToDataBase 10 00000970 10 00000970 5 2 6 5 18 0 11 00000957 16 CreateNewTemplate "{1}" "{2}" 10 00000970 10 00000970 5 -1 15 9 6 0 15 9 14 Dlg_Builder 7 "" 6 1 18 0 11 00000313 16 FontDlg 3 "{0}" 21 16 FontDlg 3 "{0}" 22 16 FontDlg 3 "{0}" 1000 16 FontDlg 3 "{0}" 1001 16 FontDlg 3 "{0}" 30 16 FontDlg 3 "{0}" 31 0 44 "{0}" 30 13 0 284 "User,EnableWindow,AHH" [X] 0 0 44 "{0}" 31 13 0 284 "User,EnableWindow,AHH" [X] 0 10 00000610 5 21 6 1 18 0 11 00000468 0 44 "{0}" 30 13 0 284 "User,EnableWindow,AHH" [X] 0 0 44 "{0}" 31 13 0 284 "User,EnableWindow,AHH" [X] 0 10 00000610 5 22 6 1 18 0 11 00000610 0 44 "{0}" 30 13 0 284 "User,EnableWindow,AHH" [X] 1 0 44 "{0}" 31 13 0 284 "User,EnableWindow,AHH" [X] 1 6 2 15 9 14 CopyDocToDataBase 0 1050 13 5 1 18 5 11 00000128 0 286 "AmiPro" "DefStyle" "AmiPro.Ini" 13 8 1 2 101 1 "{1}" 1 512 0 2 "Copy the current document into the database" 13 11 00000209 10 00000260 24 102 13 11 00000247 10 00000260 5 -1 15 9 16 CopyToClipboard 13 11 00000310 10 00000323 5 -1 15 9 2 125 1 0 "DocName" 0 802 13 8 2 5 3 21 3 [X] 5 1 7 "Select a Document Sharing Database on the Notes desktop" 23 3 5 2 7 "Select Compose - Administration - Copy Document to database" 23 3 5 3 7 "Choose Paste Document " 23 3 7 "{2}!PasteDocToNotes" 8 4 0 271 "HelpPanelGlobalVar" 1 0 264 "HelpPanelGlobalVar" 5001 0 47 112 "{2}!HelpFunction" 16 MacroLib.smm!FloatingNotesInstructions &3 "Copy Document to Notes" "Paste Document" "{4}" 0 266 "HelpPanelGlobalVar" 6 0 15 9 14 CopyToClipBoard 19 00000387 0 23 13 7 "" 18 1 11 00000126 0 6 "[20519]" 16 CleanCopy 13 11 00000126 5 1 15 9 0 1289 "NumChars" 13 8 1 6 1 5 1 18 5 11 00000250 0 6 " " 0 6 "[20516]" 16 CleanCopy 13 11 00000250 5 1 15 9 0 7 "Please highlight several characters of text and click resume" 16 CleanCopy 13 11 00000374 5 1 15 9 10 00000387 10 00000250 5 -1 15 9 6 0 15 9 14 setappfocus 0 271 "lotusapphwnd" 1 0 265 "lotusapphwnd" 13 0 284 "user,SetFocus,HH" [X] 6 0 15 9 14 CleanCopy 0 1313 217 24 154 13 11 00000100 2 154 1 13 11 00000100 0 6 "[27]" 5 1 15 9 6 0 15 9 14 PasteDocToNotes 16 setappfocus 0 36 "[12357]S" 0 36 "B[12357][13]" 6 3 15 9 14 CreateNewTemplate 0 802 13 8 3 7 "Create New Template" 8 4 6 0 5 1 18 0 11 00000289 0 285 "{3}!AmiButtonCheck(25550, 0)" 0.1 0 285 "{3}!AmiUIGray(25550, 0)" 0.1 0 285 "{3}!AmiTitleBar(""{4}"")" 0.1 0 274 004 24 101 13 11 00000263 10 00000276 5 -1 15 9 10 00000525 0 1050 13 5 1 18 5 11 00000395 0 286 "AmiPro" "DefStyle" "AmiPro.Ini" 13 8 5 2 101 1 "{5}" 1 512 0 2 "Base the template on the current document" 13 11 00000474 10 00000525 24 102 13 11 00000512 10 00000525 5 -1 15 9 16 GetFields 6 1 5 1 18 0 11 00000673 0 268 13 8 6 0 772 13 0 807 [X] 5 13 0 16 "{6}" "fx" [X] ".sam" 13 8 7 2 104 1 "{7}" 32 "" "" 16 CopyToClipBoard 13 8 8 6 8 5 -1 18 0 11 00000745 5 -1 15 9 2 125 1 0 "DocName" 5 3 21 9 [X] 5 1 7 "Select a Document Sharing Database on the Notes desktop" 23 9 5 2 7 "Select Compose - Administration - New Document Template" 23 9 5 3 7 "Position the cursor in the template field - Choose Paste Template" 23 9 7 "Create Document Template" 8 10 7 "Paste Template" 8 11 0 802 13 8 3 7 "{3}!PasteDocToNotes" 8 12 0 271 "HelpPanelGlobalVar" 1 0 264 "HelpPanelGlobalVar" 5001 0 47 112 "{3}!HelpFunction" 16 MacroLib.smm!FloatingNotesInstructions &9 "{10}" "{11}" "{12}" 0 266 "HelpPanelGlobalVar" 6 2 15 9 14 GetFields 0 1304 0 13 8 1 6 1 5 1 18 5 11 00000075 5 -1 15 9 5 1 8 2 0 789 "Please wait...bookmarking existing smartfields" 6 2 21 3 [X] 6 1 21 4 [X] 0 1305 0 &4 5 1 8 5 6 1 6 5 18 2 12 00000269 10 00000544 5 1 6 5 3 0 8 5 10 00000194 6 5 22 4 8 6 0 20 "{6}" 1 "," 13 8 7 0 20 "{6}" 2 "," 13 8 8 0 20 "{6}" 1 "_" 13 0 807 [X] 2 13 7 "as" 18 0 11 00000531 0 39 34 13 0 20 "{6}" 2 [X] 13 8 9 0 16 "{7}" "~" "{8}" "~" "{9}" 13 8 10 0 1041 &3 "{2}" "{10}" 6 2 5 1 3 0 8 2 10 00000236 16 AddFxMarks &3 0 789 "" 6 0 15 9 14 AddFxMarks 2 569 1 13 8 2 6 2 5 0 18 1 11 00000366 0 788 "{2}" 65536 13 8 3 6 2 5 65536 4 1 0 786 [X] 13 8 4 6 4 5 3 18 0 11 00000335 0 1044 &0 "{3}" 1 "~" 0 13 8 5 6 5 5 0 18 3 11 00000335 6 5 22 0 0 20 [X] 3 "~" 13 8 6 0 16 "@AmiFx_" "{6}" 13 8 7 16 Stripit "{7}" 13 8 7 2 466 1 "{7}" 4003 2 569 1 13 8 2 10 00000033 6 1 15 9 14 AmiTitleBar 0 284 "user,GetActiveWindow,H" 13 8 2 0 284 "User,SetWindowText,HHC" "{2}" "{0}" 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 14 stripit 5 1 8 2 7 "" 8 3 5 1 11 00000211 0 20 "{0}" "{2}" " " 13 8 4 6 4 7 "" 18 0 6 4 5 -1 18 0 1 2 11 00000147 10 00000211 0 16 "{3}" "_" "{4}" 13 8 3 6 2 5 1 3 0 8 2 10 00000033 0 14 "{3}" 13 5 1 3 1 0 807 "{3}" [X] 13 15 9 6 1 15 9 14 HelpFunction 0 32 2 0 265 "HelpPanelGlobalVar" 13 8 1 0 284 "user,FindWindow,HCC" "AmiProWndA" 0 13 8 2 0 798 13 0 16 [X] "amipro.hlp" 13 8 3 0 284 "user,WinHelp,HHCHJ" "{2}" "{3}" 1 "{1}" 6 0 15 9 DIALOG CreateDoc -2134376448 8 53 33 231 110 "" "AmiDialog" "Notes Workgroup Document Assistant" FONT 8 "Helv" 5 9 170 14 21 1342373897 "button" "&Copy an existing document to the workgroup database. " 0 5 53 172 14 22 1342242825 "button" "Create a &new workgroup database template. " 0 16 22 167 29 1000 1342177280 "static" "text" 0 16 66 172 28 1001 1342177280 "static" "text" 0 25 86 160 10 30 1342242819 "button" "&Base the template on an existing style sheet" 0 25 98 155 10 31 1342242819 "button" "&Store form in document" 0 188 4 40 14 1 1342373889 "button" "OK" 0 188 20 40 14 2 1342242816 "button" "Cancel" 0 DIALOG Smarts -2134376448 4 85 67 170 90 "" "" "Translate Fields" FONT 8 "Helv" 126 4 40 14 1 1342373889 "button" "OK" 0 126 20 40 14 2 1342373888 "button" "Cancel" 0 7 25 71 60 9000 1352728579 "listbox" "" 0 7 13 71 10 1000 1342177280 "static" "Available fields:" 0 DIALOG Remark -2134376448 7 33 42 211 85 "" "AmiDialog" "Editor's Remark" FONT 8 "Helv" 20 34 146 22 8000 1350631428 "edit" "" 0 168 4 40 14 1 1342373889 "button" "OK" 0 20 6 141 20 1000 1342177280 "static" "text" 0 20 59 148 22 1001 1342177280 "static" "text" 0 1 4 17 16 1010 1342177290 "static" "filename.bmp" 0 20 23 143 10 1002 1342177280 "static" "text" 0 168 20 40 14 2 1342373888 "button" "Cancel" 0 DIALOG version -2134376448 6 68 62 211 85 "" "AmiDialog" "New Version" FONT 8 "Helv" 20 34 146 22 8000 1350631428 "edit" "" 0 168 4 40 14 1 1342373889 "button" "OK" 0 20 6 141 20 1000 1342177280 "static" "text" 0 20 59 148 22 1001 1342177280 "static" "text" 0 1 4 17 16 1010 1342177290 "static" "filename.bmp" 0 20 24 143 10 1002 1342177280 "static" "text" 0 DIALOG Options -2134376448 9 30 29 231 94 "" "AmiDialog" "Workgroup Document Editing Options" FONT 8 "HELV" 35 46 120 10 22 1342373897 "button" "Have full editing abilities" 0 35 57 125 10 23 1342242825 "button" "Automatically enter revision marking mode" 0 35 68 120 10 24 1342242825 "button" "Enable document comments only" 0 20 82 115 10 25 1342242819 "button" "Show Workgroup Tools palette" 0 185 4 40 14 1 1342373889 "button" "OK" 0 4 4 19 19 1000 1342177290 "static" "FxPage.bmp" 0 4 26 19 18 1001 1342177290 "static" "FxPen.bmp" 0 23 5 158 26 1002 1342177280 "static" "text" 0 23 26 158 16 1003 1342177280 "static" "text" 0 DIALOG DocName -2134376448 26 71 62 237 214 "" "AmiDialog" "New Document Information" FONT 8 "Helv" 23 16 163 12 8010 1350631552 "edit" "" 0 23 41 163 21 8011 1350631428 "edit" "" 0 96 75 91 12 8001 1350631552 "edit" "" 0 96 90 91 12 8002 1350631552 "edit" "" 0 96 105 91 12 8003 1350631552 "edit" "" 0 96 120 91 12 8004 1350631552 "edit" "" 0 96 135 91 12 8005 1350631552 "edit" "" 0 96 150 91 12 8006 1350631552 "edit" "" 0 96 165 91 12 8007 1350631552 "edit" "" 0 96 180 91 12 8008 1350631552 "edit" "" 0 96 195 91 12 8009 1350631552 "edit" "" 0 192 5 40 14 1 1342373889 "button" "OK" 0 21 77 73 9 1001 1342177280 "static" "fld1:" 0 21 92 73 9 1002 1342177280 "static" "fld2:" 0 21 107 73 9 1003 1342177280 "static" "fld3:" 0 21 122 73 9 1004 1342177280 "static" "fld4:" 0 21 137 73 9 1005 1342177280 "static" "fld5:" 0 21 152 73 9 1006 1342177280 "static" "fld6:" 0 21 167 73 9 1007 1342177280 "static" "fld7:" 0 21 182 73 9 1008 1342177280 "static" "fld8:" 0 21 197 73 9 1009 1342177280 "static" "fld9:" 0 23 30 78 10 1000 1342177280 "static" "Document remark:" 0 4 60 16 15 1010 1342177290 "static" "fxpen.bmp" 0 21 65 85 9 1011 1342177280 "static" "Additional information:" 0 23 6 98 9 1012 1342177280 "static" "Document name:" 0 4 3 17 16 1013 1342177290 "static" "fxpage.bmp" 0 00080835