Frage zu Fontdialog

[Thomas F]

Hallo,

wie mache ich es, damit ich in einem Richedit-Textfeld verschiedene Schriften und Farben einstellen kann ?

Delphi-Quellcode:

procedure TForm6.BitBtn1Click(Sender: TObject);
begin
if fontdialog1.execute
then richedit1.font:= fontdialog1.Font;
end;

.........mit diesem Code stimmt etwas nicht ganz
.....mit diesem Code wechselt immer der gesamte Text die Farbe und Schrift

[Matze]

Hallo,

schaue dir mal die SelAttributes-Eigenschaft des TRichEdits an:

Delphi-Quellcode:

RichEdit1.SelAttributes.Font := FontDialog1.Font;

Oder so ähnlich. ;)

Grüße, Matze

[Thomas F]

Danke

ich habs gefunden, so muß es heißen

Delphi-Quellcode:

.
.
.
Richedit1.SelAttributes.Name := FontDialog1.Font.Name; 
Richedit1.SelAttributes.Size := FontDialog1.Font.Size; 
Richedit1.SelAttributes.Style := FontDialog1.Font.Style;

[DeddyH]

Du kannst es auch mit

Delphi-Quellcode:

Richedit1.SelAttributes.Font.Assign(FontDialog1.Font);

versuchen ;)

[Thomas F]

Zitat:

Zitat von DeddyH

Du kannst es auch mit

Delphi-Quellcode:

Richedit1.SelAttributes.Font.Assign(FontDialog1.Font);

versuchen ;)

....das funktioniert bei mir nicht.

FEHLER

[mkinzler]

Zitat:

....das funktioniert bei mir nicht.

Und wie äussert das sich? Fehlermeldung?

[Thomas F]

Zitat:

Zitat von mkinzler

Zitat:

....das funktioniert bei mir nicht.

Und wie äussert das sich? Fehlermeldung?

Fehlermeldung:

TTextattributes hat kein Element namens 'Font' in Zeile........

Der zeigt bei mir hinter " Richedit1.SelAttributes" kein "Font" an

liegts an Delphi 2005 ?

[Matze]

So geht's:

Delphi-Quellcode:

if FontDialog1.Execute then
  RichEdit1.SelAttributes.Assign(FontDialog1.Font);

[Thomas F]

Zitat:

Zitat von Matze

So geht's:

Delphi-Quellcode:

if FontDialog1.Execute then
  RichEdit1.SelAttributes.Assign(FontDialog1.Font);

Jetzt ist kein Fehler mehr, aber es funktioniert nicht einwandfrei.

Manchmal stelle ich rote Farbe ein , und er schreibt trotzdem schwarz weiter, dann wieder funktioniert es.