Rich.DefAttributes

[Moin]

Hi alle zusammen !

ich will in meinem RichEdit-Texteditor die schriftart über eine combobox regeln(geht auch) und, wenn kein text markiert ist, die schriftart als standart für die Rich übernehmen (also für den text, der erst geschrieben wird) -> mein problem besteht darin, dass die gesamte Rich dann nach dieser Schriftart formatiert (ich hoffe man kann mir folgen).

Mein Versuch:

Delphi-Quellcode:

FUNCTION TEditor.TextFont: TTextAttributes;
begin
    begin
    if Rich.SelLength > 0 then Result := Rich.SelAttributes
    else Result := Rich.DefAttributes;
    end;
end;

Delphi-Quellcode:

  TextFont.Name:=  Combobox.Text;{Schriftart}

THX für eure Vorschläge!