Bei mir scheint Delphi nicht mit den verschiedenen Gedrückt-Phasen des Buttons zurechtzukommen. Deswegen hat es bei mir auch nicht mit der Änderung des Styles geklappt da aus welchem Grund auch immer den Down-Zustand nicht erkannt habt ich habe das Problem nun mit folgendem Quelltext gelöst:
Delphi-Quellcode:
procedure TForm2.ToolButton12Click(Sender: TObject);
var SelStart, SelLength: Integer;
begin
mark := RichEdit1.SelText;
SelStart := RichEdit1.SelStart;
SelLength := RichEdit1.SelLength;
if mark = '' then RichEdit1.SelectAll;
if s = false then s2:= true;
if s = true then s2 := false;
if s2 then RichEdit1.SelAttributes.Style := RichEdit1.Font.Style + [fsbold];
if not s2 then RichEdit1.SelAttributes.Style := RichEdit1.Font.Style - [fsbold];
RichEdit1.SelStart := SelStart;
RichEdit1.SelLength := SelLength;
s := s2;
end;
Aber Trotzdem Danke für deine Mühe
P.S: Das ist zwar eine wirklich komplizierte Lösung aber scheint endlich zu funktionieren und ich habe endlich begriffen wie man gescheit Quelltext posted
