Einzelnen Beitrag anzeigen

daschaos

Registriert seit: 23. Mai 2007
117 Beiträge
 
Delphi 2006 Professional
 
#1

Druckerauflösung ermitteln, etc.

  Alt 13. Aug 2007, 11:34
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
  Mit Zitat antworten Zitat