В рассматриваемом Примере демонстрируется использование стандартных функций инструмента ToolBar, применяемого для определения значений Свойств: FontName, FontSize, FontBold, FontItalic, ForeColor, BackColor, которые  могут принадлежать различным Контролам на Форме.

Указанный инструмент tbrEditing описывается в Библиотеке : ...\Samples\Classes\Samples.vcx. Свойство с именем nAppliesTo содержит имена допустимых базовых Классов, для которых могут быть определены перечисленные выше свойства (характерисктики Шрифта), Все Текстовые боксы и области Редактирования на Форме, или все контролы на Форме. Для определения указанных свойств может использоваться либо код Солбытия InteractiveChange или события Click рассматриваемой текущей Кнопки ToolBar. Далее приводится примерный программный код События Click для командной кнопки cmdBold (переключение характеристики шрифта: Жирный/Обычный):

Копировать Код

IF TYPE("_SCREEN.ActiveForm") = 'O' oForm = _SCREEN.ActiveForm ELSE RETURN ENDIF DO CASE CASE THIS.Parent.nAppliesTo = 1 && Current Control oForm.ActiveControl.FontBold = THIS.Value CASE THIS.Parent.nAppliesTo = 2 && Text and edit boxes oForm.SetAll('FontBold', THIS.Value, 'TEXTBOX') oForm.SetAll('FontBold', THIS.Value, 'EDITBOX') CASE THIS.Parent.nAppliesTo = 3 && All Controls oForm.SetAll('FontBold', THIS.Value) ENDCASE

Для события активации фокуса: GotFocus, соответствует одна строка программного Кода. Каждое соответствующее событие GotFocus содержит указанную командную строку:

	Копировать Код
THISFORMSET.tbrEditing.Refresh(THIS)

Метод Refresh набора инструментов Форматирования tbrEditing обновляет отображение изменяемого Контрола, который передается в рассматриваемый Метод по-ссылке, как активный, текущий параметр.

Задачи

Описание

Другие ссылки