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. 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 |
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:06 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz