ja hört sich gut an Stream basteln rein mit den Daten und wieder raus in die Richedit...
und schon probiert ...
Zeilen zusammensetzten mit Formatierung versehen in einen TStringStream schreiben. Wenn fertig komplett vom Stream in RichEdit laden. Ich mache da irgendetwas falsch die Formatierung wird so nicht genommen es werden wieder die '\ durch doppelt '\\ ersetzt. (Der Code ist nur mal quick & dirty zusammengenagelt)
das Ergebniss ist alles in schwarz und meine \par \cf1 wieder mit doppelten '\\' und damit keine Formatierung im RTF
da fehlt mir das Wissen wie das in den RTF gespeichert wird und wie die Komponente arbeitet.
Danke für Eure Ideen.
Gruss Nick
Delphi-Quellcode:
procedure TFmain.TntButton_generate_ReportClick(Sender: TObject);
Var i,j : Integer;
st1,st2 :
String;
StrS : TStringStream;
col : Tcolor;
begin
StrS := TStringStream.Create('
');
j := ListBox_HEX.Items.Count - 1;
// st1 := '{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Courier New;';
// StrS.WriteString(st1);
// st1 := '{\colortbl ;\red255\green0\blue0;\red0\green0\blue255;';
// StrS.WriteString(st1);
st1 := '
\viewkind4\uc1\pard\b\f0\fs16 Report';
StrS.WriteString(st1);
try
for i:= 0
to j
do Begin
st1 := ListBox_HEX.Items[i];
col := TColor(ListBox_HEX.Items.Objects[i]);
case col
of
clRED : st2 := '
\par \cf1 ';
clBLUE : st2 := '
\par \cf2 ';
end;
StrS.WriteString(st2);
StrS.WriteString(st1);
end;
StrS.Position := 0;
RichEdit1.Lines.LoadFromStream(StrS);
finally
StrS.Free;
end;
end;