letzten linebreak aus tstrings (trichedit.lines) entfernen

[DrUArn]

@Sir Rufo: ja, ist richtig.

Nun habe ich mit BeginUpdate und EndUpdate etwas propbiert, verhindert auch größtenteils das Flackern bei vielfachem Einfärben.

Eine interessante Beobachtung hier noch, die ich nicht erklären kann:

Delphi-Quellcode:

procedure TSimpCellRichEd_UA.SetEditModus(const EdMo: tcelleditmodi);
  var  s:string;

begin
 try
  s:='';
  lines.beginupdate;
  case Edmo of
{1}   emedaslines_UA:
      begin
        for i  := 0 to 1000 do
               s:=s+inttostr(i)+lines.linebreak;
        text:=s;
{--->}  wordwrap:=false;//lines.assign(strl);
      end;
{2}   emedasFreePos_UA:
      begin
        for i  := 0 to 1000 do
               s:=s+'{'+inttostr(i)+'}'+dupestring(' ',3);
        text:=s;
{--->}  wordwrap:=true;
      end;
 finally

 preparetext;//Einfärben an sehr vielen Stellen

{
case Editmodus of
{1}  emEdasLines_UA: self.wordwrap:=false;
{2}  emEdasFreePos_UA: self.wordwrap:=true;
end;
}
 lines.endupdate;
end;
end;

Dies ist nur ein Auszug aus dem umfangreicheren Original.
Die Einträge werden also einmal wie ein Text, geklammert mit Zeilenumbruch dargestellt oder
Zeile für Zeile.
Lasse ich den Zeilenumbruch innerhalb der ersten Case-Schleife setzen {---->}, flimmert es beim Umrechnen von {2} nach {1},
und zwar nur dann, wenn Wordwrap vorher true war. Verlege ich das Setzen von wordwrap aus der ersten Case-Schleife in eine spätere (im Beispiel vor lines.endupdate), flimmerts nicht.


Das passiert auch, wenn ich bei {1} direkt Lines fülle (for i:=0 to 100 do lines.add(inttostr(i)));

Hebt vielleicht wordwrap:=false mein Beginupdate auf?


Gruß Uwe