| Class trotatelabel (unit Rotlabel) |
tlabel
| Constructors |
constructor Create(AOwner : TComponent);| Functions |
procedure paint;
procedure SetAngle(Value: integer);
procedure SetVertAlign(Value : tVertAlign);
procedure DoDrawText(var Rect: TRect; Flags: Word);| Properties |
property Alignment_Vert : tVertAlign
property Angle : integer| Events |
| Variables |
Fangle : integer;
FVertAlign : tVertAlign;| 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