Einzelnen Beitrag anzeigen

Benutzerbild von Jasocul
Jasocul

Registriert seit: 22. Sep 2004
Ort: Delmenhorst
1.355 Beiträge
 
Delphi 11 Alexandria
 
#1

Tab in TRichEdit anders als in TfrxRichView

  Alt 26. Jul 2018, 12:30
Delphi-Version: XE2
Ich übergebe einen Text aus TRichEdit an TfrxRichView.
Dieser Text beinhaltet auch Tabulatoren.
Bis vor zwei Wochen wurde das korrekt verarbeitet.

Dann wurde das Programm geändert, aber an einer Stelle, die definitiv nichts damit zu tun hat! Es handelt sich dabei auch nicht um eine aufwendige Änderung, die vielleicht versehentlich Nebenwirkungen hatte.

Die Tabulatoren werden "plötzlich" an einer Stelle verschoben. So, als würde der Platz zwischen dem letzten Buchstaben und dem Tab nicht mehr reichen. Der entsprechende Text wird automatisch erzeugt, kann aber überarbeitet werden, was allerdings nicht geschehen ist.

Die Übergabe des Textes aus TRichEdit an TfrxRichView sieht folgendermaßen aus:
Delphi-Quellcode:
procedure SetRTFText(var re : TRichEdit; s : String);
var
  tmpStream : TMemoryStream;
  sl : TStringList;
begin
  tmpStream := TMemoryStream.Create;
  sl := TStringList.Create;
  sl.Text := s;
  sl.SaveToStream(tmpStream);
  tmpStream.Position := 0;
  re.Lines.LoadFromStream(tmpStream);
  sl.Free;
  tmpStream.Free;
end;
Was sich seit letzten funktionierenden Kompilierung geändert hat:
- Delphi Tokyo wurde installiert.
- Es gab ein paar Windows-Updates (Windows 7)

TfrxReport hat Version 4.14.2.

Hat jemand eine Idee, woran das liegen kann?
Peter
  Mit Zitat antworten Zitat