Registriert seit: 27. Apr 2005
Ort: Görlitz
1.358 Beiträge
Delphi XE2 Professional
|
AW: Zint - Barcode height property
9. Aug 2011, 20:41
I've tried it with the current revision 843 and it works.
Delphi-Quellcode:
procedure TForm11.TrackBar1Change(Sender: TObject);
var
zb : TZintBarcode;
bmp : TBitmap;
begin
Repaint;
bmp := TBitmap.Create;
zb := TZintBarcode.Create;
zb.BarcodeType := tBARCODE_CODE128;
zb.Height := TrackBar1.Position;
zb.Data := 'Hallo';
zb.GetBarcode(bmp);
Canvas.Draw(10, 10, bmp);
bmp.Free;
zb.Free;
end;
Benjamin Schwarze If I have seen further it is by standing on the shoulders of Giants. (Isaac Newton)
|