Delphi
Crtični kodovi u Delphi projektima

Kako koristiti crtične kodove u Delphiju

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

Možete koristiti ActiveBarcode u Delphi-ju kao i bilo koju drugu kontrolu (npr. gumb). Prvo morate dodati kontrolu ActiveBarcode u razvojno okruženje Delphi.

Kreira novi projekt: Datoteka - Novo - VCL Forms aplikacija:




Da biste postavili ActiveBarcode na obrazac, odaberite kontrolu ActiveBarcode s palete alata. Pronaći ćete je pod ActiveX-om kao TBarcode komponentu.:




Odaberite TBarcode i postavite komponentu na obrazac. Nažalost, Delphi dodaje objekt barkoda s crnom pozadinskom bojom.




Ali nema problema, jednostavno to popravimo. U inspektoru objekata možete prilagoditi svojstva komponente. Dakle, postavite boju pozadine na bijelu.




Evo, objekt s crtičnim kodom sada izgleda u redu.:




U ovom primjeru dodajemo još jednu kontrolu, TEdit, na obrazac. Sada bi vaš obrazac mogao izgledati ovako:




Zatim izravno povezujemo polje za uređivanje s kontrolom. Otvorite izvorni kod događaja TextChange dvostrukim klikom na polje za uređivanje. Ovaj se događaj uvijek poziva ako se promijeni sadržaj polja za uređivanje. Idealno za naš primjer. Ovo ažuriranje odmah prosljeđujemo kontroli.




Gotovo! Sada pokrenite aplikaciju i promijenite sadržaj polja za uređivanje kako biste promijenili crtični kod.




Primjeri kodiranja

Postavljanje svojstava je vrlo jednostavno.

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

Korištenje svojstva slike
Kopirajte barkod u slikovni objekt:

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

Korištenje međuspremnika
Kopirajte trenutni barkod u međuspremnik kao vektorsku grafiku. (WMF):

  Barcode1.CopyToClipboard;

Kopirajte trenutni barkod u međuspremnik kao bitmapu. (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);