BoldButton (Anfänger)

[Moritz Höppner]

Ich hab ein Text Editor geschrieben, wo ich einen Button "Fett" eingefügt habe, und in das onClick Ereignis RichEdit->Font->Style << fsBold geschrieben habe. Nur dann passiert gar nichts, wenn ich den Button anklicke. Wo liegt der Fehler?
Danke im Vorraus!
Moritz Höppner

[Christian Marquardt]

Bisssschen wenig Infos.

Die Änderungen im Stil eines Textes wirken sich nur auf selektiertem Text aus oder auf Text der dann neu eingefügt wird.

Vielleicht ist es das

[Mario.Noack]

Bei Delphi ist eine Demo zum RichEdit dabei und die Hilfe geht eigentlich auch recht gut drauf ein. Das dürfte beim Builder kaum anders sein.<p>
Grüße, Mario Noac

[Christian Marquardt]

Dann schau doch mal in die Demo und teile uns mit, wie es dort gemacht wird

[Mario.Noack]

<pre class="sourcecode"><code>
<b>function</b> TMainForm.CurrText: TTextAttributes;
<b>begin</b>
<b>if</b> Editor.SelLength &gt; 0 <b>then</b> Result := Editor.SelAttributes
<b>else</b> Result := Editor.DefAttributes;
<b>end</b>;

<b>procedure</b> TMainForm.BoldButtonClick(Sender: TObject);
<b>begin</b>
<b>if</b> FUpdating <b>then</b> Exit;
<b>if</b> BoldButton.Down <b>then</b>
CurrText.Style := CurrText.Style + [fsBold]
<b>else</b>
CurrText.Style := CurrText.Style - [fsBold];
<b>end</b>;

</code></pre><p>
Das sollte das gesuchte sein.<p>Schöne Grüße, Mario Noac

[Christian Marquardt]

Tja, kenne zwar Delphi nicht, aber es scheint so, als ob nur der zukünfige Text bold wird und nicht der bisherige.

Hier passiert eigentlich nix, außer das der aktuelle Stil auf bold gesetzt wird:

if BoldButton.Down then

CurrText.Style := CurrText.Style + [fsBold]
else

CurrText.Style := CurrText.Style - [fsBold];

Ich glaube kaum, dass der Button bei Druck den bisherigen Text bold darstellt außer er ist selektiert. Wäre auch ungewöhnlich. Ich sagte ja auch nur, dass bei der Ausgangsfrage ein bissschen wenig Infos sind. Was bedeutet es passiert nichts??? Wird der neu geschriebene Text nicht bold?? Wird selektierter Text nicht bold? Ohne ein bissschen Code ist das schlecht.
&#10

[Moritz Höppner]

In der Hilfe und der Demo sind ähnliche Beispiele, aber funktionieren tuen sie alle nicht. Ich hab' aber jetzt herausgefunden wie es geht: RichEdit->Font->Style = FontDialog->Font->Style << fsBold;
trotzdem Danke