Class TRotateLabel (unit JLLabel) |
Inherits from
TCustomLabel
constructor Create(AOwner: TComponent);
- ==========================================================================
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);
==========================================================================
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 :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag :
fEscapement : Integer;
fTextStyle : TTextStyle;
constructor Create(AOwner: TComponent);
==========================================================================
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);
==========================================================================
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 :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag :
fEscapement : Integer;
fTextStyle : TTextStyle;