Chip 2003 February/Chip_2003-02_cd1.bin/zkuste/delphi/kompon/d3456/PREVIEW.ZIP/Demo/Main.dfm/Main.txt

Text File | 2002-05-11 | 5KB | 206 lines

object MainForm: TMainForm
  Left = 248
  Top = 72
  AutoScroll = False
  Caption = 'TPrintPreview'
  ClientHeight = 587
  ClientWidth = 674
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poDefault
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 8
    Top = 40
    Width = 337
    Height = 214
    AutoSize = True
    Picture.Data = {<image000.bmp>}
  end
  object Image2: TImage
    Left = 248
    Top = 32
    Width = 340
    Height = 513
    AutoSize = True
    Picture.Data = {<image001.jpg>}
  end
  object Toolbar: TPanel
    Left = 0
    Top = 0
    Width = 674
    Height = 29
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 30
      Height = 13
      Caption = 'Zoom:'
    end
    object Label2: TLabel
      Left = 144
      Top = 8
      Width = 22
      Height = 13
      Caption = 'Unit:'
    end
    object ZoomComboBox: TComboBox
      Left = 41
      Top = 4
      Width = 97
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 0
      OnChange = ZoomComboBoxChange
      Items.Strings = (
        '%50'
        '%100'
        '%150'
        '%200'
        'Page Width'
        'Page Height'
        'Whole Page')
    end
    object PrintButton: TButton
      Left = 405
      Top = 2
      Width = 59
      Height = 25
      Caption = 'Print...'
      Enabled = False
      TabOrder = 4
      OnClick = PrintButtonClick
    end
    object UnitComboBox: TComboBox
      Left = 170
      Top = 4
      Width = 74
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 1
      OnChange = UnitComboBoxChange
      Items.Strings = (
        'Pixels'
        '1/10 mm'
        '1/100 mm'
        '1/10"'
        '1/100"'
        'TWIPS')
    end
    object FastPrintCheckBox: TCheckBox
      Left = 333
      Top = 7
      Width = 66
      Height = 17
      Hint = 'Unmark the checkbox for better quality of images on print.'
      Caption = 'Fast Print'
      Checked = True
      ParentShowHint = False
      ShowHint = True
      State = cbChecked
      TabOrder = 3
      OnClick = FastPrintCheckBoxClick
    end
    object AutoScrollCheckBox: TCheckBox
      Left = 252
      Top = 8
      Width = 76
      Height = 17
      Caption = 'Auto Scroll'
      Checked = True
      State = cbChecked
      TabOrder = 2
      OnClick = AutoScrollCheckBoxClick
    end
    object SaveButton: TButton
      Left = 470
      Top = 2
      Width = 97
      Height = 25
      Caption = 'Save To File...'
      Enabled = False
      TabOrder = 5
      OnClick = SaveButtonClick
    end
    object LoadButton: TButton
      Left = 568
      Top = 2
      Width = 97
      Height = 25
      Caption = 'Load From File...'
      TabOrder = 6
      OnClick = LoadButtonClick
    end
  end
  object PrintPreview: TPrintPreview
    Left = 0
    Top = 29
    Width = 674
    Height = 529
    HorzScrollBar.Margin = 10
    HorzScrollBar.Tracking = True
    VertScrollBar.Margin = 10
    VertScrollBar.Tracking = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -260
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    PrintJobTitle = 'TPrintPreview Sample Print'
    PaperView.BorderColor = clNavy
    PaperView.BorderWidth = 2
    PaperView.ShadowWidth = 4
    OnBeginDoc = PrintPreviewBeginDoc
    OnEndDoc = PrintPreviewEndDoc
    OnNewPage = PrintPreviewNewPage
    OnChange = PrintPreviewChange
    OnPrintProgress = PrintPreviewPrintProgress
    OnBeforePrint = PrintPreviewBeforePrint
    OnAfterPrint = PrintPreviewAfterPrint
  end
  object PageNavigator: TTabSet
    Left = 0
    Top = 558
    Width = 674
    Height = 29
    Align = alBottom
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    OnChange = PageNavigatorChange
  end
  object PrinterSetupDialog: TPrinterSetupDialog
    Left = 8
    Top = 40
  end
  object OpenDialog: TOpenDialog
    DefaultExt = 'ppv'
    Filter = 'Print Preview Files (*.ppv)|*.ppv|All Files (*.*)|*.*'
    Left = 38
    Top = 40
  end
  object SaveDialog: TSaveDialog
    DefaultExt = 'ppv'
    Filter = 'Print Preview Files (*.ppv)|*.ppv|All Files (*.*)|*.*'
    Left = 68
    Top = 40
  end
end