Hallo,
ja und nein
im Standard-RichEdit kann man Wörter über CharFormat2(Konstanten: CFM_UNDERLINETYPE und CFU_UNDERLINEDOUBLE) doppelt unterstreichen, diese Formatierungen werden aber nur als normal unterstrichen dargestellt.
Speichert man nun einen mittels CharFormat2 formatierten Text mit
RichEdit.Lines.SaveToFile( werden die entsprechenden Formatierungen mit in die Datei geschrieben.
Das Formatieren funktioniert so:
In
uses RichEdit einbinden
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| procedure TForm1.Button1Click(Sender: TObject);
var frm : TCharFormat2;
begin
with RichEdit1 do
begin
SetFocus;
FillChar(frm, SizeOf(frm), 0);
with frm do
begin
cbSize := SizeOf(frm);
dwMask := CFM_UNDERLINETYPE;
bUnderlineType := CFU_UNDERLINEDOUBLE;
Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@frm));
end;
Lines.Add('Doppelt unterstrichen?');
Lines.SaveToFile('C:\temp\underline2.rtf');
end;
end; |
Öffnest man nun die erstellte rtf-Datei mit z.B. Word, sieht man das der Text doppelt unterstrichen ist.
Gausi
