unit1.dfm

能够让用户很方便的在自己的程序中写出自己想要的所有的图形来,很实用的.

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 544
  Height = 375
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 185
    Height = 329
    Align = alLeft
    Caption = 'Panel1'
    TabOrder = 0
    object CoolBar1: TCoolBar
      Left = 1
      Top = 1
      Width = 183
      Height = 240
      Bands = <
        item
          Control = ToolBar1
          ImageIndex = -1
          Width = 179
        end
        item
          Control = ColorGrid1
          ImageIndex = -1
          MinHeight = 124
          Width = 179
        end
        item
          Control = ToolBar2
          ImageIndex = -1
          Width = 179
        end
        item
          Control = ToolBar3
          ImageIndex = -1
          Width = 179
        end
        item
          Control = ToolBar4
          ImageIndex = -1
          Width = 179
        end>
      object ToolBar1: TToolBar
        Left = 9
        Top = 0
        Width = 166
        Height = 25
        ButtonHeight = 21
        ButtonWidth = 37
        Caption = 'ToolBar1'
        Flat = True
        ShowCaptions = True
        TabOrder = 0
        object ToolButton1: TToolButton
          Left = 0
          Top = 0
          Hint = 'Line'
          Caption = 'Line'
          ImageIndex = 0
          ParentShowHint = False
          ShowHint = True
          OnClick = ToolButton1Click
        end
        object ToolButton2: TToolButton
          Left = 37
          Top = 0
          Hint = 'Pencil'
          Caption = 'Pencil'
          ImageIndex = 1
          ParentShowHint = False
          ShowHint = True
          OnClick = ToolButton2Click
        end
        object ToolButton3: TToolButton
          Left = 74
          Top = 0
          Hint = 'Eraser'
          Caption = 'Eraser'
          ImageIndex = 2
          ParentShowHint = False
          ShowHint = True
          OnClick = ToolButton3Click
        end
      end
      object ToolBar2: TToolBar
        Left = 9
        Top = 153
        Width = 166
        Height = 25
        ButtonHeight = 21
        ButtonWidth = 47
        Caption = 'ToolBar2'
        EdgeInner = esNone
        EdgeOuter = esNone
        Flat = True
        ShowCaptions = True
        TabOrder = 1
        object ToolButton4: TToolButton
          Left = 0
          Top = 0
          Hint = 'Square'
          Caption = 'Square'
          ImageIndex = 0
          ParentShowHint = False
          ShowHint = True
          OnClick = ToolButton4Click
        end
        object ToolButton5: TToolButton
          Left = 47
          Top = 0
          Hint = 'FSquare'
          Caption = 'FSquare'
          ImageIndex = 1
          ParentShowHint = False
          ShowHint = True
          OnClick = ToolButton5Click
        end
      end
      object ToolBar3: TToolBar
        Left = 9
        Top = 180
        Width = 166
        Height = 25
        ButtonHeight = 21
        ButtonWidth = 53
        Caption = 'ToolBar3'
        EdgeInner = esNone
        EdgeOuter = esNone
        Flat = True
        ShowCaptions = True
        TabOrder = 2
        object ToolButton6: TToolButton
          Left = 0
          Top = 0
          Hint = 'RSquare'
          Caption = 'RSquare'
          ImageIndex = 0
          ParentShowHint = False
          ShowHint = True
          OnClick = ToolButton6Click
        end
        object ToolButton7: TToolButton
          Left = 53
          Top = 0
          Hint = 'FRsquare'
          Caption = 'FRsquare'
          ImageIndex = 1
          ParentShowHint = False
          ShowHint = True
          OnClick = ToolButton7Click
        end
      end
      object ToolBar4: TToolBar
        Left = 9
        Top = 207
        Width = 166
        Height = 25
        ButtonHeight = 21
        ButtonWidth = 39
        Caption = 'ToolBar4'
        EdgeInner = esNone
        EdgeOuter = esNone
        Flat = True
        ShowCaptions = True
        TabOrder = 3
        object ToolButton8: TToolButton
          Left = 0
          Top = 0
          Hint = 'Circle'
          Caption = 'Circle'
          ImageIndex = 0
          ParentShowHint = False
          ShowHint = True
          OnClick = ToolButton8Click
        end
        object ToolButton9: TToolButton
          Left = 39
          Top = 0
          Hint = 'FCircle'
          Caption = 'FCircle'
          ImageIndex = 1
          ParentShowHint = False
          ShowHint = True
          OnClick = ToolButton9Click
        end
      end
      object ColorGrid1: TColorGrid
        Left = 9
        Top = 27
        Width = 164
        Height = 124
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 4
        OnClick = ColorGrid1Click
      end
    end
  end
  object Panel2: TPanel
    Left = 185
    Top = 0
    Width = 351
    Height = 329
    Align = alClient
    Color = clBtnHighlight
    TabOrder = 1
    object PaintBox1: TPaintBox
      Left = 1
      Top = 1
      Width = 349
      Height = 327
      Align = alClient
      Color = clBtnFace
      ParentColor = False
      PopupMenu = PopupMenu1
      OnMouseDown = PaintBox1MouseDown
      OnMouseMove = PaintBox1MouseMove
      OnMouseUp = PaintBox1MouseUp
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 329
    Width = 536
    Height = 19
    Panels = <
      item
        Width = 50
      end>
  end
  object PopupMenu1: TPopupMenu
    Left = 241
    Top = 280
    object N1: TMenuItem
      Caption = #22270#20687#21478#23384#20026
      OnClick = N1Click
    end
  end
  object SaveDialog1: TSaveDialog
    Filter = 'BMP'#22270#20687'|*.bmp'
    Left = 313
    Top = 280
  end
end