pdf_read.dfm

此代码是完成PDF文档阅读器有代码,请注意:

object PDF_AppForm: TPDF_AppForm
  Left = 197
  Top = 111
  Caption = 'PDF'#38405#35835#22120
  ClientHeight = 686
  ClientWidth = 792
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 792
    Height = 30
    BorderWidth = 1
    Color = clBtnFace
    EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
    Images = ImageList1
    Indent = 5
    ParentColor = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    Wrapable = False
    object ToolButton3: TToolButton
      Left = 5
      Top = 0
      Caption = '&'#25171#24320
      ImageIndex = 1
    end
    object ToolButton2: TToolButton
      Left = 28
      Top = 0
      Width = 8
      Caption = 'ToolButton2'
      ImageIndex = 1
      Style = tbsSeparator
    end
    object ToolButton17: TToolButton
      Left = 36
      Top = 0
      Caption = 'ToolButton17'
      ImageIndex = 8
    end
    object ToolButton16: TToolButton
      Left = 59
      Top = 0
      Width = 8
      Caption = 'ToolButton16'
      ImageIndex = 8
      Style = tbsSeparator
    end
    object ToolButton1: TToolButton
      Left = 67
      Top = 0
      Caption = 'ToolButton1'
      ImageIndex = 0
    end
    object ToolButton4: TToolButton
      Left = 90
      Top = 0
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object ToolButton5: TToolButton
      Left = 98
      Top = 0
      Caption = 'ToolButton5'
      ImageIndex = 2
    end
    object ToolButton6: TToolButton
      Left = 121
      Top = 0
      Width = 8
      Caption = 'ToolButton6'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object ToolButton7: TToolButton
      Left = 129
      Top = 0
      Caption = 'ToolButton7'
      ImageIndex = 3
    end
    object ToolButton8: TToolButton
      Left = 152
      Top = 0
      Width = 8
      Caption = 'ToolButton8'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object ToolButton9: TToolButton
      Left = 160
      Top = 0
      Caption = 'ToolButton9'
      ImageIndex = 4
    end
    object ToolButton10: TToolButton
      Left = 183
      Top = 0
      Width = 8
      Caption = 'ToolButton10'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object ToolButton11: TToolButton
      Left = 191
      Top = 0
      Caption = 'ToolButton11'
      ImageIndex = 5
    end
    object ToolButton12: TToolButton
      Left = 214
      Top = 0
      Width = 8
      Caption = 'ToolButton12'
      ImageIndex = 6
      Style = tbsSeparator
    end
    object ToolButton13: TToolButton
      Left = 222
      Top = 0
      Caption = 'ToolButton13'
      ImageIndex = 6
    end
    object ToolButton14: TToolButton
      Left = 245
      Top = 0
      Width = 8
      Caption = 'ToolButton14'
      ImageIndex = 7
      Style = tbsSeparator
    end
    object ToolButton15: TToolButton
      Left = 253
      Top = 0
      Caption = 'ToolButton15'
      ImageIndex = 7
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 56
    Width = 190
    Height = 622
    BorderStyle = bsSingle
    TabOrder = 1
    object TreeView1: TTreeView
      Left = 1
      Top = 8
      Width = 181
      Height = 597
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Indent = 19
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      OnClick = TreeView1Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 30
    Width = 190
    Height = 32
    BorderStyle = bsSingle
    TabOrder = 2
    object Label1: TLabel
      Left = 5
      Top = 6
      Width = 36
      Height = 12
      Caption = #30446#24405#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 40
      Top = 5
      Width = 134
      Height = 16
      AutoSize = False
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
  end
  object Panel3: TPanel
    Left = 188
    Top = 29
    Width = 604
    Height = 640
    BorderStyle = bsSingle
    TabOrder = 3
    object FoxitReaderSDK1: TFoxitReaderSDK
      Left = 0