Delphi
Stregkoder i Delphi-projekter

Sådan bruges stregkoder i 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

Du kan bruge ActiveBarcode i Delphi som enhver anden kontrol (f.eks. som en knap). Først skal du tilføje ActiveBarcode-kontrolelementet til Delphi-udviklingsmiljøet.

Opret et nyt projekt: Fil - Ny - VCL Forms-applikation:




For at placere ActiveBarcode på en formular vælger du ActiveBarcode Control fra værktøjspaletten. Du finder dette under ActiveX som en TBarcode- komponent:




Vælg TBarcode og placer komponenten på formularen. Desværre tilføjer Delphi stregkodeobjektet med en sort baggrundsfarve.




Men det er ikke noget problem, vi løser det ganske enkelt. I objektinspektøren kan du tilpasse komponentens egenskaber. Så indstil baggrundsfarven til hvid.




Voila, stregkodeobjektet ser fint ud nu:




I dette eksempel tilføjer vi endnu et kontrolelement, et TEdit, til formularen. Nu kan din formular se således ud:




Dernæst forbinder vi redigeringsfeltet direkte til kontrollen. Åbn kildekoden for TextChange-begivenheden ved at dobbeltklikke på redigeringsfeltet. Denne begivenhed kaldes altid, hvis indholdet i redigeringsfeltet ændres. Ideelt for vores eksempel. Vi videregiver denne opdatering straks til kontrollen.




Færdig! Start nu applikationen og ændr indholdet i redigeringsfeltet for at ændre stregkoden.




Kodningseksempler

Det er meget nemt at indstille egenskaber.

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

Brug af billedegenskaben
Kopier stregkoden til et billedobjekt:

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

Brug af udklipsholderen
Kopier den aktuelle stregkode til udklipsholderen som vektorgrafik (WMF):

  Barcode1.CopyToClipboard;

Kopier den aktuelle stregkode til udklipsholderen som en bitmap (BMP):

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