Merkwürdiges Verhalten von TMemo

[Maekkelrajter]

Zur Zeit bin ich dabei, an einigen Stellen meines Projektes anstatt TRichedit ein TMemo zu verwenden (siehe auchhier) Leider zeigt auch TMemo unerwartetes und unschönes Verhalten. Wenn die Eigenschaft Scrollbars auf ssBoth gesetzt ist, werden die Scrollbars immer eingeblendet, auch wenn gar kein Text angezeigt wird oder der Text komplett (horizontal und vertikal) in das Textfeld passt. Damit könnte man zur Not leben. Zu allem Überfluss wird aber der horizontale ScrollBar bei manchen Texten disabled (ausgegraut), obwohl WordWrap auf 'false' gesetzt ist und Zeilen vorhanden sind, die deutlich über den rechten Rand hinausragen. Die lassen sich so im TMemo natürlich nicht vollständig anzeigen. (Siehe Anhänge). 'Long Line1.jpg' zeigt einen screenshot des Formulars mit einem TMemo, 'Long Line2.jpg' zeigt die zugehörige komplette Zeile rot unterstrichen, die im Original keinen Zeilenumbruch hat.
Woran kann das liegen und was kann man dagegen tun?

Gruß LP

[TomyN]

Muss Word Wrap nicht auf true stehen?

Set WordWrap to true to make the edit control wrap text at the right margin so that it fits in the client area. The wrapping has cosmetic purposes only. The text does not include any return characters that were not explicitly entered. Set WordWrap to false to have the edit control display a separate line only where return characters were explicitly entered into the text.

Ups, das geht ja völlig am Problem vorbei .... sorry..

[Alallart]

@Maekkelrajter

TMemo ist etwas primitiv und liefert hier und da unübliches Verhalten. Es ist aber normal für TMemo. Zum Beispiel ScrollBars. Bei TMemo ist es ausgegraut wenn es nicht benötigt wird, sonst eingeblendet. Das gleiche bei TRichEdit. Es wird ausgeblendet wenn es nicht benötigt wird, sonst eingeblendet. Wie gesagt, das ist bei TMemo normal.

Besser immer TRichtEdit nutzen.

[Maekkelrajter]

Ich habe etwas mit der Zuweisung der Stringlist zum Memo experimentiert. Mit

Delphi-Quellcode:

Memo1.lines.assign(MyStringlist)

oder

Delphi-Quellcode:

Memo1.lines.addstrings(MyStringlist)

ist zwar der Text OK und beide Scrollbars funktionieren korrekt, aber dafür dauert das auch über 20 sec, also keine Option.

Jetzt habe ich mir einen Workaround einfallen lassen. Ich ermittle den Index der längsten Zeile des Memos und weise dann dieser Zeile noch mal ihren eigenen Inhalt zu:

Delphi-Quellcode:

  SL:= TStringlist.Create;
  try
    If GetXMLContent(SL) Then
    begin
      memo1.Text:= SL.Text;
      index := MaxTextWidth(memo1);
      Memo1.Lines[index] := memo1.Lines[index];
    end;
  finally
    SL.Free;
  end;

Der Code sieht zwar seltsam aus, macht aber genau das, was er soll: Text und beide Scrollbars sind OK, und die Ausführungszeit beträgt deutlich weniger als eine halbe Sekunde und steht auch im richtigen Verhältnis zur Menge der Daten, egal ob sie von Windows oder MacOS stammen. Geht doch!
Wer eine bessere Lösung weiß, möge sich melden. Ich erkläre mein Problem einstweilen für gelöst! :-D

Gruß LP

[ol1uw]

Hallo

bliebe als Versuch noch SynEdit

Uwe

[Maekkelrajter]

Zitat:

Zitat von ol1uw (Beitrag 1541208)

Hallo

bliebe als Versuch noch SynEdit

Uwe

Synedit hatte ich bereits installiert und es funktioniert anscheinend korrekt. Aber wo finde ich eine ausführliche Doku zu dieser offenbar sehr leistungsfähigen Komponente? Wenn ich die vorhandenen (TRichEdit und TMemo) damit ersetzen will, komme ich ohne vernünftige Doku nicht aus. Bisher habe ich leider vergeblich danach gesucht :(

Gruß LP

[Rollo62]

Bist Du auf der neuen Delphi 12.2 Version, oder noch der alten?

Da sollte das TMemo irgendwie neu designed sein, wenn ich diesen Satz richtig verstehe:

Zitat:

New! New Styled Memo Implementation with enhanced IME support, available for all supported platforms

aus

https://blogs.embarcadero.com/rad-st...anced-feature/

Das hört sich aber erstmal nach FMX an, ob das auch für VCL gilt?

[Maekkelrajter]

Zitat:

Zitat von Rollo62 (Beitrag 1541406)

Bist Du auf der neuen Delphi 12.2 Version, oder noch der alten?

Meine aktuelle Version ist 12.1 CE.

GRuß LP