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
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