Счетчик и переключатели формы VFP

Счетчик SpinnerColumnNumber употребляется для задания номера сортируемого столбца. Чтобы избежать ошибок ввода номера, нижняя и верхняя граница счетчика задаются в обработчике события Init формы ArrayShow соответственно равными 1 и n, где n – число столбцов отображаемого массива.

Переключатели, задающие направление сортировки выбранного столбца массива, входят в группу OptionGroupSortOrder. Свойства Name, TabIndex, Left, Top, Height и Width группы изменены. Остальные свойства имеют заданные по умолчанию значения.

Заметим, что свойство Themes (Темы) влияет на качество отображения группы в диалоге. Это свойство определяет, действуют ли предусмотренные Windows XP повышающие качество отображения элементов управления средства. В частности, если для группы переключателей отказаться от использования этих средств, задав

ThisForm.OptionGroupSortOrder.Themes = .F.

то рамка группы будет выведена в виде обычного прямоугольника (рис. 6.5, а).

Рис. 6.5. Действие свойства Themes: а – Themes = .F.; б – Themes = .T.

Если же восстановить заданное по умолчанию значение

ThisForm.OptionGroupSortOrder.Themes = .T.

то VFP скруглит углы прямоугольника и несколько смягчит цвет его сторон (рис. 6.5, б).

Свойство Value группы переключателей может принимать значения 1 и 2 (по числу имеющихся в группе переключателей, задаваемым ее свойством ButtonCount). При этом, если выбран переключатель с заголовком "Возрастающая" (имя Incr), то значение рассматриваемого свойства будет равно 1, и будет равно 2 при выборе переключателя с заголовком "Убывающая" (имя Decr). Номер переключателя в группе можно определить, например, просмотрев группу в окне свойств формы (рис. 6.6).

Рис. 6.6. Фрагмент окна свойств формы ArrayShow

По умолчанию свойство Value переключателя может принимать значение 0 или 1. Если настройки, заданные по умолчанию, сохранены, то в события Click кнопки "Сортировать" вместо кода

&& Устанавливаем значение переменной nSortOrder по значению

&& свойства Value группы переключателей OptionGroupSortOrder

nSortOrder = .OptionGroupSortOrder.Value – 1

определяющего порядок сортировки массива FormArray, можно записать иной, апеллирующий к свойству Value переключателя:

&& Устанавливаем значение переменной nSortOrder равным значению

&& свойства Value переключателя Decr, входящего в группу OptionGroupSortOrder

nSortOrder = ThisForm.OptionGroupSortOrder.Decr.Value