![]() |
RichEdit Font
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:
Ich möchte aber nicht den gesamten Richedit gleich formatieren sondern nur den ausgewählten Text
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; Mit FontDialog ist einfach :
Delphi-Quellcode:
Wie kann ich mit speedbutton genauso machen ?
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; |
Re: RichEdit Font
Anstatt Font.Style nimmst Du SelAttributes.Style
|
Re: RichEdit Font
Zitat:
|
Re: RichEdit Font
Zitat:
Es bleibt das Problem mit Ausrichten. Es funktioniert nicht :
Delphi-Quellcode:
procedure TForm2.SpeedButton5Click(Sender: TObject);
begin RichEdit1.Alignment:= taCenter; |
Re: RichEdit Font
Hi,
such doch einfach mal hier im Forum nach dem, was du willst. ![]() MfG Benedikt |
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:39 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz