RichEdit Formatierung:

[Störtebeker]

Hallo,

Ich weiß, dass es schon Threads in ähnlicher Richtung gibt und daher tut es mir erstmal leid, dass ich jetzt nochmal ein Thread dafür verschwenden muss. Nur haben sich diese Threads entweder auf einen Button oder auf das formatieren vorbestimmer Wärter gerichtet.

Aber folgendes:

Ich habe eine Combox, wo ich über:

Delphi-Quellcode:

begin
  RichEdit1.Font.Name:='Arial';
  ComboBox1.Items:= Screen.Fonts;
end;

im OnCreate Ereignis der Form die Schriften in die Combobox lade. Mit dem Ergebnis, dass sich mit

Delphi-Quellcode:

begin
RichEdit1.Font.Name:=ComboBox1.Items[ComboBox1.ItemIndex];
end;

im OnChange Ereignis der Combobox der gesamte Text ändert. Nun wollte ich es aber so, dass nur das formatiert wird, was auch makiert ist. Sei es ein einzelnes Zeichen oder ein ganzes Wort.

In der Delphi-Hilfe (die ich auch zu Rate gezogen habe), stand was von

property SelAttributes: TTextAttributes; den OnChange Code habe ich dann wie folgt geändert:

Delphi-Quellcode:

var SelAttributes: TTextAttributes;
begin
RichEdit1.Font.Name:=ComboBox1.Items[ComboBox1.ItemIndex];
end;

So und da stockt es leider bei mir. Ich glaube ich muss irgendwas mit If machen. Die Frage ist nur, was.
Wie realisierbar?

Thx.

P.S.: Bitte nicht rummeckern, es gäbe schon viele Threads, die sich mit der Formatierung beschäftigen.