Delphi
Delphi projelerinde Barkodlar

Delphi'de barkodlar nasıl kullanılır

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'u Delphi'de diğer kontroller gibi (örneğin bir düğme gibi) kullanabilirsiniz. Öncelikle ActiveBarcode kontrolünü Delphi geliştirme ortamına eklemeniz gerekir.

Yeni bir proje oluşturun: Dosya - Yeni - VCL Forms Uygulaması:

ActiveBarcode'u bir forma yerleştirmek için araç paletinden ActiveBarcode Kontrolünü seçin. Bunu ActiveX altında bir TBarcode bileşeni olarak bulacaksınız:

TBarcode öğesini seçin ve bileşeni forma yerleştirin. Ne yazık ki, Delphi barkod nesnesini siyah bir arka plan rengiyle ekler.

Ama sorun değil, bunu basitçe düzeltiyoruz. Nesne denetçisinde bileşenin özelliklerini özelleştirebilirsiniz. Bu yüzden arka plan rengini beyaz olarak ayarlayın.

Voila, barkod nesnesi şimdi iyi görünüyor:

Bu örnekte forma bir TEdit kontrolü daha ekliyoruz. Şimdi formunuz aşağıdaki gibi görünebilir:

Daha sonra düzenleme alanını doğrudan kontrole bağlarız. Düzenleme alanına çift tıklayarak TextChange olayının kaynak kodunu açın. Bu olay, düzenleme alanının içeriği değiştirildiğinde her zaman çağrılır. Örneğimiz için idealdir. Bu güncellemeyi hemen kontrole iletiyoruz.

Bitti! Şimdi uygulamayı başlatın ve barkodu değiştirmek için düzenleme alanının içeriğini değiştirin.

Kodlama örnekleri

Özellikleri ayarlamak çok basittir.

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

Resim Özelliğini Kullanma
Barkodu bir görüntü nesnesine kopyalayın:

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

Panoyu kullanma
Geçerli barkodu bir vektör grafiği olarak panoya kopyalayın (WMF):

  Barcode1.CopyToClipboard;

Geçerli barkodu bir bitmap olarak panoya kopyalayın (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);