Class trotatelabel (unit Rotlabel)

Inherits from

tlabel

Constructors


constructor Create(AOwner : TComponent);

place the component on the group 'new' on the component pallette


Functions

procedure paint;

free all allocated stuff and restore the handle

procedure SetAngle(Value: integer);


procedure SetVertAlign(Value : tVertAlign);

activate the changes (redraw

procedure DoDrawText(var Rect: TRect; Flags: Word);

changing the property will call this procedure

Properties

property Alignment_Vert : tVertAlign


property Angle : integer


Events

Variables

Fangle : integer;


FVertAlign : tVertAlign;

angle in degrees


Constructors


constructor Create(AOwner : TComponent);

place the component on the group 'new' on the component pallette


Functions


procedure paint;

free all allocated stuff and restore the handle


procedure SetAngle(Value: integer);


procedure SetVertAlign(Value : tVertAlign);

activate the changes (redraw


procedure DoDrawText(var Rect: TRect; Flags: Word);

changing the property will call this procedure


Properties


property Alignment_Vert : tVertAlign


property Angle : integer


Events


Variables


Fangle : integer;


FVertAlign : tVertAlign;

angle in degrees