graphic.dfm

画图程序 通过DEPHI 实现画图板的功能

object Form1: TForm1
  Left = 250
  Top = 202
  Width = 548
  Height = 358
  ActiveControl = CoolBar1
  Caption = #20010#20154#22270#24418#31995#32479'  V2.0'
  Color = clActiveBorder
  Font.Charset = ANSI_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 650
    Top = 495
    Width = 136
    Height = 21
    Alignment = taCenter
    AutoSize = False
    Color = clActiveBorder
    Font.Charset = ANSI_CHARSET
    Font.Color = clTeal
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 796
    Height = 30
    AutoSize = True
    Bands = <
      item
        Control = ToolBar4
        ImageIndex = -1
        MinHeight = 26
        Width = 792
      end>
    object ToolBar4: TToolBar
      Left = 9
      Top = 0
      Width = 779
      Height = 26
      AutoSize = True
      Caption = 'ToolBar4'
      Color = clBtnFace
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Images = ImageList1
      ParentColor = False
      ParentFont = False
      TabOrder = 0
      object ToolButton6: TToolButton
        Left = 0
        Top = 2
        Hint = #26032#24314#25991#20214
        Caption = 'ToolButton6'
        ImageIndex = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton6Click
      end
      object ToolButton7: TToolButton
        Left = 23
        Top = 2
        Hint = #25171#24320#30690#37327#22270#24418#25991#20214
        Caption = 'ToolButton7'
        ImageIndex = 0
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton7Click
      end
      object ToolButton8: TToolButton
        Left = 46
        Top = 2
        Hint = #20445#23384#20026#30690#37327#22270#24418
        Caption = 'ToolButton8'
        ImageIndex = 1
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton8Click
      end
      object ToolButton9: TToolButton
        Left = 69
        Top = 2
        Width = 23
        Caption = 'ToolButton9'
        ImageIndex = 3
        Style = tbsDivider
      end
      object ToolButton10: TToolButton
        Left = 92
        Top = 2
        Hint = #20445#23384#20026'bmp'#22270#24418
        Caption = 'ToolButton10'
        ImageIndex = 3
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton10Click
      end
      object ToolButton11: TToolButton
        Left = 115
        Top = 2
        Hint = #20445#23384#20026'jpeg'#22270#24418
        Caption = 'ToolButton11'
        ImageIndex = 4
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton11Click
      end
      object ToolButton1: TToolButton
        Left = 138
        Top = 2
        Width = 23
        Caption = 'ToolButton1'
        ImageIndex = 5
        Style = tbsDivider
      end
      object ToolButton2: TToolButton
        Left = 161
        Top = 2
        Hint = #24110#21161#20449#24687
        Caption = 'ToolButton2'
        ImageIndex = 5
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton2Click
      end
    end
  end
  object BitBtn_line: TBitBtn
    Left = 650
    Top = 35
    Width = 66
    Height = 26
    Cursor = crHandPoint
    Hint = #32472#21046#30452#32447
    Caption = #30452#32447
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = BitBtn_lineClick
    Glyph.Data = {
      0A040000424D0A04000000000000420000002800000016000000160000000100
      100003000000C8030000120B0000120B00000000000000000000007C0000E003
      00001F0000009A779A779A779A779A779A779A779A779A779A779A779A779A77
      9A779A779A779A779A779A779A779A779A779A779A779A779A779A779A779A77
      9A779A779A779A779A779A779A779A779A779A779A779A779A779A779A779A77
      9A779A779A779A779A779A779A779A779A779A779A779A779A779A779A779A77
      9A779A779A779A779A779A779A779A779A779A779A779A779A779A779A779A77
      9A779A779A779A779A779A779A779A779A779A779A779A779A779A779A77CC00
      CC00CD009A779A779A779A779A779A779A779A779A779A779A779A779A779A77
      9A779A779A779A779A773C023B02CC009A779A779A779A779A779A779A779A77
      9A779A779A779A779A779A779A779A779A779A779A773C023C02CD00EE419A77
      9A779A779A779A779A779A779A779A779A779A779A779A779A779A779A779A77
      9A779A779A7793520000EE419A779A779A779A779A779A779A779A779A779A77
      9A779A779A779A779A779A779A779A779A779A7793520000EE419A779A779A77
      9A779A779A779A779A779A779A779A779A779A779A779A779A779A779A779A77
      9A7793520000EE419A779A779A779A779A779A779A779A779A779A779A779A77
      9A779A779A779A779A779A779A779A7793520000EE419A779A779A779A779A77
      9A779A779A779A779A779A779A779A779A779A779A779A779A779A779A779352
      0000EE419A779A779A779A779A779A779A779A779A779A779A779A779A779A77
      9A779A779A779A779A779A7793520000EE419A779A779A779A779A779A779A77
      9A779A779A779A779A779A779A779A779A779A779A779A779A7793520000EE41
      9A779A779A779A779A779A779A779A779A779A779A779A779A779A779A779A77
      9A779A779A779A7793520000EE419A779A779A779A779A779A779A779A779A77
      9A779A779A779A779A779A779A779A779A779A779A779352CC00CC00CD009A77
      9A779A779A779A779A779A779A779A779A779A779A779A779A779A779A779A77
      9A779A773C023B02CC009A779A779A779A779A779A779A779A779A779A779A77
      9A779A779A779A779A779A779A779A773C023C02CD009A779A779A779A779A77
      9A779A779A779A779A779A779A779A779A779A779A779A779A779A779A779A77
      9A779A779A779A779A779A779A779A779A779A779A779A779A779A779A779A77
      9A779A779A779A779A779A779A779A779A779A779A779A779A779A779A779A77
      9A779A779A779A779A779A779A779A779A779A779A779A779A779A779A779A77
      9A779A779A779A779A779A779A779A779A779A779A779A779A779A779A779A77
      9A779A779A779A779A779A779A77}
  end
  object BitBtn_circle: TBitBtn
    Left = 650
    Top = 140
    Width = 67
    Height = 26
    Cursor = crHandPoint
    Hint = #32472#21046#22278
    Caption = '    '#22278
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = BitBtn_circleClick
    Glyph.Data = {
      B2030000424DB203000000000000420000002800000014000000160000000100
      10000300000070030000120B0000120B00000000000000000000007C0000E003
      00001F0000009A779A779A779A779A779A779A779A779A779A779A779A779A77
      9A779A779A779A779A779A779A779A779A779A779A779A779A779A779A779A77
      9A779A779A779A779A779A779A779A779A779A779A779A779A779A779A779A77
      9A779A779A779A779A779A779A779A779A779A779A779A779A779A779A779A77
      9A779A779A779A779A779A7731462921420800004208092131429A779A779A77
      9A779A779A779A779A779A779A779A773767A61442086C29954AF95675464C25
      630CA51017639A779A779A779A779A779A779A779A77376742082A257D677C67
      5C633C5F3B5B1B5BD84E291D420817639A779A779A779A779A779A779A77C618
      8C2D7C6B7D6B7D677C675C633C5F3B5B1B5B1B57091DA5109A779A779A779A77
      9A779A77524A84109D6F9E6F9D6F7D6B7D677C675C633C5F3B5B1B5BD84E4208
      31429A779A779A779A779A774A29CE35BE77BE739E6F9D6F7D6B7D677C675C63
      3C5F3B5B1B5B2A2109219A779A779A779A779A77630C1963DE7BBE77BE739E6F
      CC00CC00CD007C675C633C5F3B5B544242089A779A779A779A779A772104BD77
      FF7BDE7BBE77BE733C023B02CC007D677C675C633C5FD85200009A779A779A77
      9A779A77630C3967FF7FFF7BDE7BBE773C023C02CD007D6B7D677C675C63964A
      42089A779A779A779A779A774A29EF3DFF7FFF7FFF7BDE7BBE77BE73921D921D
      7D6B7D677C674B2529219A779A779A779A779A77524E8410DE7BFF7FFF7FFF7B
      DE7BBE77BE73921D921D7D6B3B63420831469A779A779A779A779A779A77C618
      CE39DE7BFF7FFF7FFF7BDE7BBE77BE73921D921D2A25A6149A779A779A779A77
      9A779A779A773767630CAD35DE7BFF7FFF7FFF7BDE7BBE777B6B921D42083767
      9A779A779A779A779A779A779A779A773767C618630CEF3D3967BD771863AD35
      8510C61837679A779A779A779A779A779A779A779A779A779A779A77524E4929
      4208000042082925524A9A779A779A779A779A779A779A779A779A779A779A77
      9A779A779A779A779A779A779A779A779A779A779A779A779A779A779A779A77
      9A779A779A779A779A779A779A779A779A779A779A779A779A779A779A779A77
      9A779A779A779A779A779A779A779A779A779A779A779A779A779A779A779A77
      9A779A779A779A779A779A779A779A779A779A779A779A779A779A779A779A77
      9A779A779A779A779A779A779A779A779A779A779A77}
  end
  object ColorBox1: TColorBox
    Left = 650
    Top = 5
    Width = 146
    Height = 22
    Selected = clBlue
    Style = [cbStandardColors, cbExtendedColors, cbCustomColor, cbPrettyNames]
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 3
    OnChange = ColorBox1Change
  end
  object Edit1: TEdit
    Left = 5
    Top = 495
    Width = 636
    Height = 21
    BevelInner = bvLowered
    BevelKind = bkTile
    BevelOuter = bvRaised
    BorderStyle = bsNone
    Color = clActiveBorder
    Font.Charset = ANSI_CHARSET
    Font.Color = clGreen
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    ReadOnly = True