RTF Linespacing speichern und wiederherstellen

[GreenHorn3600]

Hallo TaakTaak,

Dank für deine Mühe, Du hast Recht, es handelt sich um eine andere Komponente, sie verwendet aber das Standard RichEdit (das ist das InnerControl), denn ich selbst schaff es nicht bei einem TRichEdit den Formatierten Text in eine Variable zu speichern und anschliessend zu laden

Daher habe ich es mal mit einem standard TRichEdit probiert, über den Umweg der Datei, und leider kommt das selbe heraus

Delphi-Quellcode:

procedure TForm1.bformatClick(Sender: TObject);
var
  aparaformat2 : TParaFormat2;
begin
  ZeroMemory(@aparaformat2, sizeof(aparaformat2));
  aparaformat2.cbSize := SizeOf(aparaformat2);
  aparaformat2.dwMask := PFM_LINESPACING;
  aparaformat2.bLineSpacingRule := 2;
  SendMessage(re.Handle, EM_SETPARAFORMAT, 0, LParam(@aparaformat2));
end; 
procedure TForm1.bLoadClick(Sender: TObject);
begin
  re.Lines.LoadFromFile(ChangeFileExt(Application.ExeName, '.txt')); 
end;
procedure TForm1.bstoreClick(Sender: TObject);
begin
  re.Lines.SaveToFile(ChangeFileExt(Application.ExeName, '.txt'));  
end;

Kann es sein, dass ich mich einfach nur zu blöd dafür anstelle?

Dank für Deine Müh.

Euer Greeny