TShape

type TShape = class(TGraphicControl)

  class procedure WSRegisterClass; override;

WSRegisterClass - Register this Class for the current Widget Set

  class function GetControlClassDefaultSize; override;

Find the default size for this class of controls (by reference to parents)

public

  constructor Create(); override;

Create - constructor for TShape: calls inherited Create, sets default styles and bounds, creates pen and brush

  destructor Destroy; override;

Destroy - destructor for TShape: frees pen and brush, then calls inherited Destroy

  procedure Paint; override;

Virtual Paint method called in response to paint requests.

  procedure StyleChanged();

StyleChanged - method for handling change of style by Sender

published

  property Align;

Used to align the control to the top, bottom, left or right of its client.

  property Anchors;

The set of anchor definitions for this control

  property BorderSpacing;

Determines the border spacing for this control

  property Brush: TBrush; [rw]

The Brush to be used for colouring this shape

  property Constraints;

Determine Constraints (max and min height and width) for this control

  property DragCursor;

DragCursor - the style of cursor to be used during the Drag process

  property DragKind;

DragKind - what sort of dragging? Drag or Dock

  property DragMode;

DragMode - whether manual or automatic

  property Enabled;

Whether the control is Enabled (read/write). If not, it usually appears 'greyed-out'

  property ParentShowHint;

ParentShowHint - does the control adopt the same hinting behaviour as its parent? Default is true

  property Pen: TPen; [rw]

The Pen to be used for drawing this shape

  property OnChangeBounds;

Event handler for a change in bounds of the control

  property OnDragDrop;

Event handler for the drop of a control onto this control.

  property OnDragOver;

Event handler for the case when a control is dragged over another control

  property OnEndDock;

Event handler for the end of a docking operation

  property OnEndDrag;

Event handler for the end of a dragging process

  property OnMouseDown;

Event handler for when a mouse button is pressed down

  property OnMouseMove;

Event handler for mouse movement within the current control

  property OnMouseUp;

Event handler for when the mouse button is released, ie "up"

  property OnPaint;

OnPaint - event handler for request to paint canvas

  property OnResize;

Event Handler for resize of control

  property OnStartDock;

Event handler for the start of a docking operation

  property OnStartDrag;

Event handler for start of dragging operation

  property Shape: TShapeType; [rw]

Which Shape? (Rectangle, Square, RoundRect, RoundSquare, Ellipse, Circle, SquaredDiamond, Diamond)

  property ShowHint;

Flag to determine: Is hint to be displayed for this control?

  property Visible;

Visible - can the control be seen?

end;

TShape

TShape - An arbitrary graphic geometrical shape placed on the Form. It may be one of a series of standard shapes defined by TShapeType

TGraphicControl

TGraphicControl is the base class for all lightweight controls.

TControl

TLCLComponent

TLCLComponent - base class for LCL components

TComponent,IUnknown,IInterfaceComponentReference

TPersistent

TObject