TQRAngledLabels QuickReport's text labels components with rotate capabilities For Delphi 1, Delphi 2 (not tested) and Delphi 3. Version 1.1a Out-20-1997 (c) 1997 Francisco Maia Goncalves Neto Description: TQRAngledLabel is a TQRAngledCustom descendant (only the publication), a text label component with rotate text capabilities to use with QuickReport versions 1.x and 2.x TQRAngledDBText is a TQRAngledCustom descendant too, but with DB capabilities. Properties: AnchorStyle: TAnchorStyle This property replaces the Alignment property of normal labels. It's to supply the text alignment in any angle. If AutoSize is True, the position of component (Left and Top) is modified to maintain the position of text. Otherwise, if AutoSize is False, the position of text is adjusted inside the component. +--------------+--------------------------+ | Value | Meaning | +==============+==========================+ |*asNone | Normal behavior | +--------------+--------------------------+ | asTextLeft | Achor to left of text | +--------------+--------------------------+ | asTextCenter | Anchor on center of text | +--------------+--------------------------+ | asTextRight | Anchor to right of text | +--------------+--------------------------+ * Default value Angle: Integer This property indicates the angle of text in degrees. The value for this property can be any integer value, and this value is automaticaly reduced to 0..359 range. TrueTypeAlert: TTrueTypeAlert This property prevents the use of non TrueType Fonts in the component. The Font property normaly accept any font, but only TrueType Fonts can be cornered. +-----------------+------------------------------------------------------------+ | Value | Meaning | +=================+============================================================+ | ttaNone | Normal behavior. Accept any font | +-----------------+------------------------------------------------------------+ | ttaMessage | Accept any font, but raise an alert message | +-----------------+------------------------------------------------------------+ |*ttaAbort | Don't accept non TrueType fonts. A valid font is assigned | +-----------------+------------------------------------------------------------+ | ttaAbortMessage | Don't accept non TrueType fonts and raise an alert message | +-----------------+------------------------------------------------------------+ * Default value Disclaimer: This component is donated to the public as public domain. This component can be freely used and distributed in commercial and private environments. The source code may be freely distributed and used. The author accepts no responsibility for its use or misuse. The author assumes no liability for damages, direct or consequential, which may result from the use of this component. Please forward any comments or suggestions to Francisco Maia Goncalves Neto at fneto_br@hotmail.com Contents of QRANGLBL.ZIP: README.TXT : This file QRANGLBL.PAS : Contains TQRAngledLabel and TQRAngledDBText components and their Register procedure QRACONST.PAS : Alert messages unit QRACONST.R16 : 16-bits compiled string resource (alert messages in english) QRACONST.R32 : 32-bits compiled string resource QRANGLBL.D16 : 16-bits component resource (image for the component palette) QRANGLBL.D32 : 32-bits component resource QRANGLBL.Q1X : QuickReport 1.x include file QRANGLBL.Q2X : QuickReport 2.x include file ..\RESOURCE ..\ENG : Fonts of resource files (english) QRACONST.R16 : 16-bits compiled resource alert messages QRACONST.R32 : 32-bits compiled resource alert messages QRACONST.RC : Font of english resource file ..\POR : Fonts of resource files (portuguese) QRACONST.R16 : 16-bits compiled resource alert messages QRACONST.R32 : 32-bits compiled resource alert messages QRACONST.RC : Font of portuguese resource file Installation: Verify your QuickReport version: ===> For QuickReport 1.x: <=== RENAME the QRANGLBL.Q1X file to QRANGLBL.INC ===> For QuickReport 2.x: <=== RENAME the QRANGLBL.Q2X file to QRANGLBL.INC Copy the necessary files to your component directory: For Delphi 1.x: - QRANGLBL.PAS - QRANGLBL.D16 - QRANGLBL.INC - QRACONST.PAS - QRACONST.R16 For Delphi 2.x and Delphi 3.0: - QRANGLBL.PAS - QRANGLBL.D32 - QRANGLBL.INC - QRACONST.PAS - QRACONST.R32 To add this component to the component palette do: In Delphi 1.x and Delphi 2.x: - Select Options | Install Components option from delphi menu - Add QRANGLBL.PAS In Delphi 3.0: - Select Component | Install Components option from delphi menu - Into existing package page, type unit file name as QRANGLBL.PAS (the default package is 'Delphi User's Component') 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 manualy Notes: This component was tested with: - QuickReport 1.1a under Delphi 1; - QuickReport 1.1b under Delphi 3; - QuickReport 2.0i under Delphi 1 and Delphi 3. I think it's works properly with Delphi 2.x, but I really don't know. Thanks to Keith Wood for his LabelEffect component. Thanks to Olivier Exbrayat and Michael Snell for your help. Please report any experience you get with this component to fneto_br@hotmail.com Thanks in advance, Francisco Maia Goncalves Neto Belém - Pará - Brazil