TcyColorGrid

type TcyColorGrid = class(TGraphicControl)

  FColorList: TStrings;

protected

  procedure DblClick; override;

  procedure Loaded; override;

  procedure MouseUp(); override;

  procedure MouseMove(); override;

  procedure SetAutoSize(); override;

  procedure Paint; override;

  procedure DoDrawBkgnd;

  procedure DoDrawBoxes;

  procedure DoDrawBox();

  procedure RedefineSize; virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  property Canvas;

  property HotColor: TColor; [rw]

  property HotColorIndex: Integer; [rw]

  property Colors []: TColor; default; [rw]

  property BoxColors []: TColor; [rw]

  function AddColor();

  procedure AddColors();

  procedure DefaultDrawBkgnd;

  procedure DefaultDrawBox();

  function GeBoxState();

  function PointInBox();

  function GetBoxAtPos();

  function GetColorFromIndex();

  function GetIndexFromColor();

  function GetBoxFromIndex();

  function GetIndexFromBox();

  function GetBoxFromColor();

  function GetColorBox();

  function SetColorBox();

published

  property Align;

  property Autosize;

  property Anchors;

  property Constraints;

  property Enabled;

  property Visible;

  property OnClick;

  property OnDblClick;

  property OnMouseDown;

  property OnMouseMove;

  property OnMouseUp;

  property Background: TColor; [rw]

  property BorderWidth: Word; [rw]

  property BoxHeight: Integer; [rw]

  property BoxWidth: Integer; [rw]

  property BoxRows: Integer; [rw]

  property BoxCols: Integer; [rw]

  property BoxFrameColor: TColor; [rw]

  property BoxFrameWidth: Integer; [rw]

  property BoxSpacingWidth: Integer; [rw]

  property BoxSpacingHeight: Integer; [rw]

  property ColorList: Tstrings; [rw]

  property Hot: Boolean; [rw]

  property HotRender: TcyCursorRender; [rw]

  property HideSelection: Boolean; [rw]

  property PartialPaint: Boolean; [rw]

  property Selection: TColor; [rw]

  property SelectionIndex: Integer; [rw]

  property SelectionRender: TcyCursorRender; [rw]

  property ReadOnly: Boolean; [rw]

  property Transparent: Boolean; [rw]

  property OnCustomDrawBox: TProcOnPaintBox; [rw]

  property OnCustomDrawBkgnd: TNotifyEvent; [rw]

  property OnAfterPaint: TNotifyEvent; [rw]

  property OnBoxClick: TProcOnBoxClick; [rw]

  property OnBoxDblClick: TProcOnBoxDblClick; [rw]

  property OnChange: TNotifyEvent; [rw]

end;

TcyColorGrid

TObject