Au...in meinen Projekten ist es natürlich erzeugt.
Delphi-Quellcode:
procedure THauptForm.FormCreate(Sender: TObject);
var
MyBitmap :TBitMap;
MyBarcode :TZintBarcode;
begin
//BarCode zeichnen ***********************************************************
MyBarcode := TZintBarcode.Create;
MyBitmap := TBitMap.Create;
MyBarcode.Clear;
MyBarcode.Data := '00340311640213278478';
MyBarcode.BarcodeType := tBARCODE_CODE128;
MyBarcode.Option3 := 100;
MyBarcode.Scale := 1;
MyBarcode.GetBarcode(MyBitmap);
// MyCanvas.Draw(0,0,MyBitmap);
//****************************************************************************
end;