Delphi-Quellcode:
function TPrintMGR.GetXDPI: Integer;
begin
Result := GetDeviceCaps(Printer.Handle,LOGPIXELSX);
end;
function TPrintMGR.GetYDPI: Integer;
begin
Result := GetDeviceCaps(Printer.Handle,LOGPIXELSY);
end;
Ergebnis bei meinem Drucker mit 360/360 DPI: 360/360. aBitmap ist das Bitmap, das gedruckt werden soll. DrawBitmap tut dasselbe wie Canvas.StretchDraw. Lassen wir es gut sein...
Hoffentlich fällt das Probeabo der Toolbox mit dem Release von TXPrint 2.0 zusammen
Danke nochmal für alles!