Class TQRAngledCustom (unit QrAngLbl)

Inherits from

TQRPrintable

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.

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;



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;