"Umschaltbutton" zu Textformatierung

[Dunkelbunt27]

Hallo liebe Delphi Praxis,
ich suche nach einer guten Idde, wie man folgendes Problem lösen kann:

Ich habe eine RichEit Box und einen 'Fett Button', der wie der Name schon sagt den markierten Text fett macht.

Delphi-Quellcode:

procedure TForm1.SpeedButton8Click(Sender: TObject);
begin
RichEdit1.SelAttributes.Style := [fsBold];
speedbutton8.flat := True;
end;

Ich möchte jetz wie in Word, dass wenn man den Button ein zweites mal klickt Flat wieder auf False gesetzt wird und der Stil wieder normal ist, sprich der Text nicht mehr fett ist.

2) Wie funktioniert es bei einer Reihe von Buttons z.b. [F] [K] [Unt]
sie haben nur die Funktion den Style des markierten Textes

Delphi-Quellcode:

RichEdit1.SelAttributes.Style := [fsBold];

in fett, kursiv, unterstrichen zu ändern.
ich möchte aber, wenn man alle Buttons drückt, dass nicht immer das letzte Attribut überschrieben wird. Also es passiert folgendes, der Text wird erst fett, dann kursiv, dann unterstrichen und nicht gleichzeitig .
Wie ist das zu lösen?

Ich freue mich auf die antworten =)

LG Dunkelbunt

[DataCool]

Hi,

wenn ich Dich richtig verstanden habe suchst Du das :

Delphi-Quellcode:

  // Style hinzufügen
  RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.Style + [fsBold];
  // oder
  // Style entfernen
  RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.Style - [fsBold];

Greetz Data

[shmia]

Just for Info:
Unter C:\Programme\Borland\Delphi5\Demos\RichEdit gibt es einen kompletten Richttext-Editor.
Da lässt sich Vieles abschauen.

[Dunkelbunt27]

Danke für die Tipps!
Ich probiers aus und melde mich wieder. =)

EDIT:
Alles geklappt, die Demo ist ne gute Hilfe, kann ich nur empfehlen... Danke!