RichEdit Font Probleme

[Jasmine]

Hallo Liebe Delphi Freunde,

ich habe mal wieder ein Problem und finde trotz Suche keine Lösung.

Ich möchte bei einem TRichEdit verschiedene Zeilen mit verschiedenen Font
Attributen ändern. Also ich schreibe zeilenweise ins RichEdit mit
.Lines.Add('')
Nun möchte ich jedoch zum Beispiel die erste Zeile in fett und rot,
die 8. Zeile in kursiv und blau, usw. setzen können.

Mit Sel.Attributes komme ich irgendwie nicht klar.
.SelAttributes.Color:=clRed;
geht zwar, jedoch bekomme ich die Styles nicht hin, zB :=fsBold ...

Gibt es nicht eine einfache Lösung um zeilenweise die Font Eigenschaften zu ändern ?

Vielen Dank für Eure Mühe und Gedult mit mir

Jasmine

[Matze]

Hallo Jasmine!

Was anderes als immer "SelAttributes", "Add", SelAttributes", "Add" wüsste ich gerade nicht. "Fett" stellt man den Text so dar:

SelAttributes.Style := [fsBold]; Kombinieren tut man die Styles so:

SelAttributes.Style := [fsBold,fsItalic,fsUnderline,fsStrikeOut];

[marabu]

Ciao Jasmine,

Zitat von Jasmine:

Gibt es nicht eine einfache Lösung um zeilenweise die Font Eigenschaften zu ändern ?

ist doch gar nicht so schwer:

Delphi-Quellcode:

var
  i: integer;
begin
  with RichEdit do
  for i := 0 to Lines.Count - 1 do begin
    // start of line i
    SelStart := Perform(EM_LINEINDEX, i, 0);
    // select full line
    SelLength := Length(Lines[i]);
    // use random attributes
    if Odd(Random(2))
      then SelAttributes.Style := [fsBold]
      else SelAttributes.Color := clRed;
  end;
end;

Grüße vom marabu

[Jasmine]

Vielen, vielen Dank an Euch !

Klappt nun, wie ich es wünschte.



Jasmine