Einzelnen Beitrag anzeigen

Benutzerbild von chaosben
chaosben

Registriert seit: 27. Apr 2005
Ort: Görlitz
1.358 Beiträge
 
Delphi XE2 Professional
 
#2

AW: Zint - Barcode height property

  Alt 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)
  Mit Zitat antworten Zitat