FoxPro8
         

Создание группы кнопок


Для размещения в форме группы из нескольких кнопок можно использовать инструмент Command Group (Группа кнопок) на панели инструментов Form Controls (Элементы управления формы). Создаваемый при этом объект является составным и обладает свойством Buttcncount (Количество кнопок), определяющим количество входящих в его состав кнопок.

Воспользуемся данным инструментом для размещения в форме кнопок перемещения по записям таблицы и кнопки выхода из формы.

  • Для создания набора кнопок нажмите кнопку Command Group (Группа кнопок) на панели инструментов Form Controls (Элементы управления формы) и щелкните в месте их предполагаемого размещения в форме.

  • Откройте окно свойств для размещенного составного объекта.

  • Свойство Buttoncount (Количество кнопок) объекта определяет количество кнопок, размещаемых в объекте (по умолчанию 2). Скорректируйте его, задав необходимое количество кнопок, например 5.

  • Увеличьте с помощью мыши размеры рамки, окружающей созданный объект, чтобы в ней можно было расположить горизонтально все пять кнопок.

  • Переведите объект в режим редактирования. Для этого установите на него курсор, нажмите правую кнопку мыши и выберите из контекстного меню команду Edit (Редактировать).

  • Выделяя поочередно кнопки, переместите их, расположив горизонтально в одну линию.

  • Выйдите из режима редактирования, щелкнув вне области объекта conunandGroup (Группа кнопок).

  • Скорректируйте размер рамки, окружающей составной объект.

    • Совет

    Для более точного задания размера рамки составного объекта выделите свойство AutoSize (Авторазмер) и установите для него значение True (Истина).

  • Откройте окно свойств объекта типа commandGroup (Группа кнопок). Нажмите кнопку раскрытия списка в верхней части данного окна (рис. 6.21). Отметьте, что этот список содержит все объекты, размещенные в форме, а также все элементы, входящие в составной объект, под именами Command I, Command!, Command3, Command4, Command5. Выбирая поочередно элементы в этом списке, можно изменить свойства каждой кнопки.

  • Используя свойство caption (Надпись) каждого элемента составного объекта, задайте названия кнопок: Первая, Следующая, Предыдущая, Последняя и Выход.




  • Для задания цвета фона, на котором располагаются кнопки, используйте свойство BackColor (Цвет фона) объекта CommandGroup (Группа кнопок). Если вы хотите, чтобы он совпадал с цветом фона формы, установите для свойства BackStyle (Стиль фона) значение Transparent (Прозрачный).




    • Рис. 6.21. Окно свойств объекта типа CommandGroup

  • Теперь необходимо определить команды, которые будут выполняться при нажатии на данные кнопки. Для этого, открывая поочередно окно процедур метода click (Нажатие) каждого элемента, входящего в составной объект, введите следующие команды:


    • Для кнопки Первая:

    * Переходим на первую запись и обновляем информацию в форме IF !BOF()

    GO TOP

    ENDIF '

    _screen.ActiveForm.Refresh()

    Для кнопки Следующая:

    * Переходим на следующую запись и обновляем в форме

    IF !EOF()

    SKIP ENDIF

    _screen.ActiveForm.Refresh))

    Для кнопки Предыдущая:

    * Переходим на предыдущую запись и обновляем информацию в форме

    IF !BOF()

    SKIP - 1 ENDIF _screen.ActiveForm.Refresh()

    Для кнопки Последняя:

    * Переходим на последнюю запись и обновляем информацию в форме

    IF !EOF ()

    GO BOTTOM

    ENDIF

    _screen.ActiveForm.Refresh()

    Для кнопки Выход:

    * Запрашиваем и выходим, если Да

    IF MESSAGEBOX("Выходить из формы?",4+32+256, "Выход")=6

    _screen.ActiveForm.Release()

    ELSE

    _screen.ActiveForm.Refresh()

    ENDIF



    Рис. 6.22. Форма с размещенной группой кнопок

  • После ввода команд закройте окна процедур.


  • Набор кнопок для перемещения по записям таблицы и выхода из формы создан. Запустите форму на выполнение по команде Run Form (Запустить форму) из меню Form (Форма). Для перемещения по записям таблицы и закрытия формы используйте кнопки, находящиеся в нижней части окна (рис. 6.22).



    • Содержание раздела