Delphi控件源码

开发平台：
Delphi

SelColorFrm.dfm：源码内容
							object SelColorForm: TSelColorForm
  Left = 249
  Top = 274
  BorderStyle = bsNone
  Caption = 'SelColorForm'
  ClientHeight = 194
  ClientWidth = 191
  Color = clWindow
  Ctl3D = False
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Shape1: TShape
    Left = 0
    Top = 0
    Width = 191
    Height = 194
    Align = alClient
    Pen.Color = clGray
  end
  object ImgDraw: TImage
    Left = 1
    Top = 1
    Width = 189
    Height = 191
  end
  object ImageCustom: TImage
    Tag = 13
    Left = 4
    Top = 168
    Width = 84
    Height = 20
    OnClick = ImageCustomClick
    OnMouseDown = Image1MouseDown
    OnMouseMove = Image1MouseMove
    OnMouseUp = Image1MouseUp
  end
  object Image1: TImage
    Tag = 1
    Left = 4
    Top = 4
    Width = 58
    Height = 37
    AutoSize = True
    OnClick = Image1Click
    OnMouseDown = Image1MouseDown
    OnMouseMove = Image1MouseMove
    OnMouseUp = Image1MouseUp
  end
  object Image2: TImage
    Tag = 2
    Left = 66
    Top = 4
    Width = 58
    Height = 37
    AutoSize = True
    OnClick = Image1Click
    OnMouseDown = Image1MouseDown
    OnMouseMove = Image1MouseMove
    OnMouseUp = Image1MouseUp
  end
  object Image4: TImage
    Tag = 3
    Left = 128
    Top = 4
    Width = 58
    Height = 37
    AutoSize = True
    OnClick = Image1Click
    OnMouseDown = Image1MouseDown
    OnMouseMove = Image1MouseMove
    OnMouseUp = Image1MouseUp
  end
  object Image5: TImage
    Tag = 10
    Left = 4
    Top = 127
    Width = 58
    Height = 37
    AutoSize = True
    OnClick = Image1Click
    OnMouseDown = Image1MouseDown
    OnMouseMove = Image1MouseMove
    OnMouseUp = Image1MouseUp
  end
  object Image3: TImage
    Tag = 4
    Left = 4
    Top = 45
    Width = 58
    Height = 37
    AutoSize = True
    OnClick = Image1Click
    OnMouseDown = Image1MouseDown
    OnMouseMove = Image1MouseMove
    OnMouseUp = Image1MouseUp
  end
  object Image6: TImage
    Tag = 5
    Left = 66
    Top = 45
    Width = 58
    Height = 37
    AutoSize = True
    OnClick = Image1Click
    OnMouseDown = Image1MouseDown
    OnMouseMove = Image1MouseMove
    OnMouseUp = Image1MouseUp
  end
  object Image7: TImage
    Tag = 6
    Left = 128
    Top = 45
    Width = 58
    Height = 37
    AutoSize = True
    OnClick = Image1Click
    OnMouseDown = Image1MouseDown
    OnMouseMove = Image1MouseMove
    OnMouseUp = Image1MouseUp
  end
  object Image9: TImage
    Tag = 7
    Left = 4
    Top = 86
    Width = 58
    Height = 37
    AutoSize = True
    OnClick = Image1Click
    OnMouseDown = Image1MouseDown
    OnMouseMove = Image1MouseMove
    OnMouseUp = Image1MouseUp
  end
  object Image10: TImage
    Tag = 8
    Left = 66
    Top = 86
    Width = 58
    Height = 37
    AutoSize = True
    OnClick = Image1Click
    OnMouseDown = Image1MouseDown
    OnMouseMove = Image1MouseMove
    OnMouseUp = Image1MouseUp
  end
  object Image11: TImage
    Tag = 9
    Left = 128
    Top = 86
    Width = 58
    Height = 37
    AutoSize = True
    OnClick = Image1Click
    OnMouseDown = Image1MouseDown
    OnMouseMove = Image1MouseMove
    OnMouseUp = Image1MouseUp
  end
  object Image12: TImage
    Tag = 12
    Left = 128
    Top = 127
    Width = 58
    Height = 37
    AutoSize = True
    OnClick = Image1Click
    OnMouseDown = Image1MouseDown
    OnMouseMove = Image1MouseMove
    OnMouseUp = Image1MouseUp
  end
  object Image14: TImage
    Tag = 11
    Left = 66
    Top = 127
    Width = 58
    Height = 37
    AutoSize = True
    OnClick = Image1Click
    OnMouseDown = Image1MouseDown
    OnMouseMove = Image1MouseMove
    OnMouseUp = Image1MouseUp
  end
  object ImageDefault: TImage
    Tag = 14
    Left = 93
    Top = 168
    Width = 93
    Height = 20
    OnClick = ImageDefaultClick
    OnMouseDown = Image1MouseDown
    OnMouseMove = Image1MouseMove
    OnMouseUp = Image1MouseUp
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 200
    OnTimer = Timer1Timer
    Left = 331
    Top = 8
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Options = [cdFullOpen, cdPreventFullOpen, cdShowHelp, cdSolidColor, cdAnyColor]
    Left = 64
    Top = 32
  end
end

						