Delphi
Codici a barre nei progetti Delphi

Come utilizzare i codici a barre in Delphi

Delphi 2005, 2006, 2007, 2009, 2010, XE, XE2, XE3, XE4, XE5, XE6, XE7, XE8, 10 Seattle, 10.1 Berlin, 10.2 Tokyo, 10.3 Rio

È possibile utilizzare ActiveBarcode in Delphi come qualsiasi altro controllo (ad esempio, come un pulsante). In primo luogo è necessario aggiungere il controllo ActiveBarcode nell'ambiente di sviluppo Delphi.

Creare un nuovo progetto: "File" - "Nuovo" - "Applicazione moduli VCL":

Per inserire ActiveBarcode in un modulo, selezionare ActiveBarcode Control dalla tavolozza degli strumenti. Troverai questo sotto "ActiveX" come componente "TBarcode":

Selezionare TBarcode e posizionare il componente nel form. Purtroppo, Delphi aggiunge l'oggetto codice a barre con un colore di sfondo nero.

Ma, nessun problema, semplicemente risolvere questo problema. Nella finestra di ispezione oggetti è possibile personalizzare le proprietà del componente. Quindi impostare il colore di sfondo su bianco.

Voila, l'oggetto codice a barre sembra bene ora:

In questo esempio aggiungiamo un altro controllo, un TEdit al form. Ora il modulo potrebbe apparire come segue:

Successivamente colleghiamo il campo di modifica direttamente al controllo. Aprire il codice sorgente per l'evento "textchange" facendo doppio clic sul campo di modifica. Questo evento viene sempre chiamato, se il contenuto del campo di modifica viene modificato. Idealmente per il nostro esempio. Diamo questo aggiornamento immediatamente al controllo.

Questo è tutto. Ora avvia il programma:

Modificare il contenuto del campo di modifica per modificare il codice a barre.

Programmazione:
L'impostazione delle proprietà è molto semplice. Alcuni esempi:

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

Utilizzo della proprietà Immagine:
Copiare il codice a barre in un oggetto immagine:

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);

Appunti:
Copiare il codice a barre corrente negli Appunti. Metafile (WMF):

  Barcode1.CopyToClipboard;

Bitmap:

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);