TColorButton

type TColorButton = class(TCustomSpeedButton)

protected

  class procedure WSRegisterClass; override;

  procedure DoAutoAdjustLayout(); override;

  function DrawGlyph(); override;

  function GetDisabledPattern; virtual;

  function GetGlyphSize(); override;

  class function GetControlClassDefaultSize; override;

  procedure Notification(); override;

  procedure ShowColorDialog; virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Click; override;

published

  property Action: TBasicAction;

  property Align: TAlign;

  property Anchors: TAnchors;

  property AllowAllUp: Boolean;

  property BorderSpacing: TControlBorderSpacing;

  property BorderWidth: Integer; [rw]

  property ButtonColorAutoSize: Boolean; [rws]

  property ButtonColorSize: Integer; [rw]

  property ButtonColor: TColor; [rw]

  property ColorDialog: TColorDialog; [rw]

  property Constraints: TSizeConstraints;

  property Caption: TCaption;

  property Color: TColor;

  property Down: Boolean;

  property Enabled: Boolean;

  property Flat: Boolean;

  property Font: TFont;

  property GroupIndex: Integer;

  property Hint: TTranslateString;

  property Layout: TButtonLayout;

  property Margin: Integer;

  property Spacing: Integer;

  property Transparent: Boolean;

  property Visible: Boolean;

  property OnClick: TNotifyEvent;

  property OnColorChanged: TNotifyEvent; [rw]

  property OnDblClick: TNotifyEvent;

  property OnMouseDown: TMouseEvent;

  property OnMouseEnter: TNotifyEvent;

  property OnMouseLeave: TNotifyEvent;

  property OnMouseMove: TMouseMoveEvent;

  property OnMouseUp: TMouseEvent;

  property OnMouseWheel: TMouseWheelEvent;

  property OnMouseWheelDown: TMouseWheelUpDownEvent;

  property OnMouseWheelUp: TMouseWheelUpDownEvent;

  property OnPaint: TNotifyEvent;

  property OnResize: TNotifyEvent;

  property OnChangeBounds: TNotifyEvent;

  property ShowHint: Boolean;

  property ParentFont: Boolean;

  property ParentShowHint: Boolean;

  property PopupMenu: TPopupMenu;

end;

TColorButton

TCustomSpeedButton

TGraphicControl

TGraphicControl is the base class for all lightweight controls.

TControl

The base class for visible controls.

TLCLComponent

TObject