Chip 2001 December/Chip_2001-12_cd1.bin/zkuste/delphi/kompon/d345/PPREV.ZIP/BenPreview/Demo/TestPrev.dfm/TestPrev.txt

Text File | 2001-09-29 | 5.5 KB | 229 lines

object Form1: TForm1
  Left = 335
  Top = 121
  Width = 573
  Height = 482
  Caption = 'Test Print Preview'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  OldCreateOrder = True
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 565
    Height = 81
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 120
      Top = 29
      Width = 54
      Height = 13
      Caption = 'Initial Zoom'
    end
    object Label2: TLabel
      Left = 16
      Top = 8
      Width = 141
      Height = 13
      Caption = 'General Print Preview Options'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsUnderline]
      ParentFont = False
    end
    object ShowGridBox: TCheckBox
      Left = 16
      Top = 32
      Width = 97
      Height = 17
      Caption = 'Show &Grid'
      TabOrder = 0
    end
    object ZoomBox: TComboBox
      Left = 120
      Top = 45
      Width = 145
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 1
      Items.Strings = (
        'Fit To Page'
        'Fit To Width'
        'Two Pages')
    end
    object PageSetupBut: TButton
      Left = 296
      Top = 24
      Width = 75
      Height = 25
      Caption = 'Pa&ge Setup'
      TabOrder = 2
      OnClick = PageSetupButClick
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 81
    Width = 565
    Height = 355
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = 'String List'
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 557
        Height = 41
        Align = alTop
        BevelOuter = bvLowered
        TabOrder = 0
        object TestBut: TButton
          Left = 16
          Top = 8
          Width = 75
          Height = 25
          Caption = 'Pre&view'
          TabOrder = 0
          OnClick = TestButClick
        end
        object FontBut: TButton
          Left = 112
          Top = 8
          Width = 75
          Height = 25
          Caption = '&Font...'
          TabOrder = 1
          OnClick = FontButClick
        end
        object LoadBut: TButton
          Left = 208
          Top = 8
          Width = 75
          Height = 25
          Caption = '&Load...'
          TabOrder = 2
          OnClick = LoadButClick
        end
        object OwnerDrawBox: TCheckBox
          Left = 304
          Top = 12
          Width = 97
          Height = 17
          Caption = '&Owner Draw'
          TabOrder = 3
        end
        object Button1: TButton
          Left = 472
          Top = 8
          Width = 75
          Height = 25
          Caption = '&Draw'
          TabOrder = 4
          OnClick = Button1Click
        end
      end
      object RichEdit1: TRichEdit
        Left = 0
        Top = 41
        Width = 557
        Height = 286
        Align = alClient
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = []
        Lines.Strings = (
          'Load any RTF or ASCII file into here.')
        ParentFont = False
        TabOrder = 1
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 436
    Width = 565
    Height = 19
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object FontDialog1: TFontDialog
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 56
    Top = 224
  end
  object OpenDialog1: TOpenDialog
    Filter =
      'RTF Files (*.rtf)|*.rtf|Text Files (*.txt)|*.txt|All Files (*.*)' +
      '|*.*'
    Left = 216
    Top = 224
  end
  object PreviewPrinter1: TPreviewPrinter
    Orientation = poPortrait
    TextOptions.DrawStyle = dsStandard
    TextOptions.BodyFont.Charset = DEFAULT_CHARSET
    TextOptions.BodyFont.Color = clWindowText
    TextOptions.BodyFont.Height = -13
    TextOptions.BodyFont.Name = 'Arial'
    TextOptions.BodyFont.Style = []
    TextOptions.HeaderFont.Charset = DEFAULT_CHARSET
    TextOptions.HeaderFont.Color = clWindowText
    TextOptions.HeaderFont.Height = -24
    TextOptions.HeaderFont.Name = 'Times New Roman'
    TextOptions.HeaderFont.Style = [fsBold]
    TextOptions.FooterFont.Charset = DEFAULT_CHARSET
    TextOptions.FooterFont.Color = clWindowText
    TextOptions.FooterFont.Height = -13
    TextOptions.FooterFont.Name = 'Times New Roman'
    TextOptions.FooterFont.Style = [fsItalic]
    TextOptions.PageNumFont.Charset = DEFAULT_CHARSET
    TextOptions.PageNumFont.Color = clWindowText
    TextOptions.PageNumFont.Height = -13
    TextOptions.PageNumFont.Name = 'Times New Roman'
    TextOptions.PageNumFont.Style = [fsItalic]
    TextOptions.HeaderMargin = 0.500000000000000000
    TextOptions.FooterMargin = 0.750000000000000000
    TextOptions.HeaderAlign = taCenter
    TextOptions.FooterAlign = taCenter
    TextOptions.PrintPageNumber = pnBottom
    TextOptions.PageNumAlign = taRightJustify
    TextOptions.PageNumText = 'Page %d'
    Units = unInches
    ShowGrid = False
    ZoomOption = zoFitToPage
    ZoomVal = 100
    OnNewPage = PreviewPrinter1NewPage
    Left = 280
    Top = 189
  end
end