Font

[Killbrum]

Всем доброго времени суток!
Вот у меня возник такой вопросик. Вот мне надо например чтоб когда я нажымал на кнопку у меня +Bold к шрифту. Ну я плохо выразилса.... вобшем:

procedure TForm1.SpeedButton8Click(Sender: TObject);
begin
RE.Font.Style:=RE.Font.Style+[fsBold];
end;

А как мне зделать чтоб при повторном нажатие на кнопку было:

procedure TForm1.SpeedButton8Click(Sender: TObject);
begin
RE.Font.Style:=RE.Font.Style-[fsBold];
end;

? Ну вобшем чтоб при повторном нажатие на кнопку убиралса жырный шрифт? Я пробовал через Дабл Клик - ничего не вышло. Поставил на разные кнопки - работает, но мне надо на одной :Р.
Зарание очень благодарен

[Killbrum]

Ой сори. Плиз если ещо можна как зделать так чтобы Жырный, Курсив, подчеркнутый и т.д. делалось токо в том месте где я выделил мышкой. Ещо раз спасибо

[mihali4]

Открываем у себя на компьютере каталог ...Borland\Delphi7\Demos\RichEdit и безмерно удивляемся - оказывается, программисты Борланда специально приложили пример использования РичЭдита для текстового редактора. Ай да молодцы!

[Serge_Bliznykov]

проверить можно так:

  if (fsBold in RE.Font.Style) then
    {болд - тогда ставим курсив - 
      а остальное форматирование убираем}
     RE.Font.Style := fsItalic 
  else
    if (fsItalic in RE.Font.Style) then
       RE.Font.Style := fsUnderline
    else 
      if (fsUnderline in RE.Font.Style) then
         RE.Font.Style := fsStrikeOut
      else
         RE.Font.Style := fsBold;

так форматирование будет по кругу переключаться одной кнопкой!

[Killbrum]

Пасибо за помощ