Pixel in cm umrechnen

[MPirnstill]

Zitat von Luckie:

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