Problem TRichedit, SelAttributes.style, Windows 7

[stalkingwolf]

Hallo und Danke

Aktuell keine Ahnung. Ich hoffe doch nicht.
Wollte fix den Code noch nachliefern.

Code:

procedure setfontstyle(state: boolean; Fontstyle: TFontStyle);
begin
    if state then
        rParameter.SelAttributes.Style := rParameter.SelAttributes.Style + [Fontstyle]
    else
        rParameter.SelAttributes.Style := rParameter.SelAttributes.Style - [Fontstyle]
end;

Interessanterweise funktioniert
rparameter.SelAttributes.Size
und
rparameter.SelAttributes.name
einwandfrei.