Fonteigenschaften von RichEdit

[DelTurbo]

Hi,

ich versuche in einem RichEdit objekt (ist ReadOnly) den Font (Name,Size,Style) zu ändern. In diesem RichEdit werden fabrige statusmeldungen ausgegben. Wenn ich folgendes mache gehen alle farben verloren, von den sachen die schon ausgegben wurden.

Code:

RichEdit.Font:=FontDialog.Font;

Nun habe ich schon hier im board gesucht und folgendes gefunden.

Code:

      with MessagesOut do begin
         cp:=CaretPos;
         SelectAll;
         with SelAttributes do
         begin
           Name := FontDialog.Font.Name;
           Size := FontDialog.Font.Size;
           Style:= FontDialog.Font.Style;
         end;
         ClearSelection;
         CaretPos:=cp;
       end;

Dabei gehen zwar nicht die farben verloren, (Name,Size und Style stimmen) aber wenn danach text im RichEdit ausgeben wird stimmt, der Style nicht. FontTyp und Size stimmen. Nur der Style nicht. Was mache ich falsch?

Danke im voraus

EDIT: Das mit dem Style ist gelöst. Hatte total vergessen das ich den setze. Wenn ein fehler ausgeben wird stelle ich den auf Bold. *boing*

Trotzdem würde mich interessieren ob ich es so richtig mache? Oder ob es noch eine andere möglichkeit gibt.