Textstyle verändern

Schmidti · Beiträge: 17 Win 2000 Prof., WIN XP Rrof. D7

Hallo!

Ich habe ein Textfeld von TRichEdit und will den dortigen Text mit einzelnen Button vom Style her verändern. Wenn ich nun mit

markieren

Delphi-Quelltext

1:	Textfenster(ActiveMDIChild).Textfeld.SelAttributes.Style:=[fsbold];

den Schriftzug fett mache, geht alles. Nun will ich ihn aber noch unterstreichen. Problem: Das fette geht weg. Was muss ich machen, damit dies nicht passiert? Ich weiß ja vorher nicht, welches sytle der Text schon hat!

MfG

.Chef · Beiträge: 1112

Du verbindest den bisherigen Style und deinen neuen mit or.

Gruß,
Jörg

_________________
Die Antworten auf die 5 häufigsten Fragen:
1. Copy(), Pos(), Length() --- 2. DoubleBuffered:=True; --- 3. Application.ProcessMessages bzw. TThread --- 4. ShellExecute() --- 5. Keine Vergleiche von Real-Typen mit "="!

Schmidti · Beiträge: 17 Win 2000 Prof., WIN XP Rrof. D7

Hallo!

Und wie lese ich den bisherigen Style aus?

MfG

.Chef · Beiträge: 1112

markieren

Delphi-Quelltext

1:	if (Style and fsBold) > 0 then ...

_________________
Die Antworten auf die 5 häufigsten Fragen:
1. Copy(), Pos(), Length() --- 2. DoubleBuffered:=True; --- 3. Application.ProcessMessages bzw. TThread --- 4. ShellExecute() --- 5. Keine Vergleiche von Real-Typen mit "="!

Coder · Beiträge: 1383 Erhaltene Danke: 1 WinXP D2005 PE

?
Also ich hab das jetzt mit RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.Style + [fsBold]; gemacht. Ist da was falsch dran oder geht das auch einfacher?

.Chef · Beiträge: 1112

Bis auf dass du den "Zug" von Bezeichnern bei Mehrfachnutzung mit Hilfe von with ansprechen kannst, ist es ok.

_________________
Die Antworten auf die 5 häufigsten Fragen:
1. Copy(), Pos(), Length() --- 2. DoubleBuffered:=True; --- 3. Application.ProcessMessages bzw. TThread --- 4. ShellExecute() --- 5. Keine Vergleiche von Real-Typen mit "="!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme