Не работает изменение font.style

[ProgDel]

Привет всем. У меня такая проблема. Есть три кнопки SpeedButton, есть RichEdit. Значение AllowAllUp у всех трёх кнопок = true. Это что бы при клике они оставались в нажатом состоянии, а при следующем клике возвращались в исходное состояние. Назначение первой кнопки изменять RichEdit1.font.Stile := [fsBold] (полужирный шрифт), назначение второй RichEdit1.Font.Style := [fsItalic] (курсив), назначение третий RichEdit1.Font.Style :=[fsUnderline] (подчёркутый). Первая кнопка работает, а остальные нет! В чём причина?

procedure TForm1.SpeedButton11Click(Sender: TObject);
begin
if SpeedButton11.Down = true then RichEdit1.Font.Style := [fsBold]
else RichEdit1.Font.Style := fontdialog1.Font.Style;
end;

procedure TForm1.SpeedButton12Click(Sender: TObject);
begin
if SpeedButton12.Down = true then
richedit1.Font.Style := [fsItalic]
else RichEdit1.Font.Style := fontdialog1.Font.Style;
end;

procedure TForm1.SpeedButton13Click(Sender: TObject);
begin
if SpeedButton13.Down = true then
Richedit1.Font.Style :=[fsUnderline]
else RichEdit1.Font.Style := fontdialog1.Font.Style;
end;

end.

[Скандербег]

Быть не может.
Проведенные испытания показали, что и другие две кнопки отрабатывают как им и положено.
GroupIndex во всех кнопках в единицу установлены?

P.S. Что делает здесь FontDialog? Пользы от него никакой.

[ProgDel]

Нет у первой GroupIndex = 1 у второй 2 у третей 3. А FontDialog нужен для того что бы вернуть обратно обычный стиль шрифта.

[_SERGEYX_]

1. А ты задал всем трем кнопкам общий GroupIndex? Если нет - они не могут принимать Down.
2. Логичнее писать

 ... then RichEdit1.Font.Style := RichEdit1.Font.Style + [fsBold]

В догонку... Я тоже провел испытания. Все работает нормально.

[Скандербег]

Для того чтобы вернуть обычный стиль FontDialog не нужен. Достаточно присвоить "пустое" значение стиля:

  RichEdit1.Font.Style := [];

_SERGEYX_, автор сделал с GroupIndex то правильно (независимое поведение при включенном AllowAllUp), только "забыл", что стиль шрифта это set (множество) и ему надо присваивать стили так как вы показали.

[ProgDel]

А теперь всё работает! Парни спосибо!!!

procedure TForm1.SpeedButton11Click(Sender: TObject);
begin
if SpeedButton11.Down = true then
RichEdit1.Font.Style := RichEdit1.Font.Style + [fsBold]
else RichEdit1.Font.Style := [];
end;

procedure TForm1.SpeedButton12Click(Sender: TObject);
begin
if SpeedButton12.Down = true then
richedit1.Font.Style := richedit1.Font.Style + [fsItalic]
else RichEdit1.Font.Style := [];
end;

procedure TForm1.SpeedButton13Click(Sender: TObject);
begin
if SpeedButton13.Down = true then
Richedit1.Font.Style := richedit1.Font.Style + [fsUnderline]
else RichEdit1.Font.Style := [];
end;

end.

[_SERGEYX_]

Потому что на двух последних кнопках висит один и тот же код
if SpeedButton12.Down = true then
Может на третьей надо if SpeedButton13 ....
И вообще, переименуй кнопки
btnBold
btnItalic
btnUnderline
... и не будет таких казусов.

[Скандербег]

А если сделать так:

procedure TForm1.SpeedButton11Click(Sender: TObject);
begin
  if SpeedButton11.Down then
    RichEdit1.Font.Style := RichEdit1.Font.Style + [fsBold]
  else
    RichEdit1.Font.Style := RichEdit1.Font.Style - [fsBold];
end;

То цены бы такому коду не было .

[ProgDel]

Как сделать что бы при изменении стиля шрифта, стиль прежде написанного текста оставался прежним, а новый текст вновь заданным?

[_SERGEYX_]

К Delphi в придачу есть Демо. Найди там исходники RichEdit.
Обрати внимание в коде на SelAttributes.
Если разберешься - больше не будет вопросов со стилями текста.