|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
Корректная обработка TRichEdit.OnSelectionChange
Доброго всем времени суток!
Хочу по данному событию переводить ToolButton в состояние Down:=true, при условии, что у RichEdit'а SelAttributes.Style = TControl(TToolButton).Name Если Style = [fsBold] или же [fsItalic], то всё работает! А если Style = [fsBold,fsItalic] (и т.п.), то кнопки не реагируют! Что посоветуете, уважаемые? |
#2
|
|||
|
|||
Вы, видимо, что-то не так делаете. Попробуйте так:
Код:
procedure TForm1.RichEdit1SelectionChange(Sender: TObject); begin ToolButton1.Down := (fsBold in RichEdit1.SelAttributes.Style); // bold button ToolButton2.Down := (fsItalic in RichEdit1.SelAttributes.Style); // italic button end; |
#3
|
||||
|
||||
СПАСИБО! :)
Правда, я к тому времени уже сам додумался, в чём проблема... Я использовал метод сравнения, вместо проверки на принадлежность (забыл про in, однако!). Но всё равно, благодарю за ответ, ибо он окончательно убедил меня, что я на верном пути!
|