Drucken mit MM_TEXT

[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........

[Fritzew]

Aber ich erinnere mich da gab es doch so ne Tprint Komponente...
Glaube ich werde alt

[himitsu]

Joar, also MM_TEXT sind Deviceauflösung. (k.A. warum es "Text" heißt)

Also entweder man nimmt die PixelPerInch des Device
* PixelPerInch aka DPI nehmen und vor dem Verrechnen nur noch das Inch (Zoll) in Millimeter umrechnen ... schon hat man PixelPerMM

oder man kennt die Seitenbreite oder -höhe in Millimetern teilt das durch die Pixel der Seite. (hier muß man aber eventuell auf nichtdruckbare Ränder achten und die vorher abziehen)