Создание одиночных кнопок управления

Размещение графического изображения в форме

В экранные формы можно вставлять различные графические изображения. Для этого необходимо выполнить следующие действия:

1. Выбрать инструмент Image на панели инструментов Form Control и установить указатель мыши на форму. Удерживая указатель мыши в нажатом состоянии, переместить курсор по диагонали так, чтобы получилась рамка требуемого размера. Вид созданного поля будет напоминать обратную сторону конверта.

2. Открыть окно свойств Properties созданного объекта, нажав на соответствующую кнопку панели инструментов.

3. В окне свойств нужно установить курсор на свойство Picture объекта и нажать на кнопку правее поля ввода значения свойства. В результате будет открыто окно диалога Open, в результате чего графическое изображение появится в форме.

Для создания одиночной кнопки управления необходимо выполнить следующие действия:

1. На панели инструментов Form Control выбрать инструмент Command Button и поместить кнопку в определенном месте.

2. Открыть окно свойств Properties созданного объекта Command.

3. На кнопке можно расположить текст или графическое изображение. При расположении текстовой информации нужно определить свойство Caption, разместив в поле ввода значения текст, который будет отображаться на кнопке. Для расположения графического изображения нужно выбрать свойство Picture (см предыдущий пункт).

4. Когда кнопка создана, осталось определить команды, которые будут выполняться при нажатии кнопки. Для этой цели служит метод объекта Click, который автоматически вызывается при нажатии на кнопку мыши во вкладке Methods. На экране откроется окно процедур. В текстовой области окна нужно ввести команды, которые будут выполняться при нажатии на данную кнопку:

Рис. 7.6. Окно процедур для метода Click

Например, нужно создать кнопку выхода из формы, при нажатии на которую на экране будет появляться запрос о подтверждении выхода из формы (рис.7.7). при утвердительном ответе форма будет закрыта. Для выполнения этих действий используется функция Visual FoxPro MESSAGEBOX. Текст процедуры обработки события нажатия на кнопку выглядит следующим образом:

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

_screen.ActiveForm.Release()

ELSE

_screen.ActiveForm.Refresh()

ENDIF

Рис. 7.7. Запрос о подтверждении выхода из формы

5. После ввода текста процедуры окно процедур следует закрыть. Кнопка для выхода из экранной формы готова.