Delphi
Barcodes in projects

How to use barcodes in Delphi

You can use ActiveBarcode in Delphi like any other control (e.g. like a button). First you have to add the ActiveBarcode control into the Delphi development environment.

1. Add ActiveBarcode to the Delphi development environment

The "Component dialog" appears:

Select "Import ActiveX control" and click "Next". Now a list of the available controls will be shown:

Select "ActiveBarcode" from that list and click "Next". A page for component setup will be shown:

You don't need to change something here. Click "Next". A page for "Create Unit" appears.

Select "Install to new package" here and click on "Next". The "New Package" dialog is showing up:

Enter a name for the new package, e.g. ActiveBarcode. Then click "Finish". Now ActiveBarcode is added as a component to the new package. Now you must compile the package. Select the function "Build ActiveBarcode" from the menu "Project":

2. An example of how to use ActiveBarcode now:

To place ActiveBarcode on a form you select the ActiveBarcode Control from the tool palette. You'll find this under "ActiveX" as a "TBarcode" component:

Select TBarcode and place the component on the form. Sadly, Delphi adds the barcode object with a black background color.

But, no problem, simply fix this. In the object inspector you can customize the properties of the component. So set the background color to white.

Voila, the barcode object looks fine now:

In this example we add one more control, a TEdit to the form. Now your form might look as follows:

Next we link the edit field directly to the control. Open the source code for the "textchange" event by double clicking the edit field. This event always is called, if the contents of the edit field are changed. Ideally for our example. We give this update immediately to the control.

That's it. Now launch the program:

Change the content of the edit field to change the barcode.

Programming:
Setting properties is very simple. Some examples:

Barcode1.Text := '123456789012';
Barcode1.BackColor := clWhite;
Barcode1.ForeColor := clBlack;

Image1.Picture.Bitmap.Height := Barcode1.Height;
Image1.Picture.Bitmap.Width := Barcode1.Width;
Barcode1.Picture.CleanupInstance;
Image1.Picture.Bitmap.Canvas.Draw(0,0,Barcode1.Picture.graphic);

  Barcode1.CopyToClipboard;

Image1.Picture.Bitmap.Height := Barcode1.Height;
Image1.Picture.Bitmap.Width := Barcode1.Width;
Barcode1.Picture.CleanupInstance;
Image1.Picture.Bitmap.Canvas.Draw(0,0,Barcode1.Picture.graphic);
Clipboard.Assign(Image1.Picture.Bitmap);

From our FAQ