@Perlsau
Wenn ich das machen sollte, dann würde mir spontan das hier einfallen
Delphi-Quellcode:
begin
PuP_Red_Normal.Checked := ( DBRichEd_Inhalt.SelAttributes.Style = [] );
PuP_Red_Fett.Checked := ( fsBold in DBRichEd_Inhalt.SelAttributes.Style );
PuP_Red_Kursiv.Checked := ( fsItalic in DBRichEd_Inhalt.SelAttributes.Style );
PuP_Red_ULine.Checked := ( fsUnderline in DBRichEd_Inhalt.SelAttributes.Style );
end;
Hab Dank, Sir Rufo, das ist unbestreitbar eleganter. Würde ich heute auch so machen. Der gepostete Code war aus einem älteren Projekt.