pdf_read.dfm.~21~

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

object PDF_AppForm: TPDF_AppForm
  Left = 197
  Top = 111
  Caption = 'PDF'#38405#35835#22120
  ClientHeight = 666
  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 ToolButton1: TToolButton
      Left = 5
      Top = 0
      Action = FileOpen1
    end
    object ToolButton2: TToolButton
      Left = 28
      Top = 0
      Action = FileSave1
    end
    object ToolButton3: TToolButton
      Left = 51
      Top = 0
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object ToolButton4: TToolButton
      Left = 59
      Top = 0
      Action = EditCut1
    end
    object ToolButton5: TToolButton
      Left = 82
      Top = 0
      Action = EditCopy1
    end
    object ToolButton6: TToolButton
      Left = 105
      Top = 0
      Action = EditPaste1
    end
    object ToolButton7: TToolButton
      Left = 128
      Top = 0
      Caption = 'ToolButton7'
      ImageIndex = 3
    end
    object ToolButton8: TToolButton
      Left = 151
      Top = 0
      Caption = 'ToolButton8'
      ImageIndex = 4
    end
    object ToolButton10: TToolButton
      Left = 174
      Top = 0
      Caption = 'ToolButton10'
      ImageIndex = 5
    end
    object ToolButton11: TToolButton
      Left = 197
      Top = 0
      Caption = 'ToolButton11'
      ImageIndex = 6
    end
    object ToolButton12: TToolButton
      Left = 220
      Top = 0
      Caption = 'ToolButton12'
      ImageIndex = 7
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 56
    Width = 190
    Height = 537
    BorderStyle = bsSingle
    TabOrder = 1
    object TreeView1: TTreeView
      Left = 5
      Top = 8
      Width = 169
      Height = 497
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Indent = 19
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
    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 = 620
    BorderStyle = bsSingle
    TabOrder = 3
    object FoxitReaderSDK1: TFoxitReaderSDK
      Left = 0
      Top = 0
      Width = 600
      Height = 621
      TabOrder = 0
      ControlData = {04000200033E00002F400000000000000000}
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 647
    Width = 792
    Height = 19
    Panels = <
      item
        Text = #25991#20214#21517#65306
        Width = 50
      end
      item
        Text = 'aaaa'
        Width = 500
      end
      item
        Text = #24403#21069#39029'/'#24635#20849#39029#65306
        Width = 100
      end
      item
        Width = 50
      end>
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    Left = 312
    object File1: TMenuItem
      Caption = #25991#20214'(&F)'
      Hint = 'File related commands'
      object FileOpenItem: TMenuItem
        Action = FileOpen1
        Caption = #25171#24320
        Hint = #25171#24320#19968#20010#25991#20214#22841
      end
      object FileSaveAsItem: TMenuItem
        Action = FileSaveAs1
        Caption = #21478#23384#20026
        ShortCut = 16449
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object FileExitItem: TMenuItem
        Action = FileExit1
        Caption = #20851#38381'(&C)'
      end
    end