Class TRotateLabel (unit JLLabel)

Inherits from

TCustomLabel

Constructors


constructor Create(AOwner: TComponent);

==========================================================================


Functions

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

==========================================================================

procedure Paint;

==========================================================================

procedure CalcTextPos(var aRect:TRect;aAngle:Integer;aTxt:String);

==========================================================================

procedure DrawAngleText(aCanvas:TCanvas;aRect:TRect;aAngle:Integer;aTxt:String);

==========================================================================

procedure SetEscapement(aVal:Integer);

==========================================================================

procedure SetTextStyle (aVal:TTextStyle);

==========================================================================

Properties

property Align :


property Alignment :


property AutoSize :


property Caption :


property Color :


property DragCursor :


property DragMode :


property Enabled :


property Escapement : Integer


property FocusControl :


property Font :


property ParentColor :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowAccelChar :


property ShowHint :


property TextStyle : TTextStyle


property Transparent :


property Visible :


property WordWrap :


Events

event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables

fEscapement : Integer;


fTextStyle : TTextStyle;



Constructors


constructor Create(AOwner: TComponent);

==========================================================================


Functions


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

==========================================================================


procedure Paint;

==========================================================================


procedure CalcTextPos(var aRect:TRect;aAngle:Integer;aTxt:String);

==========================================================================


procedure DrawAngleText(aCanvas:TCanvas;aRect:TRect;aAngle:Integer;aTxt:String);

==========================================================================


procedure SetEscapement(aVal:Integer);

==========================================================================


procedure SetTextStyle (aVal:TTextStyle);

==========================================================================


Properties


property Align :


property Alignment :


property AutoSize :


property Caption :


property Color :


property DragCursor :


property DragMode :


property Enabled :


property Escapement : Integer


property FocusControl :


property Font :


property ParentColor :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowAccelChar :


property ShowHint :


property TextStyle : TTextStyle


property Transparent :


property Visible :


property WordWrap :


Events


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables


fEscapement : Integer;


fTextStyle : TTextStyle;