object TemplateEditor: TTemplateEditor Left = 208 Top = 91 Width = 395 Height = 375 HelpContext = 14066 BorderIcons = [biSystemMenu] Caption = 'Edit template' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True Position = poScreenCenter OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnKeyDown = FormKeyDown PixelsPerInch = 96 TextHeight = 13 object BottomPanel: TPanel Left = 0 Top = 307 Width = 387 Height = 41 Align = alBottom BevelOuter = bvNone TabOrder = 1 object ButtonsPanel: TPanel Left = 144 Top = 0 Width = 243 Height = 41 Align = alRight BevelOuter = bvNone TabOrder = 1 object b_OK: TButton Left = 24 Top = 8 Width = 65 Height = 25 Caption = '&OK' Default = True ModalResult = 1 TabOrder = 0 end object bCancel: TButton Left = 96 Top = 8 Width = 65 Height = 25 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 1 end object bHelp: TButton Left = 168 Top = 8 Width = 65 Height = 25 Caption = 'Help' TabOrder = 2 OnClick = bHelpClick end end object bMacros: TButton Left = 8 Top = 8 Width = 75 Height = 25 Caption = 'Macros' TabOrder = 0 OnClick = bMacrosClick end end object Panel3: TPanel Left = 0 Top = 0 Width = 387 Height = 307 Align = alClient BevelOuter = bvLowered BorderWidth = 1 TabOrder = 0 object pnHead: TPanel Left = 2 Top = 2 Width = 383 Height = 95 Align = alTop BevelOuter = bvNone TabOrder = 0 Visible = False object Label1: TLabel Left = 16 Top = 8 Width = 37 Height = 13 Caption = '&Handle:' FocusControl = eHandle end object Label2: TLabel Left = 16 Top = 28 Width = 56 Height = 13 Caption = '&Description:' FocusControl = eName end object Label3: TLabel Left = 16 Top = 80 Width = 47 Height = 13 Caption = '&Template:' FocusControl = eMsg end object eHandle: TEdit Left = 112 Top = 4 Width = 265 Height = 21 TabOrder = 0 end object eName: TEdit Left = 112 Top = 24 Width = 265 Height = 21 TabOrder = 1 end object cbShare: TCheckBox Left = 112 Top = 48 Width = 265 Height = 17 Caption = '&Share with other accounts' TabOrder = 2 end object cbNew: TCheckBox Left = 112 Top = 64 Width = 265 Height = 17 Caption = 'Use for &New messages/Mass mailing' TabOrder = 3 end object cbReply: TCheckBox Left = 112 Top = 80 Width = 265 Height = 17 Caption = 'Use for &Reply messages' Enabled = False TabOrder = 4 Visible = False end object cbForward: TCheckBox Left = 112 Top = 96 Width = 265 Height = 17 Caption = 'Use for &Forward messages' Enabled = False TabOrder = 5 Visible = False end end object pnMsg: TPanel Left = 2 Top = 97 Width = 383 Height = 208 Align = alClient BevelOuter = bvLowered TabOrder = 1 object eMsg: TTextEditor Left = 1 Top = 1 Width = 381 Height = 206 BgColor = clBlack TextColor = clBlack SelColor = clBlack SelBgColor = clBlack QuoteColor = clBlack RefColor = clBlack Kludge1Color = clBlack Kludge2Color = clBlack Kludge3Color = clBlack ReadOnly = False FontCharset = 1 TabOrder = 0 Font.Color = clNavy Font.Height = -13 Font.Name = 'Courier New' Font.Pitch = fpFixed Font.Style = [] Align = alClient PopupMenu = mPop end end end object mPop: TPopupMenu Left = 144 Top = 264 object mmText: TMenuItem Caption = '&Text' ShortCut = 0 end object mmSender: TMenuItem Caption = '&Sender info' ShortCut = 0 end object mmRece: TMenuItem Caption = '&Recipient info' ShortCut = 0 end object mmDef: TMenuItem Caption = '&Pre-defined fields' ShortCut = 0 end object mmMisc: TMenuItem Caption = '&Miscellaneous' ShortCut = 0 end object N1: TMenuItem Caption = '-' ShortCut = 0 end object mtAttachFile: TMenuItem Caption = '&Attach a file...' ShortCut = 32801 OnClick = mtAttachFileClick end object mtInclude: TMenuItem Tag = 1 Caption = '&Include template file...' ShortCut = 32813 OnClick = mtAttachFileClick end object mtPut: TMenuItem Tag = 2 Caption = 'Put text file...' ShortCut = 0 OnClick = mtAttachFileClick end object mtfCookie: TMenuItem Tag = 3 Caption = '&Cookie from a file...' ShortCut = 0 OnClick = mtAttachFileClick end object Popup1: TMenuItem Caption = 'Popup' ShortCut = 32889 Visible = False end object muAutoFormat: TMenuItem Caption = 'A&uto-Format' ShortCut = 24646 Visible = False OnClick = muAutoFormatClick end object muAutoWrap: TMenuItem Caption = 'Auto-&Wrap ' ShortCut = 24663 Visible = False OnClick = muAutoWrapClick end object muWrapJustify: TMenuItem Caption = '&Justify on autowrap' ShortCut = 24650 Visible = False OnClick = muWrapJustifyClick end end end