Class TRotateLabel (unit Mrotate)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);



Functions

procedure Click;


procedure Loaded;


procedure Paint;

case FTextStyle

function GetRotate : Integer;


procedure MyRotate(S: string; x,y, deg : integer);


procedure SetRotate(Value : Integer);


procedure SetTextStyle( Value : TTextStyle );

4/2/98.

Properties

property Caption :


property Font :


property Rotate : Integer


property TextStyle : TTextStyle

4/2/98.

Events

event OnClick :


event OnDblClick :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FRotate : Integer;


FShadowColor : TColor;


FShadowDepth : Integer;


FTextStyle : TTextStyle;

4/2/98.


Constructors


constructor Create(AOwner: TComponent);


Functions


procedure Click;


procedure Loaded;


procedure Paint;

case FTextStyle


function GetRotate : Integer;


procedure MyRotate(S: string; x,y, deg : integer);


procedure SetRotate(Value : Integer);


procedure SetTextStyle( Value : TTextStyle );

4/2/98.

4/2/98.


Properties


property Caption :


property Font :


property Rotate : Integer


property TextStyle : TTextStyle

4/2/98.


Events


event OnClick :


event OnDblClick :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FRotate : Integer;


FShadowColor : TColor;


FShadowDepth : Integer;


FTextStyle : TTextStyle;

4/2/98.