RichEdit Font

[thomas2009]

Hallo
ich möchte zusätzliche Buttons (speedbuttons) erstellen, um den gewählten Text schnell zu formatieren. Mit FontDialog kann ich den Text in Richedit teilweise formatieren
Mit dem Button kann ich nur den gesamten Text formatieren

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if SpeedButton1.down then begin
RichEdit1.Font.Style :=RichEdit1.Font.Style+[fsbold];end else begin
RichEdit1.Font.Style :=RichEdit1.Font.Style-[fsbold];end;
end;

Ich möchte aber nicht den gesamten Richedit gleich formatieren sondern nur den ausgewählten Text

Mit FontDialog ist einfach :

Delphi-Quellcode:

begin

FontDialog1.Font.Name := Richedit1.SelAttributes.Name;
FontDialog1.Font.Size := Richedit1.SelAttributes.Size;
FontDialog1.Font.Style := Richedit1.SelAttributes.Style;
...

FontDialog1.Execute;

Richedit1.SelAttributes.Name := FontDialog1.Font.Name;
Richedit1.SelAttributes.Size := FontDialog1.Font.Size;
Richedit1.SelAttributes.Style := FontDialog1.Font.Style;
...

end;

Wie kann ich mit speedbutton genauso machen ?