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 ?