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

[MPirnstill]

Zitat:

Zitat von Luckie (Beitrag 205102)

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.

Hallo,

ich weiß, der Thread ist schon etwas älter, aber stehe jetzt vor einem ähnlichen Problem. Ich habe eine Art Editor mit der RTF-Komponente in Delphi 7 geschrieben.
Die soll für Tastschreibübungen dienen. So leider sieht das Getippte am Bildschirm jetzt nicht so aus wie das Gedruckte.

Kann ich, wenn ich diesen "setmapmode" verwende auch einfach sagen, das die Breite meiner RTF-Komponente 21 cm (- Randeinstellung) breit ist?

Also so eine Art WSYWYG. Das zumindest die Zeilen auf dem Bildschirm mit den Zeilen im Ausdruck identisch sind.

[Bummi]

Vielleicht hilft Dir das weiter?

http://www.swissdelphicenter.ch/de/showcode.php?id=1466

in Kurzform habe ich etwas derartigen in meiner Spickerkiste

Delphi-Quellcode:

procedure PaintRichedit(canvas:TCanvas;re:Trichedit;Bounds:Trect;pixelsperinch:Integer=96);

var fmt    : TFormatRange;
begin
    InflateRect(Bounds,-2,-2);
    Bounds.Left := Round(Bounds.Left * 1440 / pixelsperinch) ;
    Bounds.right := Round(Bounds.right * 1440 / pixelsperinch) ;
    Bounds.top := Round(Bounds.top * 1440 / pixelsperinch);
    Bounds.Bottom := Round(Bounds.Bottom * 1440 / pixelsperinch);
     with fmt do
     begin
          hdc:= Canvas.handle;
          hdcTarget:= hdc;
          chrg.cpMin := 0;
          rcPage := Bounds;
          rc := Bounds;
          chrg.cpMax := re.GetTextLen;
     end;
     SetBkMode( Canvas.Handle, TRANSPARENT );
     re.perform( EM_FORMATRANGE, 1, integer( @fmt ));
     re.perform( EM_FORMATRANGE, 0, 0 );
end;

[MPirnstill]

Hallo Thomas,

danke erstmal für deine Antwort.
Auf den ersten Blick sieht das sehr vielversprechend aus.
Werd mal schauen ob das passt.

Gruß
Micha