TCustomCheckBoxThemed

type TCustomCheckBoxThemed = class(TCustomControl)

protected

  CheckBoxPressed: Boolean;

  KnobPosUnchecked: Integer;

  KnobPosChecked: Integer;

  KnobPosGrayed: Integer;

  procedure CalculatePreferredSize(); override;

  procedure CMBiDiModeChanged(); message;

  procedure CMEnabledChanged(); message;

  class procedure InitCheckBoxSize;

  function DialogChar(); override;

  procedure DoClick;

  procedure DoEnter; override;

  procedure DoExit; override;

  function GetActionLinkClass; override;

  procedure KeyDown(); override;

  procedure KeyUp(); override;

  procedure MouseDown(); override;

  procedure MouseEnter; override;

  procedure MouseLeave; override;

  procedure MouseUp(); override;

  procedure Paint; override;

  procedure TextChanged; override;

  procedure WMSize(); message;

  property CheckBoxHovered: Boolean; [rw]

  property CheckFromAction: Boolean; [rw]

protected

const

  cFocusBorder = SmallInt; = 2

  cIndent = SmallInt; = 5

public

  class function GetCheckBoxSize();

  class procedure PaintSelf();

  constructor Create(); override;

  property Alignment: TLeftRight; [rw]

  property AllowGrayed: Boolean; [rw]

  property Checked: Boolean; [rw]

  property State: TCheckBoxState; [rw]

  property OnChange: TNotifyEvent; [rw]

end;

TCustomCheckBoxThemed

TCustomControl

The base class for windowed controls which paint themselves.

TWinControl

Implements a windowed control which can contain other child controls.

TControl

The base class for visible controls.

TLCLComponent

TObject