Zitat von
HTML04:
Bei mir tut sich aber leider immer noch nichts bei klick auf den Button
Bei mir geht's bis zu einer bestimmten Situation richtig. Hat man den Stil bei markiertem Text geändert, dann ändert sich dieser bei unmarkiertem nicht mehr.
Mit folgendem Code klappt's nun bei mir halbwegs.
Zugegeben, das erscheint mir ein wenig umständlich, aber etwas besseres fällt mir nicht ein, nur irgendwas stimmt mit den Zeilenumbrüchen nicht.
Delphi-Quellcode:
procedure TForm1.ToolButton1Click(Sender: TObject);
var
mark: string;
SelStart, SelLength: Integer;
begin
mark := RichEdit1.SelText;
SelStart := RichEdit1.SelStart;
SelLength := RichEdit1.SelLength;
if mark = '' then
RichEdit1.SelectAll;
if Toolbutton1.Down then
RichEdit1.SelAttributes.Style := RichEdit1.Font.Style + [fsbold]
else
RichEdit1.SelAttributes.Style := RichEdit1.Font.Style - [fsbold];
RichEdit1.SelStart := SelStart;
RichEdit1.SelLength := SelLength;
end;
Im Anhang eine Demo.