Höhe des in JvRichEdit stehenden Inhalts

[Reinhardtinho]

Hallo zusammen,

Wie kann ich die Höhe des in einem RichEdit vom Typ TJvRichEdit stehendem Text (ggf. mit Bildern) herausbekommen?


Anbei ein kleiner Screenshot, wie der Inhalt aussehen könnte. Ich benutze Delphi 5 Enterprise.

MFG
Lorenz

[marabu]

Hallo Lorenz,

vielleicht hilft dir dieser Thread weiter: bounding rectangle eines fromatierten rtftextes ermitteln

Grüße vom marabu

[Reinhardtinho]

Erstmal Danke,

ich habe die Funktion von Floke getestet, aber bei mir kommt folgender Fehler:

[Fehler] FRM_Main.pas(461): Undefinierter Bezeichner: 'TFormatRange'.

Kennt den Delphi 5 noch nicht oder muss noch zusätzlich eine andere Unit eingebunden werden?



MFG
Lorenz

[marabu]

Hast du die Unit RichEdit eingebunden?

Delphi-Quellcode:

// D7: RICHEDIT.PAS

type
  {$EXTERNALSYM _formatrange}

  _formatrange = record
    hdc: HDC;
    hdcTarget: HDC;
    rc: TRect;
    rcPage: TRect;
    chrg: TCharRange;
  end;
  TFormatRange = _formatrange;

  {$EXTERNALSYM FORMATRANGE}

  FORMATRANGE = _formatrange;

[Reinhardtinho]

Die Unit RichEdit hatte ich nicht eingebunden, dachte das hätte sich mit JvRichEdit erledigt. Naja, Danke.

So, jetzt kommt aber ein Fehler, wenn ich die Funktion zur Laufzeit aufrufe.

Und zwar bei folgender Zeile:

Assert(rv >= fr.chrg.cpMax); Fehlermeldung siehe Anhang.


Könnt ihr mir da bitte weiterhelfen? Danke.

MFG
Lorenz

[Reinhardtinho]

Weiß keiner Rat?

[marabu]

Hallo Lorenz,

hast du das Kapitel zur Prozedur Assert() in der Online Hilfe gefunden? Lies auch noch die Win32 Hilfe zu EM_FORMATRANGE - und dann entferne den Aufruf von Assert() einfach. Ich glaube Volker hat die Zeile nur aus Versehen noch im Code drin gehabt. Mit der Forderung (rv >= fr.chrg.cpMax) feuert die Assertion ja ohnehin immer dann, wenn alles in Ordnung ist.

Freundliche Grüße

[Reinhardtinho]

Vielen Dank, die Funktion funktioniert soweit (wie der Name ja sagt).
Ein kleines Problem habe ich allerdings noch. Die Funktion liefert einen Rückgabewert von Typ TPoint, wie kann ich daraus die Höhe in Pixel ermitteln?

MFG
Lorenz

[marabu]

Gehe mal davon aus, dass das benötigte Rechteck durch den Punkt (0,0) und GetRichEditTextExtent() bestimmt wird.

[Reinhardtinho]

So, danke schon mal für die Tipps.

Ich habe nun 2 verschiedene Texte in meinem RichEdit eingegeben und mir dann mal die Koordinaten, die die Funktion als Rückgabewert liefert, ausgeben lassen.

Die Resultate sehen so aus:

1)
X 289
Y -372828

2)
X 289
Y -372835

Zitat von Delphi-Hilfe:

X gibt die horizontale und Y die vertikale Koordinate des Punktes an.

Ein Wert von -372800 kommt mir als Pixelwert für die Höhe des Inhalts etwas komisch vor ???

Ich habe den gleichen Inhalt genommen, wie der beim Screenshot im ersten Post. Nach dem Bild steht nichts mehr weiter.


Was mache ich denn nun schon wieder falsch?


MFG
Lorenz