Fontdialog einstellen auf Formatierung des markierten Textes

tortom1000 · Verfasst: Fr 16.12.05 13:24

Hi,

ich habe in einem RichEdit eine Möglichkeit zur Textformatierung eingebaut in der Form:

Delphi-Quelltext

1:	if FontDialog1.Execute then DBRichEdit1.SelAttributes.Assign(FontDialog1.Font);

Das funktioniert soweit auch ganz gut. Nun möchte ich aber, das sich der FontDialog1 auf die Formatierungsmerkmale des markierten Textes einstellt. Ich meine, wenn der Text eine 14 Fontgröße hat, dann sollte sich derFontdialog1 auch auf die 14'er Schriftgröße einstellen. Gleiches auch mit den anderen Textattributen. (Tatsächlich zeigt er immer die letzte Einstellung an unabhängig von der Markierung.)

Wie stellt man das an?

Gruß
Tom

Moderiert von Tino: Delphi-Tags hinzugefügt.
Moderiert von Tino: Überflüssige Zeilenumbrüche entfernt.´

Martin1966 · Beiträge: 1068 Win 2000, Win XP Delphi 7, Delphi 2005

Das ist ganz einfach: ;-)

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

FontDialog1.Font.Name := RichEdit1.SelAttributes.Name;
FontDialog1.Font.Size := RichEdit1.SelAttributes.Size;
FontDialog1.Font.Color := RichEdit1.SelAttributes.Color;
FontDialog1.Font.Charset := RichEdit1.SelAttributes.Charset;
FontDialog1.Font.Style := RichEdit1.SelAttributes.Style;

if FontDialog1.Execute then
begin
  RichEdit1.SelAttributes.Name := FontDialog1.Font.Name;
  RichEdit1.SelAttributes.Size := FontDialog1.Font.Size;
  RichEdit1.SelAttributes.Color := FontDialog1.Font.Color;
  RichEdit1.SelAttributes.Charset := FontDialog1.Font.Charset;
  RichEdit1.SelAttributes.Style := FontDialog1.Font.Style;
end;

Lg Martin

_________________
Ein Nutzer der Ecke ;-)

tortom1000 · Verfasst: Fr 16.12.05 14:02

Dank Dir.
Funktioniert astrein....

Viele Grüße und Frohe Weihnachten
Tom

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme