Hallo!
Ich hab mein Programm mit einer Bold procedure erweitert, die wie foglt aussieht:
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...
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...