TJvFullColorGroup

type TJvFullColorGroup = class(TCustomControl)

protected

  procedure Paint; override;

  procedure ItemsChange();

  procedure BrushChange();

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure CalcRects();

  procedure InvalidateIndex();

  class function GetControlClassDefaultSize; override;

public

  constructor Create(); override;

  destructor Destroy; override;

  property MouseIndex: Integer; [r]

  property SelectedIndex: Integer; [rw]

  property Selected: TJvFullColor; [rw]

  property RowCount: Integer; [r]

published

  property Items: TJvFullColorList; [rw]

  property ColCount: Integer; [rw]

  property Edge: TJvFullColorEdge; [rw]

  property SelectedEdge: TJvFullColorEdge; [rw]

  property MouseEdge: TJvFullColorEdge; [rw]

  property SquareSize: Integer; [rw]

  property Brush: TBrush; [rw]

  property OnChange: TNotifyEvent; [rw]

  property OnFormatHint: TJvFormatHintEvent; [rw]

  property Align;

  property Anchors;

  property BorderSpacing;

  property BorderStyle;

  property BorderWidth;

  property Color;

  property Constraints;

  property Hint;

  property ParentShowHint;

  property ParentColor;

  property ShowHint;

  property Visible;

end;

TJvFullColorGroup

TObject