Class TALabel (unit ALabel)

Inherits from

TLabel

Constructors


constructor Create(AOwner : TComponent);

Public declarations

----------------------------------------------------------------------



Functions

Procedure Paint;

Protected declarations

----------------------------------------------------------------------


Procedure DrawLabelText(Flags : Word);

Remove from ObjectInspector!} {Internal procedures

----------------------------------------------------------------------


Procedure SetAngle(Value : Integer);

Label text

----------------------------------------------------------------------


Properties

property Align : Integer

Published declarations } {Inherited anyway Property Color; Property Font; Property Color; Property Cursor; Property DragCursor; Property DragMode; Property Enabled; Property Hint; Property ParentColor; Property ParentFont; Property Font; Property ShowHint; } {Skip Layout, WordWrap, Align and Alignment from the ObjectInspector by making them read-only

property Alignment : TAlignment


property Angle : Integer

The new propertie for ALabel!

property Layout : TTextLayout


property WordWrap : Boolean


Events

Variables

FAlign : Integer;

Remove from ObjectInspector!} {Strange effects occures when AutoSize = TRUE and Align = alClient! So I removed the Align property

FAlignment : TAlignment;

Remove from ObjectInspector!

FAngle : Integer;

Private declarations

FLayout : TTextLayout;

Add to the OjectInspector!

FWordWrap : Boolean;

Remove from ObjectInspector!


Constructors


constructor Create(AOwner : TComponent);

Public declarations

----------------------------------------------------------------------


Functions


Procedure Paint;

Protected declarations

----------------------------------------------------------------------


Procedure DrawLabelText(Flags : Word);

Remove from ObjectInspector!} {Internal procedures

----------------------------------------------------------------------


Procedure SetAngle(Value : Integer);

Label text

----------------------------------------------------------------------


Properties


property Align : Integer

Published declarations } {Inherited anyway Property Color; Property Font; Property Color; Property Cursor; Property DragCursor; Property DragMode; Property Enabled; Property Hint; Property ParentColor; Property ParentFont; Property Font; Property ShowHint; } {Skip Layout, WordWrap, Align and Alignment from the ObjectInspector by making them read-only


property Alignment : TAlignment


property Angle : Integer

The new propertie for ALabel!


property Layout : TTextLayout


property WordWrap : Boolean


Events


Variables


FAlign : Integer;

Remove from ObjectInspector!} {Strange effects occures when AutoSize = TRUE and Align = alClient! So I removed the Align property


FAlignment : TAlignment;

Remove from ObjectInspector!


FAngle : Integer;

Private declarations


FLayout : TTextLayout;

Add to the OjectInspector!


FWordWrap : Boolean;

Remove from ObjectInspector!