Einem Richedittext einen Font zuweisen

[Larsi]

Darf ich nochmal was ganz kurzes hinterherschieben? Wie kann man denn nur den makierten Text eines Richedits mit der Font ändern?

[edit=Sharky]Dieser Thread ist ab diesem Posting aus diesem hier hervorgegangen. Mfg, Sharky[/edit]

[mkinzler]

Schau dir mal RichEdit.SelAttributes an

[Die Muhkuh]

RichEdit.SelAttributes.Font

[Larsi]

da gibt es aber die .Font gar nicht. Also RichEdit.SelAttributes.Font geht nicht da kommt ein Fehler: [DCC Fehler] Unit1.pas(79): E2003 Undefinierter Bezeichner: 'font'

[mkinzler]

Der Font ist auch in seine Teilwerte zerlegt

[Sharky]

Zitat von Larsi:

Darf ich nochmal was ganz kurzes hinterherschieben? ...

Da gab es doch mal etwas mit: "Nur eine Frage pro Thread"

[Larsi]

Delphi-Quellcode:

if RichEdit1.SelAttributes = '' then
RichEdit1.Font.name  := Combobox1.Items.Strings[Combobox1.ItemIndex]
else
RichEdit1.SelAttributes.name  := Combobox1.Items.Strings[Combobox1.ItemIndex];

Wenn ich das jetut so mache kommen immernoch Fehler:
[DCC Fehler] Unit1.pas(79): E2010 Inkompatible Typen: 'string' und 'TTextAttributes'

Wie kann ich es denn machen, dass wenn nichts makiert ist, dann alles im Richedit durch die Font verändert wird?



Edit: Oh, oh, jetzt werde ich wohl getötet

[mkinzler]

Versuch mal
RichEdit1.SelAttributes.Name := ComboBox1.Text;

[Neutral General]

Hi,

SelAttributes ist ein Set. Ein leeres Set ist [].

Gruß
Neutral General

[Larsi]

Delphi-Quellcode:

if RichEdit1.SelAttributes = [] then
RichEdit1.Font.name  := Combobox1.Items.Strings[Combobox1.ItemIndex]
else
RichEdit1.SelAttributes.name  := Combobox1.Items.Strings[Combobox1.ItemIndex];

Geht auch nicht: [DCC Fehler] Unit1.pas(79): E2015 Operator ist auf diesen Operandentyp nicht anwendbar