Жирный шрифт в richedit

[DimOn4Ik]

Помогите пожалуйста организовать жинрый шрифт в richedit..чтоб при нажании на картинку "B" шрифт становился жирным...

[Gerzs]

Жирний шрифт:

RichEdit1.Font.Style:=[fsBold];

[W0LF]

RichEdit1.Font.Style:=[fsBold];

неуспел =)

[DimOn4Ik]

спасибо подскажите как ещё цвет текста организовать?

[russian-stalker]

richedit1.Font.Color:=clred;

[DimOn4Ik]

не работает коновка жирный шрифт

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
with Sender as TSpeedButton,RichEdit1.SelAttribute s do
if Down then Style:=Style+[fsBold] else Style:=Style-[fsBold];
end;

подскажите пожалуйста что не правильно сделал

[russian-stalker]

Может так лучше:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
with richedit1.SelAttributes do
begin
if Style<>[fsBold] then
 Style:=Style+[fsBold] else
 Style:=Style-[fsBold];
end;
end;

[DomiNick]

Выделение в Richedit

[DimOn4Ik]

я просто хотел сделать кнопку вкл.\выкл. жирный шрифт

[psycho-coder]

procedure TForm1.Button1Click(Sender: TObject);
begin
  if RichEdit1.SelAttributes.Style = [fsBold] then
    RichEdit1.SelAttributes.Style := []
  else
    RichEdit1.SelAttributes.Style := [fsBold]
end;