Delphi – Čiarové kódy v projektoch Delphi

Ako používať čiarové kódy v 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

ActiveBarcode môžete v Delphi používať ako akýkoľvek iný ovládací prvok (napr. ako tlačidlo). Najskôr musíte pridať ovládací prvok ActiveBarcode do vývojového prostredia Delphi.

Vytvorte nový projekt: Súbor – Nový – Aplikácia VCL Forms:




Ak chcete umiestniť ActiveBarcode do formulára, vyberte ovládací prvok ActiveBarcode z palety nástrojov. Nájdete ho v časti ActiveX ako komponent TBarcode :




Vyberte TBarcode a umiestnite komponent na formulár. Bohužiaľ, Delphi pridáva objekt čiarového kódu s čiernou farbou pozadia.




Ale žiadny problém, jednoducho to opravíme. V inšpektore objektov môžete prispôsobiť vlastnosti komponentu. Nastavte farbu pozadia na bielu.




Voila, objekt čiarového kódu teraz vyzerá dobre:




V tomto príklade pridáme do formulára ešte jeden ovládací prvok, TEdit. Teraz môže váš formulár vyzerať takto:




Ďalej prepojíme pole na úpravu priamo s ovládacím prvkom. Otvorte zdrojový kód udalosti TextChange dvojitým kliknutím na pole úprav. Táto udalosť sa vždy volá, ak sa zmení obsah poľa úprav. V našom príklade je to ideálne. Túto aktualizáciu okamžite odovzdávame kontrole.




Hotovo! Teraz spustite aplikáciu a zmenou obsahu poľa na úpravu zmeníte čiarový kód.




Príklady kódovania

Nastavenie vlastností je veľmi jednoduché.

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

Použitie vlastnosti obrázku
Skopírujte čiarový kód do obrazového objektu:

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

Používanie schránky
Skopírujte aktuálny čiarový kód do schránky ako vektorovú grafiku (WMF):

  Barcode1.CopyToClipboard;

Skopírujte aktuálny čiarový kód do schránky ako 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);