Zitat von
xaromz:
Hallo,
ich habe jetzt eine Routine, die Kerning berücksichtigt. Die Textdarstellung verlangsamt sich dadurch zwar etwas, aber nur um den Faktor 7-10
.
Die neue Version findet sich auf meiner
Seite.
Gruß
xaromz
super!
also die schrift funktioniert jetzt perfekt ...
kannst du mir mit dem drucken noch mal kurz helfen?
Ich versuche die Seite, die genau 210*297 ist, original auf den drucker auszugeben (den Offset habe ich schon ausgerechnet)
aber wie kann ich die seite nun verschieben?
Delphi-Quellcode:
function MarginToMM(const Value, dpi : integer) : Extended;
begin
Result := ((Value * 254) / dpi) / 100;
end;
temp.BeginDoc;
grPrinter := TGPGraphics.Create(temp.Canvas.Handle);
try
grPrinter.SetPageUnit(UnitMillimeter);
margin.x := -MarginToMM(GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX), GetDeviceCaps(Printer.Handle, LOGPIXELSX));
margin.y := -MarginToMM(GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY), GetDeviceCaps(Printer.Handle, LOGPIXELSY));
SVGImage1.SVG.PaintTo(grPrinter, Bounds, nil, 0);
finally
grPrinter.Free;
end;
temp.EndDoc;