[Overview][Constants][Types][Classes][Procedures and functions][Index] Reference for unit 'ExtCtrls' (#lcl)

TShape

[Properties (by Name)] [Methods (by Name)] [Events (by Name)]

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

Declaration

Source position: extctrls.pp line 392

type TShape = class(TGraphicControl)

protected

  procedure WSRegisterClass; override;

  

WSRegisterClass - Register this Class for the current Widget Set

  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. 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 Drag-Drop manoeuvre

  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 manoeuvre

  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 manoeuvre

  property OnStartDrag;

  

Event handler for start of dragging process

  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;

Inheritance

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

  

TControl - the main ancestor class for visual controls.

|

TLCLComponent

?

TObject

Description

TShape: An arbitrary graphic geometrical shape placed on the Form. It may be one of a series of standard shapes defined by TShapeType (stRectangle, stSquare, stRoundRect, stRoundSquare, stEllipse, stCircle, stSquaredDiamond, stDiamond).

It can be displayed using the Paint method and the Brush and Pen tools.