Unit QrAngLbl |
*******************************************************************************) (* QuickReport Angled Labels *) (* *) (* Those components are text labels with rotate capabilities, to use with *) (* QuickReport versions 1.x and 2.x under Delphi 1, Delphi 2 (not tested) or *) (* Delphi 3 *) (* *) (* See README.TXT for more details *) (* *) (* NOTE: This component was tested with: *) (* QuickReport 1.1a under Delphi 1, *) (* QuickReport 1.1b under Delphi 3, and *) (* QuickReport 2.0i under Delphi 1 and Delphi 3 *) (* *) (* Copyright © 1997 by Francisco Maia Goncalves Neto *) (* e-mail: fneto_br@hotmail.com *) (* *) (* Thanks to Keith Wood for his LabelEffect component *) (* Thanks to Olivier Exbrayat and Michael Snell for your help *) (*==============================================================================*) (* This component is freeware and can be freely used and distributed in *) (* commercial and private environments. *) (* The source code may be freely distributed and used. *) (* The author assumes no liability for damages, direct or consequential, which *) (* may result from the use of this component. *) (* Any comments or suggestions email-me please. *) (*==============================================================================*) (* History: *) (* October, 20, 1997 - Version 1.1a *) (* . Bug fix! Anchor Style don't work correctly in QRAngledDBText with QR1 *) (* . Bug fix! .EXE Preview and Print don't work with some versions of QR2 *) (* . Bug fix! The first QRAngledLabel placed directly in the QuickRep surface *) (* aren't printed rotated in QR2 *) (* September, 25, 1997 - Version 1.1 *) (* . New base class TQRAngledCustom. Totaly rewriten to works better with QR2 *) (* Several print problems solved *) (* . New component! QRAngledDBText *) (* . New property! AnchorStyle *) (* . New property! TrueTypeAlert *) (* August, 27, 1997 - Version 1.0c *) (* . Bug fix! Cause a GPF when not placed in a TQuickRep in QR2 *) (* . Bug fix! Preview and Print don't work in QR2 under D1 *) (* August, 17, 1997 - Version 1.0b *) (* . Minor adjustments *) (* August, 03, 1997 - Version 1.0a *) (* . Bug fix! Several print bugs fixed under QR1 and QR2 *) (* . Bug fix! Zoom of ParentReport considered in paint routine of QR2 *) (* July, 26, 1997 - Version 1.0 *) (* . Initial version *) (*==============================================================================*) (* Know problems: *) (* *) (* QR2. The DataField property of QRAngledDBText must be assigned manually *) (
Classes |
TQRAngledCustom -
TQRAngledDBText -
TQRAngledLabel -
Functions |
Register - DEF WIN32
Types |
TAnchorStyle
TAngledValues
TTrueTypeAlert
Constants |
Variables |
Functions |
Types |
TAnchorStyle = (asNone, asTextLeft, asTextCenter, asTextRight);DEF QR1X
TAngledValues = record
fntWidth : Integer
fntHeight : Integer
txtWidth : Integer
txtHeight : Integer
gapTxtWidth : Integer
gapTxtHeight : Integer
totWidth : Integer
totHeight : Integer
posLeft : Integer
posTop : Integer
posX : Integer
posY : Integer
end;
TTrueTypeAlert = (ttaNone, ttaMessage, ttaAbort, ttaAbortMessage);
Constants |
Variables |