RTF Linespacing speichern und wiederherstellen

[GreenHorn3600]

Hallo Zusammen,

ich häng an einen kleinen problem ..., wahrscheinlich ist es nur eine kleinigkeit. ich möcht gern ein line spacing im RTF controll setzen, dies speichern und nach dem speichern später wieder anzeigen. das setzen funktioniert einwandfrei... doch, sobald ich das speichere ist wieder das spacing rule 0 aktiv. weiss jemand von euch, wie man das hinbekommt?

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(cxRichEdit1.InnerControl.Handle, EM_SETPARAFORMAT, 0, LParam(@aparaformat2)); 
end;

procedure TForm1.bRestoreClick(Sender: TObject);
begin
  cxRichEdit1.InternalEditValue := aString;
end;

procedure TForm1.bSaveClick(Sender: TObject);
begin
  aString := cxRichEdit1.InternalEditValue;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  aString := '{\rtf1\ansi\deff0{\fonttbl{\f0\fnil Tahoma;}}'
           + #$D#$A'\viewkind4\uc1\pard\sl0\slmult0\lang2055\f0\fs16 '
           + 'that''s a string with three lines\par'#$D#$A'second\par'
           + #$D#$A'thirt\par'#$D#$A'and so on\par'#$D#$A'}'#$D#$A#0;
  cxRichEdit1.InternalEditValue := aString;
end;

Dank und Gruss

Euer Greeny

[GreenHorn3600]

*push*

weiss denn keiner wie man unterschiedliche linespacings im Richedit speichern und anzeigen lassen kann

[taaktaak]

Moin, Moin GreenHorn.

Ich denke schon - bei mir funktioniert das mit dem TRichEdit ohne Probleme. Offenbar verwendest du aber eine andere Komponente.

SendMessage(cxRichEdit1.InnerControl.Handle,... Das ..InnerControl.. kenne ich nicht. Beim "normalen" RichEdit wird hier einfach nur RichEdit.Handle verwendet. Liegt es vielleicht daran? Der übrige Code schaut ok aus, die mir unbekannte Textzuweisung im OnCreate() kann ich nicht beurteilen.

[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

[toms]

Hallo

Wie verhält es sich, wenn du RichEdit2.0 (z.B JVRichEdit) verwendest?

[GreenHorn3600]

Hallo Toms,

was soll ich sagen auch das TJvRichEdit speichert mir nicht den Zeilenabstand. Das Verhalten der Komponenten ist somit identisch, nur nicht das, was ich gerne möchte

Schöne Grüße
Greeny

[toms]

Wie unterscheidet sich der RTF Code des RichEdits vor und nach dem Speichern?

[hamburcher]

Zitat von toms:

Wie unterscheidet sich der RTF Code des RichEdits vor und nach dem Speichern?

Lass doch mal auf Deinen RTF-Text "Wordpad.exe" los, einmal vor und einmal nach dem Speichern und schau Dir danach die RTF-Dateien mit "Notepad.exe" (oder einem Editor, der RTF-Dateien als plain TXT öffnen kann) an.

So ungefähr würde ich versuchen, dem Fehler auf die Schliche zu kommen.

HTH

[toms]

Zitat von hamburcher:

Zitat von toms:

Wie unterscheidet sich der RTF Code des RichEdits vor und nach dem Speichern?

Lass doch mal auf Deinen RTF-Text "Wordpad.exe" los, einmal vor und einmal nach dem Speichern und schau Dir danach die RTF-Dateien mit "Notepad.exe" (oder einem Editor, der RTF-Dateien als plain TXT öffnen kann) an.

So ungefähr würde ich versuchen, dem Fehler auf die Schliche zu kommen.

HTH

Ich meinte den RTF-Code vergleichen. Nicht den Output.

[GreenHorn3600]

Guten Morgen,

tja, wie vergleichen? Ich habe jetzt hier 3 Komponenten, wie TRichEdit oder TJvRichEdit und jedes Mal das gleiche Ergebnis. Vielleicht stelle ich mich auch nur blöd an . Denke von da her wäre es vielleicht ganz gut, ob jemand anderes das Problem auch nach vollziehen kann, ober ob das Problem vor dem Bildschirm sitzt (Greeny).

Herzlichen Dank
Greeny