Class TMultiShape (unit MShape)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner:TComponent);



Functions

procedure SetBounds(ALeft,ATop,AWidth,AHeight:Integer);


procedure AdjustControlSize;


procedure AdjustShapeSize;

--------------------------------------------------------------} { Basic methods } {--------------------------------------------------------------

procedure DrawDiamond(X,Y:Integer);


procedure DrawEllipse(X,Y:Integer);


procedure DrawLine(X,Y:Integer);

-- Odd sizes not allowed for triangles

procedure DrawRectangle(X,Y:Integer);


procedure DrawRoundRect(X,Y:Integer);


procedure DrawText(X,Y:Integer);


procedure DrawTriangle(X,Y:Integer);


procedure Paint;


procedure PrepareText;

-- Protected methods --------------------------------

--------------------------------------------------------------} { Draw methods } {--------------------------------------------------------------


procedure SetAngle(Value:Integer);

-- Property Handlers --------------------------------

--------------------------------------------------------------} { Property Handlers } {--------------------------------------------------------------


procedure SetAutoSize(Value:Boolean);

-- Refresh -------------------------------------

procedure SetBorder(Value:Boolean);


procedure SetBorderColor(Value:TColor);


procedure SetBorderWidth(Value:Integer);


procedure SetFilled(Value:Boolean);


procedure SetRepeatMode(Value:TRepeatMode);


procedure SetShadow(Value:Boolean);


procedure SetShadowColor(Value:TColor);


procedure SetShadowX(Value:Integer);


procedure SetShadowY(Value:Integer);


procedure SetShapeH(Value:Integer);


procedure SetShapeType(Value:TMultiShapeType);


procedure SetShapeW(Value:Integer);


procedure SetXMargin(Value:Integer);


procedure SetXSpacing(Value:Integer);


procedure SetYMargin(Value:Integer);


procedure SetYSpacing(Value:Integer);


procedure UnprepareText;

-- Calculates text offset from shape center -------------

procedure CMColorChanged(var Message: TMessage);


procedure CMFontChanged(var Message: TMessage);


procedure CMTextChanged(var Message: TMessage);

--------------------------------------------------------------} { Message Handlers } {--------------------------------------------------------------

Properties

property Align :


property Angle : Integer


property Border : Boolean


property BorderColor : TColor


property BorderWidth : Integer


property Color :


property Filled : Boolean


property Font :


property ParentColor :


property ParentFont :


property RepeatMode : TRepeatMode


property Shadow : Boolean


property ShadowColor : TColor


property ShadowX : Integer


property ShadowY : Integer


property ShapeH : Integer


property ShapeType : TMultiShapeType


property ShapeW : Integer


property Text :


property XMargin : Integer


property XSpacing : Integer


property YMargin : Integer


property YSpacing : Integer


property AutoSize : Boolean


Events

Variables

FAngle : Integer;


FAutoSize : Boolean;


FBorder : Boolean;


FBorderColor : TColor;


FBorderWidth : Integer;


FDX : Integer;


FDY : Integer;


FFilled : Boolean;


FNewFont : HFont;


FOldFont : HFont;


FRepeatMode : TRepeatMode;


FShadow : Boolean;


FShadowColor : TColor;


FShadowX : Integer;


FShadowY : Integer;


FShapeH : Integer;


FShapeType : TMultiShapeType;


FShapeW : Integer;


FXMargin : Integer;


FXSpacing : Integer;


FYMargin : Integer;


FYSpacing : Integer;



Constructors


constructor Create(AOwner:TComponent);


Functions


procedure SetBounds(ALeft,ATop,AWidth,AHeight:Integer);


procedure AdjustControlSize;


procedure AdjustShapeSize;

--------------------------------------------------------------} { Basic methods } {--------------------------------------------------------------


procedure DrawDiamond(X,Y:Integer);


procedure DrawEllipse(X,Y:Integer);


procedure DrawLine(X,Y:Integer);

-- Odd sizes not allowed for triangles


procedure DrawRectangle(X,Y:Integer);


procedure DrawRoundRect(X,Y:Integer);


procedure DrawText(X,Y:Integer);


procedure DrawTriangle(X,Y:Integer);


procedure Paint;


procedure PrepareText;

-- Protected methods --------------------------------

--------------------------------------------------------------} { Draw methods } {--------------------------------------------------------------


procedure SetAngle(Value:Integer);

-- Property Handlers --------------------------------

--------------------------------------------------------------} { Property Handlers } {--------------------------------------------------------------


procedure SetAutoSize(Value:Boolean);

-- Refresh -------------------------------------


procedure SetBorder(Value:Boolean);


procedure SetBorderColor(Value:TColor);


procedure SetBorderWidth(Value:Integer);


procedure SetFilled(Value:Boolean);


procedure SetRepeatMode(Value:TRepeatMode);


procedure SetShadow(Value:Boolean);


procedure SetShadowColor(Value:TColor);


procedure SetShadowX(Value:Integer);


procedure SetShadowY(Value:Integer);


procedure SetShapeH(Value:Integer);


procedure SetShapeType(Value:TMultiShapeType);


procedure SetShapeW(Value:Integer);


procedure SetXMargin(Value:Integer);


procedure SetXSpacing(Value:Integer);


procedure SetYMargin(Value:Integer);


procedure SetYSpacing(Value:Integer);


procedure UnprepareText;

-- Calculates text offset from shape center -------------


procedure CMColorChanged(var Message: TMessage);


procedure CMFontChanged(var Message: TMessage);


procedure CMTextChanged(var Message: TMessage);

--------------------------------------------------------------} { Message Handlers } {--------------------------------------------------------------


Properties


property Align :


property Angle : Integer


property Border : Boolean


property BorderColor : TColor


property BorderWidth : Integer


property Color :


property Filled : Boolean


property Font :


property ParentColor :


property ParentFont :


property RepeatMode : TRepeatMode


property Shadow : Boolean


property ShadowColor : TColor


property ShadowX : Integer


property ShadowY : Integer


property ShapeH : Integer


property ShapeType : TMultiShapeType


property ShapeW : Integer


property Text :


property XMargin : Integer


property XSpacing : Integer


property YMargin : Integer


property YSpacing : Integer


property AutoSize : Boolean


Events


Variables


FAngle : Integer;


FAutoSize : Boolean;


FBorder : Boolean;


FBorderColor : TColor;


FBorderWidth : Integer;


FDX : Integer;


FDY : Integer;


FFilled : Boolean;


FNewFont : HFont;


FOldFont : HFont;


FRepeatMode : TRepeatMode;


FShadow : Boolean;


FShadowColor : TColor;


FShadowX : Integer;


FShadowY : Integer;


FShapeH : Integer;


FShapeType : TMultiShapeType;


FShapeW : Integer;


FXMargin : Integer;


FXSpacing : Integer;


FYMargin : Integer;


FYSpacing : Integer;