Einem Richedittext einen Font zuweisen

[mkinzler]

Delphi-Quellcode:

if RichEdit1.SelLength = 0

[Neutral General]

Stimmt, es ist gar kein Set :mrgreen: Sry :oops:

[Die Muhkuh]

Hi,

ich fasse mal kurz zusammen:

Du überprüft erst, ob überhaupt etwas ausgewählt ist per RichEdit.SelLength > 0. Wenn ja, dann kannst Du SelAttributes.Name := ComboBox1.Text setzen (Du brauchst hier nicht über Items.Strings[...] gehen).

Es muss nicht zwingend auf > 0 geprüft werden. > 0 bedeutet, dass Text ausgewählt ist und die Attribute nur auf den ausgewählten Text angewandt werden. Wenn nichts ausgewählt ist und Du es trotzdem zuweist, dann wird der Text, der dann an dieser Stelle getippt wird, mit den neuen Attributen "erstellt".

Falls Du es auch noch anders rum haben willst (also wenn Du versch. Textformatierungen verwendest und Du willst in der ComboBox die aktuell ausgewählte Schriftart auswählen), dann wäre die schlampige Lösung (die gute darfst Du Dir selbst erarbeiten :) ), dass Du mit einem Timer SelAttributes.Name ausliest und der ComboBox zuweist.

[alzaimar]

Zitat:

Zitat von Die Muhkuh

...die gute darfst Du Dir selbst erarbeiten :)...

Weil Du sie nicht kennst? :zwinker:

[Die Muhkuh]

Zitat:

Zitat von alzaimar

Zitat:

Zitat von Die Muhkuh

...die gute darfst Du Dir selbst erarbeiten :)...

Weil Du sie nicht kennst? :zwinker:

Ob meine Lösung gut ist, weiß ich auch nicht, aber ich nutze OnChange und Konsorten zum Aktualisieren der Attribute.