Hallo!

Ich hab mein Programm mit einer Bold procedure erweitert, die wie foglt aussieht:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TTMPV.ToolButton14Click(Sender: TObject);
begin
ToolButton14.Down := true;
if ToolButton14.Down then
begin
TempVIewer.SelAttributes.Style:=TempViewer.SelAttributes.Style + [fsBold];
TempViewer.SetFocus;
end else
begin
TempVIewer.SelAttributes.Style:=TempVIewer.SelAttributes.Style - [fsBold];
TempViewer.SetFocus;
end;
end;

So soweit klappt das auch...nur weiß ich nit wirklich wie ich das schaffen soll den Button wieder auf
ToolButton14.Down := false; setzen kann... hat da jemand einen guten tipp??

EDIT: Im Moment habe ich die "Lösung" mit OnContextPopup...

markieren

Delphi-Quellcode:

procedure TTMPV.ToolButton14ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
ToolButton14.Down := false;
TempVIewer.SelAttributes.Style:=TempVIewer.SelAttributes.Style - [fsBold];
TempViewer.SetFocus;

end;

aber die hat ja den Nachteil das man jedes mal erst mit der rechten maustaste klicken muss...

Dein Button ist doch nicht nur eine Schaltfläche, die eine Aktion auslöst, sondern auch ein Indikator, der das Schriftattribut 'Bold' des selektierten Texts anzeigt.

Du musst also einerseits dem Knopf sagen, was er machen soll, wen er gedrückt wird (hast du schon gemacht), aber andererseits dem (nehme ich an: TRichMemo)-Control noch mitteilen, das es den Buttoni entsprechend der aktuellen Selektion darstellen soll.

ToolButton kenn Ich zwar nicht aber eventuell so
ToolButton.Down := not ToolButton.Down;

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.

markieren

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