unit1.nfm.~1~

《Delphi 2005程序设计及其应用开发》源代码

object Form1: TForm1
  Caption = #32472#22270#24037#20855#30340#35774#35745#19982#24320#21457
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Height = 449
  Menu = MainMenu1
  Width = 648
  Left = 8
  Top = 8
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Panels = <
      item
        Width = 300
      end
      item
        Width = 50
      end>
    Left = 0
    Top = 376
    Width = 640
    Height = 19
  end
  object Panel1: TPanel
    Align = alLeft
    TabOrder = 1
    Left = 0
    Top = 0
    Width = 89
    Height = 376
    object CoolBar1: TCoolBar
      Bands = <
        item
          Break = False
          Control = ToolBar1
          ImageIndex = -1
          MinHeight = 128
          Width = 83
        end
        item
          Control = Panel2
          ImageIndex = -1
          MinHeight = 199
          Width = 83
        end>
      Left = 1
      Top = 1
      Width = 87
      Height = 464
      object ToolBar1: TToolBar
        AutoSize = True
        ButtonHeight = 31
        ButtonWidth = 33
        Height = 128
        Images = ImageList1
        TabOrder = 0
        Left = 9
        Top = 0
        Width = 70
        object ToolButton3: TToolButton
          Caption = 'ToolButton3'
          ImageIndex = 2
          Left = 0
          Top = 2
          OnClick = ToolButton3Click
        end
        object ToolButton1: TToolButton
          Caption = 'ToolButton1'
          ImageIndex = 0
          Wrap = True
          Left = 33
          Top = 2
          OnClick = ToolButton1Click
        end
        object ToolButton4: TToolButton
          Caption = 'ToolButton4'
          ImageIndex = 3
          Left = 0
          Top = 33
          OnClick = ToolButton4Click
        end
        object ToolButton5: TToolButton
          Caption = 'ToolButton5'
          ImageIndex = 4
          Wrap = True
          Left = 33
          Top = 33
          OnClick = ToolButton5Click
        end
        object ToolButton8: TToolButton
          Caption = 'ToolButton8'
          ImageIndex = 8
          Left = 0
          Top = 64
          OnClick = ToolButton8Click
        end
        object ToolButton2: TToolButton
          Caption = 'ToolButton2'
          ImageIndex = 6
          Wrap = True
          Left = 33
          Top = 64
          OnClick = ToolButton2Click
        end
        object ToolButton9: TToolButton
          Caption = 'ToolButton9'
          ImageIndex = 7
          Left = 0
          Top = 95
          OnClick = ToolButton9Click
        end
        object ToolButton11: TToolButton
          Caption = 'ToolButton11'
          ImageIndex = 9
          Left = 33
          Top = 95
          OnClick = ToolButton11Click
        end
      end
      object Panel2: TPanel
        BevelOuter = bvLowered
        TabOrder = 1
        Left = 9
        Top = 130
        Width = 70
        Height = 199
        object Shape1: TShape
          Left = 24
          Top = 24
          Width = 33
          Height = 33
        end
        object Shape2: TShape
          Left = 8
          Top = 8
          Width = 33
          Height = 33
        end
        object Label1: TLabel
          AutoSize = False
          Caption = #32447#26465#39068#33394
          Font.Charset = CHINESEBIG5_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          Left = 5
          Top = 72
          Width = 73
          Height = 13
        end
        object Label2: TLabel
          AutoSize = False
          Caption = #22635#20805#33394
          Font.Charset = CHINESEBIG5_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          Left = 5
          Top = 136
          Width = 65
          Height = 13
        end
        object ColorBox1: TColorBox
          ItemHeight = 16
          TabOrder = 0
          Left = 0
          Top = 88
          Width = 73
          Height = 22
          OnChange = ColorBox1Change
        end
        object ColorBox2: TColorBox
          Selected = clWhite
          ItemHeight = 16
          TabOrder = 1
          Left = 0
          Top = 152
          Width = 73
          Height = 22
          OnChange = ColorBox2Change
        end
      end
    end
  end
  object Panel3: TPanel
    Align = alClient
    BorderStyle = bsSingle
    Color = clWhite
    TabOrder = 2
    Left = 89
    Top = 0
    Width = 551
    Height = 376
    object PaintBox1: TPaintBox
      Align = alClient
      Color = clWhite
      ParentColor = False
      Left = 1
      Top = 1
      Width = 545
      Height = 370
      OnMouseDown = PaintBox1MouseDown
      OnMouseMove = PaintBox1MouseMove
      OnMouseUp = PaintBox1MouseUp
      OnPaint = PaintBox1Paint
    end
  end
  object MainMenu1: TMainMenu
    Left = 192
    Top = 16
    object F1: TMenuItem
      Caption = #25991#20214#65288'&F)'
      object OpenItem: TMenuItem
        Caption = #25171#24320'(&O)'
        OnClick = OpenItemClick
      end
      object SaveItem: TMenuItem
        Caption = #20445#23384'(&S)'
        OnClick = SaveItemClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object ExitItem: TMenuItem
        Caption = #36864#20986
        OnClick = ExitItemClick
      end
    end
    object E1: TMenuItem
      Caption = #32534#36753'(&E)'
      object CutItem: TMenuItem
        Caption = #21098#20999'(&X)'
        Enabled = False
      end
      object CopyItem: TMenuItem
        Caption = #22797#21046'(&C)'
        Enabled = False
      end
      object PasteItem: TMenuItem
        Caption = #31896#36148'(&P)'
        Enabled = False
      end
    end
    object H1: TMenuItem
      Caption = #24110#21161'(&H)'
      object AboutItem: TMenuItem
        Caption = #20851#20110'...(&A)'
      end
    end
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Left = 136
    Top = 120
  end
  object SavePictureDialog1: TSavePictureDialog
    Left = 208
    Top = 136
  end
  object ImageList1: TImageList
    Left = 144