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