[Bibliothek] Barcode für Delphi (Zint)

[Carsten2]

Danke

in unit zint_render_canvas;

ClearBackground mit Rectangle und Pen verursacht
verschobenen Hintergrund... (besonders bei kleiner Module-Grösse wie 1 auf TMetafilecanvas sichtbar)

Besser wie in DrawRect FillRect benutzen:

Code:

procedure TZintRenderTargetCanvas.ClearBackground(
  const AParams: TZintClearBackgroundParams);
begin
  FCanvas.Brush.Color:=FBGColor;
  FCanvas.Brush.Style:=bsSolid;
  //Canvas.Pen.Style:=psSolid; //geändert
  //FCanvas.Pen.Color:=FBGColor; //geändert

  //FCanvas.Rectangle(Round(AParams.X), //geändert
  FCanvas.FillRect(Rect(Round(AParams.X), //geändert
                        Round(AParams.Y),
                        Round(AParams.X + AParams.Width),
                        Round(AParams.Y + AParams.Height)
                        )//geändert
                        );