Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.270 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: Drucken mit MM_TEXT

  Alt 23. Feb 2017, 16:31
Hallo,

Ausgangspunkt sind Punkte (im Code), ich wollte wissen, wie die MM sind,
aber ich brauche danach Deine Routine

Ich habe aber gerade auch was gefunden
http://www.delphipraxis.net/172936-d...riftarten.html
und speziell da

Delphi-Quellcode:
function TForm1.MMtoPX(inMM:Integer) : Integer;
begin
  result := Round(inMM * printer.Canvas.Font.PixelsPerInch / 254)
end;


function TForm1.PXtoMM(inPX:Integer) : Integer;
begin
  result := Round(inPX *254 / printer.Canvas.Font.PixelsPerInch)
end;
Nehme ich meine 720, komme ich auf die korrekten 61 mm (720*254/300).

Danke
Heiko

Geändert von hoika (23. Feb 2017 um 16:50 Uhr)
  Mit Zitat antworten Zitat