| Class TQRAngledCustom (unit QrAngLbl) |
TQRPrintable
| Constructors |
constructor Create(AOwner: TComponent);End of Common routines *************************************************************** } { TQRAngledCustom **********************************************************************
| Functions |
destructor Destroy;
procedure BuildTTFontsList;DEF QR2X
procedure CalculateAngledValues(pCanvas: TCanvas; pCaption: TCaption; pZoom: Integer);
function GetCaption: TCaption;
function IsTrueTypeFont(pFont: TFont): Boolean;
procedure Loaded;
procedure Paint;
procedure Print(X, Y: Integer);
procedure SetAnchorStyle(pValue: TAnchorStyle);
procedure SetAngle(pValue: Integer);
procedure SetAutoSize(pValue: Boolean);
procedure SetCaption(pValue: TCaption);
procedure SetName(const pValue: TComponentName);
procedure SetTrueTypeAlert(pValue: TTrueTypeAlert);
procedure AdjustSizes;
procedure CMFontChanged(var Message: TMessage);
procedure CMTextChanged(var Message: TMessage);| Properties |
property AnchorStyle : TAnchorStyle
property Angle : Integer
property AutoSize : Boolean
property Caption : TCaption
property TrueTypeAlert : TTrueTypeAlert| Events |
event OnPrint : TQRLabelOnPrintEvent| Variables |
FAnchorStyle : TAnchorStyle;
FAngle : Integer;
FAutoSize : Boolean;
FCaption : TCaption;
FOnPrintEvent : TQRLabelOnPrintEvent;
FTrueTypeAlert : TTrueTypeAlert;
FTTFonts : TStringList;
FValues : TAngledValues;| Constructors |
constructor Create(AOwner: TComponent);DEF QR2X
End of Common routines *************************************************************** } { TQRAngledCustom **********************************************************************
| Functions |
destructor Destroy;Default angle
procedure BuildTTFontsList;DEF QR1X
DEF QR2X
procedure CalculateAngledValues(pCanvas: TCanvas; pCaption: TCaption; pZoom: Integer);DEF QR2X
function GetCaption: TCaption;DEF QR2X
function IsTrueTypeFont(pFont: TFont): Boolean;
procedure Loaded;
procedure Paint;DEF QR2X
procedure Print(X, Y: Integer);
procedure SetAnchorStyle(pValue: TAnchorStyle);DEF QR2X
procedure SetAngle(pValue: Integer);Redraw
procedure SetAutoSize(pValue: Boolean);Redraw
procedure SetCaption(pValue: TCaption);
procedure SetName(const pValue: TComponentName);
procedure SetTrueTypeAlert(pValue: TTrueTypeAlert);
procedure AdjustSizes;
procedure CMFontChanged(var Message: TMessage);280..359
procedure CMTextChanged(var Message: TMessage);ParentFont := False;
| Properties |
property AnchorStyle : TAnchorStyle
property Angle : Integer
property AutoSize : Boolean
property Caption : TCaption
property TrueTypeAlert : TTrueTypeAlert| Events |
event OnPrint : TQRLabelOnPrintEvent| Variables |
FAnchorStyle : TAnchorStyle;
FAngle : Integer;
FAutoSize : Boolean;
FCaption : TCaption;
FOnPrintEvent : TQRLabelOnPrintEvent;
FTrueTypeAlert : TTrueTypeAlert;
FTTFonts : TStringList;
FValues : TAngledValues;