gibt es irgendein control, in dem ich text wie in ein memo schreiben kann, aber das gleichzeitig verschiedene fonts (farben, style) verwendet?

danke,

martin

TRichEdit

Hallo,

Zitat von sancho1980:

gibt es irgendein control, in dem ich text wie in ein memo schreiben kann, aber das gleichzeitig verschiedene fonts (farben, style) verwendet?

Ja, gibt es: Das TRichEdit.

Gruß
xaromz

cool
aber irgendwie läuft das net so wie ich mir das vorstelle:

markieren

Delphi-Quellcode:

self.TntRichEdit1.DefAttributes.Color := clRed;
self.TntRichEdit1.Lines.Add('rot');
self.TntRichEdit1.SelAttributes.Color := clGreen;
self.TntRichEdit1.Lines.Add('grün');

Soweit so gut, aber ich will beispielsweise zwei verschiedene Fonts auch mal in der gleichen Zeile haben, also versuchte ich:

markieren

Delphi-Quellcode:

self.TntRichEdit1.DefAttributes.Color := clRed;
self.TntRichEdit1.Text := 'rot';
self.TntRichEdit1.SelAttributes.Color := clGreen;
self.TntRichEdit1.Text := self.TntRichEdit1.Text + ' grün';

Jetz is aber alles grün

Arbeite nicht mit .Lines[] oder .Text, denn damit verarbeitest du immer nur reinen Text. Suche im Forum nach Beispielen zu SelStart, SelLength, SelText und SelAttributes - damit manipulierst du den jeweils ausgewählten Text. Mit

markieren

Delphi-Quellcode:

RichEdit1.SelStart := SendMessage(RichEdit1.Handle, EM_LINEINDEX, LineNo, 0);
RichEdit1.SelLength := SendMessage(RichEdit1.Handle, EM_LINELENGTH, RichEdit1.SelStart, 0);

kannst du jeweils eine ganze Zeile markieren und danach mit SelAttributes für diese Auswahl die Attribute ändern.

Ok, wenn ich den text über die Eigenschaft 'Text' anspreche, wie ist dann das Steuerzeichen, um eine neue Zeile anzufangen?

#13#10 CRLF

Zitat von fwsp:

#13#10 CRLF

Oder
sLineBreak geht glaub ich erst ab Delphi6

Gruß
Malte