Drucken mit MM_TEXT

[hoika]

Hallo,
ich habe hier einen alten Quellcode,
da wird SetMapMode mit MM_TEXT gesetzt.

Wie bekomme ich jetzt bei gegebenen Millimeter denn den Wert,
den ich bei Printer.Canvas.Textout angeben muss.

Aus der Hilfe:
Eine virtuelle Einheit wird in einen (1) Geräte-Bildpunkt gewandelt.
Positive x sind rechts, positive y unten.

Das ist auch im Quellcode so.

Nehmen wir mal an, wir drucken mit 300 DPI (Punkt pro Zoll, also pro 2.54 mm)
1 Punkt sind 1/72 Zoll.

Ich stehe gerade völlig auf dem Schlauch ...



Umstellen auf MM_LOMETRIC will ich das nicht, um muss bloss ein paar Positionen ändern.

So kleines Update:
Die angegebenen Pixel stehen für 300 DPI, intern wird das mit Hilfe von GetDeviceCaps(Printer.Handle,LOGPIXELSX);
in die tatsächlichen Pixel umgerechnet.

Ich habe jetrzt aber z.B. den Wert 720, der ergibt im Ausdruck etwa 60 mm.

[Fritzew]

Hallo,

Du has also mm als Ausgangsbasis?

dann Umrechner der mm in Pixel mit

Result := round((avalue * Logx / 25.4)); Logx = deine Aktuelle Auflösung

[hoika]

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

[Fritzew]

Diese Routinen arbeiten aber mit (lometric) 1/10 mm
ansonsten stimmt das

[hoika]

Hallo,
es wird intern noch weiter hin- und hergerechnet.

Ist ein alter Code aus der "Der Entwickler 1899"

[Fritzew]

Zitat von hoika:

Hallo,
Ist ein alter Code aus der "Der Entwickler 1899"

Ok das war dann vor meiner Zeit Muss mal meinen Uropa fragen........