Einzelnen Beitrag anzeigen

canoniac

Registriert seit: 25. Aug 2014
26 Beiträge
 
#3

AW: XE7 - ZintBarcode Exception

  Alt 20. Feb 2017, 13:15
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;
  Mit Zitat antworten Zitat