Druckerauflösung ermitteln, etc.

[daschaos]

Will ein Bitmap ausdrucken und da ich keine Ahnung hab, wie das mit dem Drucken funktioniert hab ich mal gegoogelt und folgenden Code gefunden, verstehe aber nich so ganz was da gemacht wird, besonders was es mit der 25.4 auf sich hat. Das Ergebnis dieser Funktion wird dann in der eigentlichen Druckroutine öfter verwendet um bestimmte Punkte zu berechnen.

Warum brauch ich also diese 25.4 und diese Umrechnung im Allgemeinen?

Delphi-Quellcode:

class function TCustomTreemapChart.MillimeterPerPixel(MM: Integer): Integer;
var
  PrinterDPI: Integer;
begin
  PrinterDPI := GetDeviceCaps(Printer.Handle, LOGPIXELSY);
  Result :=  Round((PrinterDPI / 25.4) * MM);
end;

Und nochwas:

Warum muss ich das nochma durch 10 teilen? Achja, SetMapMode --> (Printer.Canvas.Handle, MM_LOMETRIC). Hat ja sicher was damit zu tun.... aber bei den anderen Werten wird nich durch 10 dividiert... nur an dieser Stelle.

Delphi-Quellcode:

BmpWidth := Round(MillimeterPerPixel(Bmp.Width) / 10);
BmpHeight := Round(MillimeterPerPixel(Bmp.Height) / 10);

Danke für eure Hilfe und entschuldigt meine Unwissenheit ,
daschaos

[hathor]

Ein Inch entspricht 2,54 cm = 25,4 mm,
10 Inch entspricht 25,4 cm.

PrinterDPI = Dots Per Inch