Bold Button wieder deaktivieren?

[marabu]

Moin,

so geht's: Der Style des ToolButton wird auf tbsCheck gesetzt, eventuell AllowAllUp noch auf True und die Eigenschaft Down wird nur noch gelesen.

Delphi-Quellcode:

procedure TTMPV.ToolButton14Click(Sender: TObject);
begin
  with TempViewer.SelAttributes do
  begin
    if (Sender as TToolButton).Down
      then Style := Style + [fsBold]
      else Style := Style - [fsBold];
    SetFocus;
  end;
end;

Grüße vom marabu