richedit schriftart/größe

[Bifi]

Jo Thx danke habs geschafft

Delphi-Quellcode:

procedure TMainForm.ToolButton11Click(Sender: TObject);
begin
  with TextFeld.SelAttributes do
  begin
    if Toolbutton11.Down then Style := [fsBold]
    else Style := Style - [fsBold];
  end;
end;