TCustomShape

type TCustomShape = class(TGraphicControl)

protected

  class procedure WSRegisterClass; override;

  class function GetControlClassDefaultSize; override;

  procedure Click; override;

  procedure CMShapeHitTest(); message;

  procedure DrawToCanvas(); virtual;

  procedure UpdateMask;

public

  constructor Create(); override;

  destructor Destroy; override;

  function PtInShape();

  procedure Paint; override;

  procedure StyleChanged();

  property Brush: TBrush; [rw]

  property Pen: TPen; [rw]

  property Shape: TShapeType; [rw]

  property OnShapeClick: TNotifyEvent; [rw]

  property OnShapePoints: TShapePointsEvent; [rw]

end;

TCustomShape

TGraphicControl

TGraphicControl is the base class for all lightweight controls.

TControl

The base class for visible controls.

TLCLComponent

TObject