Class TMultiShape (unit MShape) |
Inherits from
TGraphicControl
constructor Create(AOwner:TComponent);
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 } {--------------------------------------------------------------
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
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;
constructor Create(AOwner:TComponent);
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 } {--------------------------------------------------------------
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
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;