RichEdit scrollen verhindern

[fsch]

@mjustin:
Die Idee mit dem etwas größeren Eingabefeld und der farbigen Markierung der Druckbereichsüberschreitung ist gut. Nur löst das nicht das grundsätzliche Problem, dass das RichTextEdit horizontal und vertikal scrollt. Das möchte ich auf jeden Fall verhindern.

@Popov:
Der Vorschlag funktioniert in einem TMemo, jedoch nicht in einem TRichEdit. Dort kann der Font ja innerhalb jeder Zeile mehrfach wechseln. Gibt es eine Funktion, die die Zeilenlänge eines RTF-Textes errechnet?

Vielen Dank!
Frank

[Popov]

Zitat von fsch:

Gibt es eine Funktion, die die Zeilenlänge eines RTF-Textes errechnet?

Nennt sich Programmieren.

[Jasocul]

Ich würde es über CaretPos versuchen.
Zumindest gibt es das bei TRichEdit. Ich gehe davon aus, dass es das dann auch bei TJvRichEdit gibt.

Damit kannst du die aktuelle Eingabe-Position feststellen und (soweit ich mich erinnern kann) auch festlegen.

Was die Breite des Eingabe-Bereichs betrifft, habe ich in einer Anwendung mal die Größe des TRichEdit genauso groß gemacht, wie in dem zugehörigen Report. Dadurch könnte man den automatischen Word-Wrap für das Problem nutzen. Das wird aber etwas tückisch, wenn die Anwender mit unterschiedlichen Skalierungen arbeiten. In dem Fall musst du das TRichEdit ein wenig umrechnen. Die Scrollbars müssen bei der Größenberechnung ebenfalls berücksichtigt werden. Aber vielleicht kannst du es dir leicht machen und die Komponente einfach grundsätzlich etwas kleiner machen, als den nutzbaren Bereich des Etiketts.

Source kann ich leider nicht zur Verfügung stellen. Aber vielleicht hilft das ja als Ansatz für deine Umsetzung.

[fsch]

Ich habe das Problem jetzt so gelöst:

Das automatische Scrollen kann ich verhindern, indem ich in der Windows-Funktion EM_SETOPTIONS die Optionen ECO_AUTOVSCROLL und ECO_AUTOHSCROLL lösche. Dies mache ich im OnCreate der übergeordneten Fensters mittels SendMessage.

Weiterhin markiere ich im OnChange des RichEdit jede Zeile rot, die länger ist, als das RichEdit breit ist. Das ermittle ich über die Funtion GetCharPos() von TJvRichEdit (dies ist die gekapselte Windows-Funktion EM_POSFROMCHAR).

Und wenn zu viele Zeilen eingegeben wurden, wird der Hindergrund des kompletten RichEdits eingefärbt (ebenfalls über GetCharPos() plus die Zeilenhöhe der letzten Zeile).

Mal sehen, ob sich das in der Praxis so bewährt...

Nochmal vielen Dank für eure Hilfe.