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 ?

[Die Muhkuh]

Anstatt Font.Style nimmst Du SelAttributes.Style

[Luckie]

Zitat von thomas2009:

Wie kann ich mit speedbutton genauso machen ?

Du hast dir die beiden Codeausschnitte nicht wirklich angeguckt und versucht zu verstehen oder?

[thomas2009]

Zitat von Die Muhkuh:

Anstatt Font.Style nimmst Du SelAttributes.Style

Thanks. Das war's : )

Es bleibt das Problem mit Ausrichten. Es funktioniert nicht :

Delphi-Quellcode:

procedure TForm2.SpeedButton5Click(Sender: TObject);
begin
RichEdit1.Alignment:= taCenter;

[Benedikt]

Hi,

such doch einfach mal hier im Forum nach dem, was du willst. RichEdit und Alignment. Und siehe da, du wirst allerorten darauf stoßen, dir einfach mal die RichEdit-Demo im Demos-Ordner von deinem Delphi anzugucken - da ist das verwirklicht

MfG Benedikt