Class trotatelabel (unit Rotlabel) |
Inherits from
tlabel
constructor Create(AOwner : TComponent);
- place the component on the group 'new' on the component pallette
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
property Alignment_Vert : tVertAlign
property Angle : integer
Fangle : integer;
FVertAlign : tVertAlign;
angle in degrees
constructor Create(AOwner : TComponent);
place the component on the group 'new' on the component pallette
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
property Alignment_Vert : tVertAlign
property Angle : integer
Fangle : integer;
FVertAlign : tVertAlign;
angle in degrees