********************************************************************************************
            		    QrBarcode component for Delphi
********************************************************************************************

This package is published as freeware, any comments are welcome.


Before you read on: This component requires the BARCODE.ZIP with the nice tBarcode component 
from Allan Th. Poulsen (thank you very much, Allan!) which is not included in this package.
You can find his component on many sites on the net.

tQrBarcode is designed to add barcode printing functionality to the QuickReport version that comes with Delphi 3.0.

How to use tQrBarcode:

1. Install the component. Read your manual for further instructions.
   The component was created and tested with Delphi 3.0 but it should be an
   easy task to make it work with Delphi 2.0

2. Place the QrBarcode component on a Quickreport

3. It contains the following property's:

    BarcodeType   : refer to tBarcode component
    DPI           : refer to tBarcode component  ( default value works fine for HP Laserjets )
    Barcode       : refer to tbarcode component
    BarCodeHeight : refer to tBarcode component  ( default value works fine for HP Laserjets )


    new properties: 
     
    LeadingChars,           
    TrailingChars  : this characters will be added to your barcode-string before printing.
                     They are not required. Leave them empty if you don't need them  

    FixedLen       : If your barcode-data must have have a fixed length, use this to
                     force the component to fillup your barcode-data to the required length.
                     If you don't need it, leave it empty. 

    FillupChar    :  Only required when FixedLen > 0
                     The component will add this character at the left side to your
                     barcode-data until it reaches the required length.

    Note: The complete length of the barcode is 
          LeadingChars + FixedLen or length(barcode) + TrailingChars

   
    Events:

    BeforePrint : Important! Use this event to feed your data to the QrBarcode component.

    BCDATA holds the value for the barcode to print. However, if Leading/TrailingChars 
    are defined, they will be added to this string.

    Example:

    procedure TForm1.QRBarcode1BeforePrint(sender: TObject; var BCDATA: String);
    begin
      bcdata := inttostr(query1.fieldbyname('ArtNo').asinteger);
    end;


    property AfterPrint
    
I have no need for this event. It's called after the barcode is printed and before the tBarcode-component is destroyed. Maybe it's usefull for you...

======================================================================================


Copyright notice:

This component is unrestricted freeware. It may be distributed, used and/or
modified without restrictions. Please note that although this component has
been tested and been found to work correctly, you use it entirely at your
own risk and I will not be held responsible for any errors or corrupted  files,
damaged databases or any other event that my be happen when you use this component.

Martin Mittelmann
June 1997

e-mail to martin.mittelmann@t-online.de


P.S.
sorry for my terrible english, but i'm working on it...
