unit1.dfm

使用delphi编写的绘图程序

object Form1: TForm1
  Left = 213
  Top = 189
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClick = N1Click
  OnCreate = oncreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 185
    Height = 428
    Align = alLeft
    Caption = 'Panel1'
    TabOrder = 0
    object CoolBar1: TCoolBar
      Left = 1
      Top = 1
      Width = 183
      Height = 432
      Bands = <
        item
          Control = ToolBar1
          ImageIndex = -1
          MinHeight = 40
          Width = 179
        end
        item
          Control = ColorGrid1
          ImageIndex = -1
          MinHeight = 160
          Width = 179
        end
        item
          Control = ToolBar2
          ImageIndex = -1
          MinHeight = 40
          Width = 179
        end
        item
          Control = ToolBar3
          ImageIndex = -1
          MinHeight = 40
          Width = 179
        end
        item
          Control = ToolBar4
          ImageIndex = -1
          MinHeight = 40
          Width = 179
        end>
      object ToolBar1: TToolBar
        Left = 9
        Top = 0
        Width = 166
        Height = 40
        ButtonHeight = 35
        Caption = 'ToolBar1'
        EdgeInner = esNone
        EdgeOuter = esNone
        Flat = True
        Images = ImageList1
        ShowCaptions = True
        TabOrder = 0
        OnClick = lineClick
        OnMouseDown = paintbox1mousedown
        object line: TButton
          Left = 0
          Top = 0
          Width = 50
          Height = 35
          Caption = 'Line'
          TabOrder = 0
          OnClick = lineClick
          OnMouseDown = paintbox1mousedown
          OnMouseMove = paintbox1mousemove
          OnMouseUp = paintbox1mouseup
        end
        object Pencil: TButton
          Left = 50
          Top = 0
          Width = 50
          Height = 35
          Caption = 'Pencil'
          TabOrder = 1
          OnClick = lineClick
          OnMouseDown = paintbox1mousedown
          OnMouseMove = paintbox1mousemove
          OnMouseUp = paintbox1mouseup
        end
        object eraser: TButton
          Left = 100
          Top = 0
          Width = 50
          Height = 35
          Caption = 'Eraser'
          TabOrder = 2
          OnClick = lineClick
          OnMouseDown = paintbox1mousedown
          OnMouseMove = paintbox1mousemove
          OnMouseUp = paintbox1mouseup
        end
      end
      object ColorGrid1: TColorGrid
        Left = 9
        Top = 42
        Width = 164
        Height = 160
        TabOrder = 1
        OnChange = ColorGrid1Change
        OnClick = ColorGrid1Change
        OnMouseDown = paintbox1mousedown
        OnMouseMove = paintbox1mousemove
        OnMouseUp = paintbox1mouseup
      end
      object ToolBar2: TToolBar
        Left = 9
        Top = 204
        Width = 166
        Height = 40
        ButtonHeight = 35
        Caption = 'ToolBar2'
        EdgeInner = esNone
        EdgeOuter = esNone
        Flat = True
        Images = ImageList1
        ShowCaptions = True
        TabOrder = 2
        OnClick = lineClick
        OnMouseDown = paintbox1mousedown
        OnMouseMove = paintbox1mousemove
        OnMouseUp = paintbox1mouseup
        object square: TButton
          Left = 0
          Top = 0
          Width = 49
          Height = 35
          Caption = 'Square'
          TabOrder = 0
          OnClick = lineClick
          OnMouseDown = paintbox1mousedown
          OnMouseMove = paintbox1mousemove
          OnMouseUp = paintbox1mouseup
        end
        object FSquare: TButton
          Left = 49
          Top = 0
          Width = 55
          Height = 35
          Caption = 'FSquare'
          TabOrder = 1
          OnClick = lineClick
          OnMouseDown = paintbox1mousedown
          OnMouseMove = paintbox1mousemove
          OnMouseUp = paintbox1mouseup
        end
      end
      object ToolBar3: TToolBar
        Left = 9
        Top = 246
        Width = 166
        Height = 40
        ButtonHeight = 35
        Caption = 'ToolBar3'
        EdgeInner = esNone
        EdgeOuter = esNone
        Flat = True
        Images = ImageList1
        ShowCaptions = True
        TabOrder = 3
        OnClick = lineClick
        OnMouseDown = paintbox1mousedown
        OnMouseMove = paintbox1mousemove
        OnMouseUp = paintbox1mouseup
        object RSquare: TButton
          Left = 0
          Top = 0
          Width = 60
          Height = 35
          Caption = 'RSquare'
          TabOrder = 0
          OnClick = lineClick
          OnMouseDown = paintbox1mousedown
          OnMouseMove = paintbox1mousemove
          OnMouseUp = paintbox1mouseup
        end
        object FRSquare: TButton
          Left = 60
          Top = 0
          Width = 70
          Height = 35
          Caption = 'FRSquare'
          TabOrder = 1
          OnClick = lineClick
          OnMouseDown = paintbox1mousedown
          OnMouseMove = paintbox1mousemove
          OnMouseUp = paintbox1mouseup
        end
      end
      object ToolBar4: TToolBar
        Left = 9
        Top = 288
        Width = 166
        Height = 40
        ButtonHeight = 35
        Caption = 'ToolBar4'
        EdgeInner = esNone
        EdgeOuter = esNone
        Flat = True
        Images = ImageList1
        ShowCaptions = True
        TabOrder = 4
        OnClick = lineClick
        OnMouseDown = paintbox1mousedown
        OnMouseMove = paintbox1mousemove
        OnMouseUp = paintbox1mouseup
        object Circle: TButton
          Left = 0
          Top = 0
          Width = 50
          Height = 35
          Caption = 'Circle'
          TabOrder = 0
          OnClick = lineClick
          OnMouseDown = paintbox1mousedown
          OnMouseMove = paintbox1mousemove
          OnMouseUp = paintbox1mouseup
        end
        object FCircle: TButton
          Left = 50
          Top = 0
          Width = 55
          Height = 35
          Caption = 'FCircle'
          TabOrder = 1
          OnClick = lineClick
          OnMouseDown = paintbox1mousedown
          OnMouseMove = paintbox1mousemove
          OnMouseUp = paintbox1mouseup
        end
      end
    end
  end
  object Panel2: TPanel
    Left = 185
    Top = 0
    Width = 503
    Height = 428
    Align = alClient
    Caption = 'Panel2'
    Color = clWhite
    TabOrder = 1
    object PaintBox1: TPaintBox
      Left = 1
      Top = 1
      Width = 501
      Height = 426
      Align = alClient
      OnMouseDown = paintbox1mousedown
      OnMouseMove = paintbox1mousemove
      OnMouseUp = paintbox1mouseup
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 428
    Width = 688
    Height = 19
    BiDiMode = bdLeftToRight
    Panels = <>
    ParentBiDiMode = False
    SimplePanel = False
    OnClick = dispalyhint
  end
  object ImageList1: TImageList
    Left = 112
    Top = 104
    Bitmap = {
      494C010102000400040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001001000000000000008
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000EF3DEF3D0000EF3D
      EF3DEF3DEF3DEF3DEF3D0000EF3DEF3D00000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000EF3DEF3DEF3DEF3DEF3DEF3DEF3D
      0000EF3D00000000007C007C007C0000EF3D0000000000000000000000000000
      00000000000000000000000000000000EF3D0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000420000000000000000000000000000000000000000
      00000000000000000000F75EEF3D0000EF3D0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000E07FE07F0000000000000000000000000000000000000000
      0000000000000000F75EF75EF75E000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      FF7FE07F00000000000000000000000000000000000000000000000000000000
      00000000000000420042F75E0000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000000000FF7F
      E07F0000E07FFF7F0000FF7F0000000000000000000000000000000000000000
      0000000000420042E07F00000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000000000FF7FE07F
      FF7FE07FFF7F0000FF7FE07F0000000000000000000000000000000000000000
      000000420042E07F000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000000000E07FFF7F
      E07FFF7F0000FF7FE07F00000000000000000000000000000000000000000000
      00420042E07F0000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000000000FF7FE07F
      FF7FE07FFF7FE07F0000E07F0000000000000000000000000000000000000042
      0042E07F00000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000FF030000E07FFF7F
      E07FFF7FE07F00000000E07F0000000000000000000000000000000000420042
      E07F000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000FF03FF03FF030000E07F
      FF7FE07F0000E07F0000E07F000000000000000000000000000000420042E07F
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000FF03FF03FF030000
      E07FFF7FE07FFF7F0000E07F00000000000000000000000000420000E07F0000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000FF03FF03FF03
      00000000000000000000E07F0000000000000000000000000000E07F00000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000000000FF030000
      00000000000000000000F75E00000000000000000040007C0000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000007C007C0000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00FFFFE408000000000162FFF000000000
      FFE3FFE000000000FE63FFC100000000FC03FF8300000000F803FF0700000000
      F003FE0F00000000F003FC1F00000000E003F83F00000000C003F07F00000000
      8003E0FF000000000003C1FF00000000000383FF0000000001E307FF00000000
      83F70FFF00000000C7F79FFF00000000}
  end
  object PopupMenu1: TPopupMenu
    Left = 336
    Top = 248
    object N1: TMenuItem
      Caption = #22270#20687#21478#23384#20026
      OnClick = N1Click
    end
  end
  object SaveDialog1: TSaveDialog
    Filter = 'BMP'#22270#20687'|*.bmp'
    Left = 456
    Top = 248
  end
end