verschiedene schriften im selben control

[sancho1980]

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

danke,

martin

[EDatabaseError]

TRichEdit

[xaromz]

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

[sancho1980]

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

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:

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

[Flocke]

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

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.

[sancho1980]

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

[fwsp]

#13#10 CRLF

[stz]

Zitat von fwsp:

#13#10 CRLF

Oder
sLineBreak geht glaub ich erst ab Delphi6

Gruß
Malte