Delphi
Kody kreskowe w projektach Delphi

Jak używać kodów kreskowych w 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 można używać w Delphi jak każdej innej kontrolki (np. przycisku). Najpierw należy dodać kontrolkę ActiveBarcode do środowiska programistycznego Delphi.

Utwórz nowy projekt: File - New - VCL Forms Application.:




Aby umieścić ActiveBarcode na formularzu, należy wybrać kontrolkę ActiveBarcode z palety narzędzi. Znajdziesz go w sekcji ActiveX jako komponent TBarcode.:




Wybierz TBarcode i umieść komponent na formularzu. Niestety, Delphi dodaje obiekt kodu kreskowego z czarnym kolorem tła.




Ale nie ma problemu, po prostu to naprawimy. W inspektorze obiektów można dostosować właściwości komponentu. Ustaw kolor tła na biały.




Voila, obiekt kodu kreskowego wygląda teraz dobrze:




W tym przykładzie dodajemy jeszcze jedną kontrolkę, Edit do formularza. Teraz formularz może wyglądać następująco:




Następnie łączymy pole edycji bezpośrednio z kontrolką. Otwórz kod źródłowy zdarzenia TextChange, klikając dwukrotnie pole edycji. To zdarzenie jest wywoływane zawsze, gdy zawartość pola edycji zostanie zmieniona. Idealnie dla naszego przykładu. Przekazujemy tę aktualizację natychmiast do kontrolki.




Gotowe! Teraz uruchom aplikację i zmień zawartość pola edycji, aby zmienić kod kreskowy.




Przykłady kodowania

Ustawienie właściwości jest bardzo proste.

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

Korzystanie z właściwości Picture
Skopiuj kod kreskowy do obiektu obrazu:

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

Korzystanie ze schowka
Kopiuje bieżący kod kreskowy do schowka jako grafikę wektorową. (WMF):

  Barcode1.CopyToClipboard;

Kopiuje bieżący kod kreskowy do schowka jako mapę bitową. (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);