Ich verwende eine RichEdit und möchte dem
BOLD Button folgendes zuweisen:
Delphi-Quellcode:
procedure TForm2.ToolButton18Click(Sender: TObject);
begin
if ToolButton18.Down then
RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style + [fsBold]
else
RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style - [fsBold]
end;
zusätzlich gebe ich dem OnChangeSelection des RichEdit folgende Procedure:
Delphi-Quellcode:
procedure TForm2.RichEdit1SelectionChange(Sender: TObject);
begin
if fsBold in Richedit1.SelAttributes.Style then
begin
ToolButton18.Down:=true;
end else
begin
ToolButton18.Down:=false;
end;
end;
Aber es wird weder der
BOLD button auf Down gesetzt noch wird irgendein effekt erzeugt, der mit BOLD zu tun hat. Das Programm startet ohne Fehler. Bis auf die Sache, dass das
BOLD nicht funzt. PLEASE HELP!!