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.