object PreviewFormEh: TPreviewFormEh
  Left = 787
  Top = 143
  Width = 616
  Height = 639
  Caption = 'Preview'
  Color = clBtnFace
  ParentFont = True
  KeyPreview = True
  OldCreateOrder = True
  Position = poDefault
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter: TSplitter
    Left = 0
    Top = 25
    Width = 600
    Height = 3
    Cursor = crVSplit
    Align = alTop
    MinSize = 1
  end
  object PreviewEh1: TPreviewBox
    Left = 0
    Top = 28
    Width = 600
    Height = 553
    Align = alClient
    TabOrder = 0
    OnOpenPreviewer = PreviewEh1OpenPreviewer
    OnPrinterPreviewChanged = PreviewEh1PrinterPreviewChanged
  end
  object tbrMain: TToolBar
    Left = 0
    Top = 0
    Width = 600
    Height = 25
    AutoSize = True
    ButtonHeight = 21
    ButtonWidth = 66
    ParentShowHint = False
    ShowCaptions = True
    ShowHint = True
    TabOrder = 1
    Wrapable = False
    object tbtPrint: TToolButton
      Left = 0
      Top = 2
      Hint = 'Print'
      Caption = 'Print'
      ImageIndex = 0
      OnClick = tbtPrintClick
    end
    object tbtPrinterSetupDialog: TToolButton
      Left = 66
      Top = 2
      Hint = 'Printer setup'
      Caption = 'Printer setup'
      ImageIndex = 2
      OnClick = tbtPrinterSetupDialogClick
    end
    object tbtScale: TToolButton
      Left = 132
      Top = 2
      Hint = 'Scale'
      Caption = 'Scale'
      DropdownMenu = pmnScale
      ImageIndex = 3
      Style = tbsDropDown
      OnClick = tbtScaleClick
    end
    object tbtPrevPage: TToolButton
      Left = 213
      Top = 2
      Hint = 'Previous page'
      Caption = 'Previous'
      ImageIndex = 4
      OnClick = tbtPrevPageClick
      OnMouseDown = tbtPrevPageMouseDown
      OnMouseUp = tbtPrevPageMouseUp
    end
    object tbtNextPage: TToolButton
      Left = 279
      Top = 2
      Hint = 'Next page'
      Caption = 'Next'
      ImageIndex = 5
      OnClick = tbtNextPageClick
      OnMouseDown = tbtNextPageMouseDown
      OnMouseUp = tbtNextPageMouseUp
    end
    object tbStop: TToolButton
      Left = 345
      Top = 2
      Caption = 'Stop'
      ImageIndex = 7
      OnClick = tbStopClick
    end
    object tbClose: TToolButton
      Left = 411
      Top = 2
      Hint = 'Close preview'
      Caption = 'Close'
      ImageIndex = 8
      OnClick = tbCloseClick
    end
  end
  object stbMain: TStatusBar
    Left = 0
    Top = 581
    Width = 600
    Height = 19
    Panels = <>
    SimplePanel = True
    SimpleText = 'Page 1 of 5'
  end
  object imlMain: TImageList
    Height = 32
    Width = 32
    Left = 40
    Top = 55
    Bitmap = {
      [encoded data, 101696 characters]
      000000000000}
  end
  object pmnScale: TPopupMenu
    Left = 8
    Top = 55
    object mni500: TMenuItem
      Caption = '500%'
      GroupIndex = 1
      RadioItem = True
      OnClick = mniScaleClick
    end
    object mni200: TMenuItem
      Tag = 1
      Caption = '200%'
      GroupIndex = 1
      RadioItem = True
      OnClick = mniScaleClick
    end
    object mni150: TMenuItem
      Tag = 2
      Caption = '150%'
      GroupIndex = 1
      RadioItem = True
      OnClick = mniScaleClick
    end
    object mni100: TMenuItem
      Tag = 3
      Caption = '100%'
      GroupIndex = 1
      RadioItem = True
      OnClick = mniScaleClick
    end
    object mni75: TMenuItem
      Tag = 4
      Caption = '75%'
      GroupIndex = 1
      RadioItem = True
      OnClick = mniScaleClick
    end
    object mni50: TMenuItem
      Tag = 5
      Caption = '50%'
      GroupIndex = 1
      RadioItem = True
      OnClick = mniScaleClick
    end
    object mni25: TMenuItem
      Tag = 6
      Caption = '25%'
      GroupIndex = 1
      RadioItem = True
      OnClick = mniScaleClick
    end
    object mni10: TMenuItem
      Tag = 7
      Caption = '10%'
      GroupIndex = 1
      RadioItem = True
      OnClick = mniScaleClick
    end
    object mniWidth: TMenuItem
      Tag = 8
      Caption = 'Page Width'
      GroupIndex = 1
      RadioItem = True
      OnClick = mniScaleClick
    end
    object mniFull: TMenuItem
      Tag = 9
      Caption = 'Whole Page'
      Checked = True
      GroupIndex = 1
      RadioItem = True
      OnClick = mniScaleClick
    end
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 72
    Top = 56
  end
end
