object MsgPrintSetup: TMsgPrintSetup
  Left = 246
  Top = 121
  HelpContext = 14061
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Print Setup'
  ClientHeight = 372
  ClientWidth = 485
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Book: TPageControl
    Left = 0
    Top = 0
    Width = 485
    Height = 337
    ActivePage = tsMain
    Align = alTop
    TabOrder = 0
    OnChange = BookChange
    object tsMain: TTabSheet
      Caption = 'General'
      object gbMargins: TGroupBox
        Left = 8
        Top = 8
        Width = 177
        Height = 225
        Caption = 'Margins'
        TabOrder = 0
        object lLeft: TLabel
          Left = 16
          Top = 28
          Width = 21
          Height = 13
          Caption = '&Left:'
          FocusControl = eLeft
        end
        object lRight: TLabel
          Left = 16
          Top = 60
          Width = 28
          Height = 13
          Caption = '&Right:'
          FocusControl = eRight
        end
        object lTop: TLabel
          Left = 16
          Top = 92
          Width = 22
          Height = 13
          Caption = '&Top:'
          FocusControl = eTop
        end
        object lBottom: TLabel
          Left = 16
          Top = 124
          Width = 36
          Height = 13
          Caption = '&Bottom:'
          FocusControl = eBottom
        end
        object eLeft: TMaskEdit
          Left = 96
          Top = 24
          Width = 73
          Height = 21
          EditMask = '99.9999;1;0'
          MaxLength = 7
          TabOrder = 0
          Text = '  .    '
        end
        object eRight: TMaskEdit
          Left = 96
          Top = 56
          Width = 73
          Height = 21
          EditMask = '99.9999;1;0'
          MaxLength = 7
          TabOrder = 1
          Text = '  .    '
        end
        object eTop: TMaskEdit
          Left = 96
          Top = 88
          Width = 73
          Height = 21
          EditMask = '99.9999;1;0'
          MaxLength = 7
          TabOrder = 2
          Text = '  .    '
        end
        object eBottom: TMaskEdit
          Left = 96
          Top = 120
          Width = 73
          Height = 21
          EditMask = '99.9999;1;0'
          MaxLength = 7
          TabOrder = 3
          Text = '  .    '
        end
        object gbUnit: TRadioGroup
          Left = 16
          Top = 152
          Width = 153
          Height = 65
          Caption = 'Units'
          ItemIndex = 1
          Items.Strings = (
            '&Inches'
            '&Millimeters')
          TabOrder = 4
          OnClick = gbUnitClick
        end
      end
      object cbNumbers: TCheckBox
        Left = 208
        Top = 16
        Width = 257
        Height = 17
        Caption = '&Print page numbers'
        TabOrder = 1
        OnClick = cbNumbersClick
      end
      object gbNumbers: TGroupBox
        Left = 208
        Top = 40
        Width = 265
        Height = 265
        TabOrder = 2
        object rgNumTop: TRadioGroup
          Left = 8
          Top = 16
          Width = 249
          Height = 33
          Caption = 'Location'
          Columns = 2
          ItemIndex = 0
          Items.Strings = (
            'Top'
            'Bottom')
          TabOrder = 0
        end
        object rgNAlign: TRadioGroup
          Left = 8
          Top = 56
          Width = 249
          Height = 65
          Caption = 'Alignment'
          Columns = 2
          ItemIndex = 1
          Items.Strings = (
            'Left'
            'Centre'
            'Right')
          TabOrder = 1
        end
        object cbNUseTemplate: TCheckBox
          Left = 8
          Top = 136
          Width = 249
          Height = 17
          Caption = '&Use the specified template:'
          TabOrder = 2
          OnClick = cbNUseTemplateClick
        end
        object eNTemplate: TMemo
          Left = 8
          Top = 160
          Width = 249
          Height = 97
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Courier New'
          Font.Style = []
          ParentFont = False
          PopupMenu = mPop
          TabOrder = 3
          WordWrap = False
        end
      end
      object bSetup: TButton
        Left = 8
        Top = 256
        Width = 177
        Height = 25
        Caption = '&Setup printer...'
        TabOrder = 3
        OnClick = bSetupClick
      end
    end
    object tsTemplate: TTabSheet
      Caption = 'Template'
      object eTemplate: TMemo
        Left = 0
        Top = 0
        Width = 477
        Height = 309
        Align = alClient
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        PopupMenu = mPop
        TabOrder = 0
        WordWrap = False
      end
    end
    object tsFont: TTabSheet
      Caption = 'Font layout'
      object lNumberSample: TLabel
        Left = 264
        Top = 256
        Width = 193
        Height = 41
        Alignment = taCenter
        AutoSize = False
        Caption = 'Sample of page footer/header'
      end
      object pnHTML: TPanel
        Left = 16
        Top = 16
        Width = 225
        Height = 273
        BevelOuter = bvLowered
        TabOrder = 0
      end
      object bSetFont0: TButton
        Left = 264
        Top = 16
        Width = 193
        Height = 25
        Caption = '&Default font...'
        TabOrder = 1
        OnClick = bSetFont0Click
      end
      object bSetFont1: TButton
        Tag = 1
        Left = 264
        Top = 56
        Width = 193
        Height = 25
        Caption = '&Quotation font...'
        TabOrder = 2
        OnClick = bSetFont0Click
      end
      object bSetFont2: TButton
        Tag = 2
        Left = 264
        Top = 96
        Width = 193
        Height = 25
        Caption = 'PRE font (HTML only)...'
        TabOrder = 3
        OnClick = bSetFont0Click
      end
      object bSetFont3: TButton
        Tag = 3
        Left = 264
        Top = 136
        Width = 193
        Height = 25
        Caption = '&Hot Spot colour...'
        TabOrder = 4
        OnClick = bSetFont3Click
      end
      object bSetFont4: TButton
        Tag = 4
        Left = 264
        Top = 216
        Width = 193
        Height = 25
        Caption = 'Page numbers font...'
        TabOrder = 5
        OnClick = bSetFont0Click
      end
    end
  end
  object bMacro: TButton
    Left = 8
    Top = 344
    Width = 75
    Height = 25
    Caption = '&Macros...'
    TabOrder = 1
    Visible = False
    OnClick = bMacroClick
  end
  object bOK: TButton
    Left = 240
    Top = 344
    Width = 75
    Height = 25
    Caption = '&OK'
    Default = True
    ModalResult = 1
    TabOrder = 2
  end
  object bCancel: TButton
    Left = 320
    Top = 344
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 3
  end
  object bHelp: TButton
    Left = 400
    Top = 344
    Width = 75
    Height = 25
    Caption = 'Help'
    TabOrder = 4
    OnClick = bHelpClick
  end
  object dFont: TFontDialog
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Options = [fdEffects, fdApplyButton]
    OnApply = dFontApply
    Left = 112
    Top = 344
  end
  object dColor: TColorDialog
    Ctl3D = True
    Left = 152
    Top = 344
  end
  object mPop: TPopupMenu
    Left = 208
    Top = 344
    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 = 'P&ut 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
  end
  object dPrinter: TPrinterSetupDialog
    Left = 248
    Top = 344
  end
end