Free Barcode Component

For Delphi 1, 2, 3 and 4

Features

Print barcodes at any angle.

Properties

Height | Height of Barcode in Pixels
Text | Contents of the barcode
Top | Y-Position of the upper left corner of the barcode
Left | X-Position of the upper left corner of the barcode
Modul | Width of the smallest line in the barcode
Ratio | Ratio between a wide and a narrow line in a barcode. Normal Values are from 2.0 to 3.0
Typ | Defines the Type of the barcode. Possible values are
bcCode_2_5_interleaved,
bcCode_2_5_industrial,
bcCode_2_5_matrix,
bcCode39,
bcCode39Extended,
bcCode128A,
bcCode128B,
bcCode128C,
bcCode93,
bcCode93Extended,
bcCodeMSI,
bcCodePostNet,
bcCodeCodabar,
bcCodeEAN8,
bcCodeEAN13
Checksum | Enable or disable checksum calculation for Code39, EAN8 or EAN13
Angle | Angle the the barcode. (use 0 to 359 degree)
Showtext | Enable or disable the printing in plain text. (for testing)
Width | Width of barcode (read only)
Color | Color of the Background (default is white)
ColorBar | Color of the bars (default is black)

Procedures

- procedure
DrawBarcode(Canvas:TCanvas);
this procedure draws the barcode on the specified canvas.
- procedure
DrawText(Canvas:TCanvas);
see property Showtext.

Example

Barcode1.Top := 200;
Barcode1.Left := 230;
Barcode1.Angle := 70;
Barcode1.Typ := bcCode_2_5_interleaved;
Barcode1.DrawBarcode(Image1.Canvas);

Homepage

http://members.tripod.de/AJSchmidt/index.html

Email

mailto:shmia@bizerba.de or mailto:a_j_schmidt@rocketmail.com

More Information about barcodes

http://www.adams1.com/pub/russadam/info.html

http://www.hp.com/HP-COMP/barcode/sg/Misc/bc_ref.html