Pixel in cm umrechnen

[Meflin]

Hi,
wie kann man denn pixel in cm /mm /m oder änliche "echte" maßeinheiten umrechten?

*MFG*

[SleepyMaster]

http://www.delphipraxis.net/internal...ixel+umrechnen

Glaub das geht nich zu einfach!

[shmia]

Zitat:

Zitat von Meflin

wie kann man denn pixel in cm /mm /m oder änliche "echte" maßeinheiten umrechten?

Siehe Anhang. :zwinker:

[Meflin]

ähm lieg ich falsch oder sind da nur funktionen für die andere richtung drin?
(mm -> pixel)

[Luckie]

Wozu brauchst du das?

[Meflin]

nun ich will die länge eines labels bestimmen, in pixeln kein problem, nur dass das nicht sehr userfrundlich ist, da sich kaum einer was drunter vorstellen kann!

[shmia]

Zitat:

Zitat von Meflin

ähm lieg ich falsch oder sind da nur funktionen für die andere richtung drin?
(mm -> pixel)

Stimmt schon. Diese Unit dient dazu, Druckerausgaben in mm oder Inches zu designen und
auf den Printer Canvas in Pixel umzurechnen.
Die Gegenrichtung sollte recht einfach sein (Kehrwert bilden):

Delphi-Quellcode:

function ConvertPixelstoMMX(const Value:Integer):Double;
begin
   Result := Value / GetPrinterRes(Printer, True) * mmPerInch;
end;

function ConvertPixelstoMMY(const Value:Integer):Double;
begin
   Result := Value / GetPrinterRes(Printer, False) * mmPerInch;
end;

[Meflin]

ah thx, gleich mal austesten!

[Luckie]

Zitat:

Zitat von shmia

Diese Unit dient dazu, Druckerausgaben in mm oder Inches zu designen und
auf den Printer Canvas in Pixel umzurechnen.

Ich die genauen Anforderungen die du hattest nicht aber mit setmapmode hättets du dir viel Arbeit sparen können, so wie es bisher für mich aussieht.

[ipworks]

Hallo
vielleicht hilft dir das:

Delphi-Quellcode:

function Tbuchungsform.Drucklinks(mm:integer):integer;
begin
     result:=StrtoInt(FloattoStrF(mm*GetDeviceCaps(Printer.Handle, LogPixelsX)/25.4,fffixed,10,0))
end;

function Tbuchungsform.Druckoben(mm:integer):integer;
begin
     result:=StrtoInt(FloattoStrF(mm*GetDeviceCaps(Printer.Handle, LogPixelsY)/25.4,fffixed,10,0))
end;

mfg
Peter