Delphi
Viivakoodit Delphi-projekteissa

Kuinka käyttää viivakoodeja Delphissä

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

Voit käyttää ActiveBarcodea Delphissä kuten mitä tahansa muuta ohjausobjektia (esim. painiketta). Ensin sinun on lisättävä ActiveBarcode-ohjausobjekti Delphi-kehitysympäristöön.

Luo uusi projekti: Tiedosto - Uusi - VCL-lomakesovellus:




Voit lisätä ActiveBarcoden lomakkeeseen valitsemalla ActiveBarcode Control -komponentin työkalupaletista. Löydät sen ActiveX-kohdasta TBarcode -komponenttina:




Valitse TBarcode ja sijoita komponentti lomakkeelle. Valitettavasti Delphi lisää viivakoodiobjektin mustalla taustavärillä.




Mutta ei hätää, korjaamme tämän helposti. Objektien tarkastelussa voit muokata komponentin ominaisuuksia. Aseta taustaväriksi valkoinen.




Voilà, viivakoodi näyttää nyt hyvältä:




Tässä esimerkissä lisäämme lomakkeeseen vielä yhden ohjausobjektin, TEdit-objektin. Lomake voi nyt näyttää seuraavalta:




Seuraavaksi linkitämme muokkauskentän suoraan ohjausobjektiin. Avaa TextChange-tapahtuman lähdekoodi kaksoisnapsauttamalla muokkauskenttää. Tämä tapahtuma kutsutaan aina, jos muokkauskentän sisältö muuttuu. Ihanteellinen esimerkki. Välitämme tämän päivityksen välittömästi valvonnalle.




Valmis! Käynnistä nyt sovellus ja muuta muokkauskentän sisältöä muuttaaksesi viivakoodia.




Koodausesimerkkejä

Ominaisuuksien asettaminen on hyvin yksinkertaista.

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

Kuvien ominaisuuksien käyttö
Kopioi viivakoodi kuvaobjektiin:

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

Leikepöydän käyttö
Kopioi nykyinen viivakoodi leikepöydälle vektorigrafiikkana (WMF):

  Barcode1.CopyToClipboard;

Kopioi nykyinen viivakoodi leikepöydälle bittikarttana (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);