Richedit Zeile mit teilweise farbigen Wörtern hinzufügen!

[Kidix]

Hi,


ich kann ja mit

Delphi-Quellcode:

richedit1.Lines.add('Meldung: Bitte CD-Rom Laufwerk öffnen');

eine Zeile im Richedit hinzufügen.

Jetzt möchte ich aber, dass Meldung in Rot dargestellt wird. Wie mache ich das?

Kidix

[lizardking]

Zitat:

Zitat von Kidix

Jetzt möchte ich aber, dass Meldung in Rot dargestellt wird. Wie mache ich das?

Hm. Auf jeden Fall geht es so :

Delphi-Quellcode:

richedit1.SelStart := richedit1.GetTextLen;
richedit1.SelAttributes.Color := clred;
richedit1.Lines.Add('test');

Ist nur die Frage, ob das die einzige und vor Allem die eleganteste Loesung ist :?

[Kidix]

ja aber so füge ich eine komplette rote zeile ein...ich möchte nur "Meldung:" rot haben!

[lizardking]

Zitat:

Zitat von Kidix

ja aber so füge ich eine komplette rote zeile ein...ich möchte nur "Meldung:" rot haben!

Dann z.B. so :

Delphi-Quellcode:

str1 := ('Meldung : ');
str2 := ('Bitte CD-Rom Laufwerk öffnen');
richedit1.Lines.Add(str1+str2);
richedit1.SelStart := richedit1.GetTextLen-(length(str1+str2)+2);
richedit1.SelLength := length(str1);
richedit1.SelAttributes.Color := clred;

Die beiden Stringvariablen hab ich mal nur benutzt, um die Berechnung fuer SelStart und SelLength zu veranschaulichen. Die "+2" beim SelStart kommt durch das CRLF am Ende der Zeile zustande.

[Kidix]

danke