TCDControl

type TCDControl = class(TCustomControl)

protected

  FDrawStyle: TCDDrawStyle;

  FDrawer: TCDDrawer;

  FState: TCDControlState;

  FStateEx: TCDControlStateEx;

  procedure CalculatePreferredSize(); override;

  procedure SetState(); virtual;

  procedure PrepareCurrentDrawer; virtual;

  procedure SetDrawStyle(); virtual;

  function GetClientRect; override;

  function GetControlId; virtual;

  procedure CreateControlStateEx; virtual;

  procedure PrepareControlState; virtual;

  procedure PrepareControlStateEx; virtual;

  procedure DoEnter; override;

  procedure DoExit; override;

  procedure MouseEnter; override;

  procedure MouseLeave; override;

  procedure MouseDown(); override;

  property DrawStyle: TCDDrawStyle; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure LCLWSCalculatePreferredSize();

  procedure EraseBackground(); override;

  procedure Paint; override;

  procedure DrawToCanvas();

end;

TCDControl

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

The base class for LCL components which have an associated widget.

TComponent,IUnknown,IInterfaceComponentReference

TPersistent,IFPObserved

TObject