Ich möchte mit dem folgenden Code bewirken, dass enweder der ausgewählte Text oder der gesamte Text fett-gedruckt wird. Ich habe einen tbscheck benutzt um den jeweiligen Status anzuzeigen. Der Code funktioniert aber nicht. Warum nicht?
Delphi-Quellcode:
procedure TForm2.ToolButton12Click(Sender: TObject);
begin
mark := richedit1.seltext;
if Toolbutton1.Down then
begin
if mark = '' then richedit1.Font.Style := richedit1.font.style + [fsbold];
if mark <> '' then richedit1.SelAttributes.style := richedit1.font.style + [fsbold];
end
else
begin
if mark = '' then richedit1.font.Style := Richedit1.font.style - [fsbold];
if mark <> '' then richedit1.SelAttributes.style := richedit1.Font.style -[fsbold];
end;
end;
Schon einmal DANKE im Voraus!!
[edit=Matze][delphi]-Tag repariert. MfG, Matze[/edit]