FontDialog - Font Size

[Sidi61]

Hallo Sir Rufo,

hab´s verstanden, der Zusammenhang zwischen FontSize aus Fontdialog und der echten Größe unter Berücksichtigung der Druckerauflösung ist mir nun klar.

Ist wirklich super erklärt von dir

hab´s entsprechend eingebaut, funktioniert hat es aber erst nach dem ich folgendes rausgeschmissen hatte:

Delphi-Quellcode:

 SetMapMode(Printer.Canvas.Handle, MM_LOMETRIC); //0,1mm Einheiten X-Achse nach rechts jedoch Y-Achse nach oben
 GetWindowExtEx(Printer.Canvas.Handle,w);  //Drucker Auflösung ermitteln
 GetViewPortExtEx(Printer.Canvas.Handle,v); //Abmessung des Viewports auslesen
 SetMapMode(Printer.Canvas.Handle, MM_ANISOTROPIC);
 SetWindowExtEx(Printer.Canvas.Handle, w.cx, w.cy,nil); //Druckerauflösung bestätigen
 SetViewPortExtEx(Printer.Canvas.Handle, v.cx, -v.cy,nil); //Y-Achse kippen nach unten

Dazu findet man ja viele Foreneinträge unter dem Stichwort in Millimeter drucken.
Wollte das schon länger mal ausprobieren, scheitere aber immer an der Einstellung des Font, soll wohl nicht sein - oder hast du dazu noch eine Idee?

Gruß
Sidi61