* Пример 1 демонстрирует метод, позволяющий использовать технику
* объектно-ориентированного программирования Visual FoxPro для
* элементов управления, созданных с помощью синтаксиса ранних версий
* FoxPro.

* В основное окно Visual FoxPro помещается элемент управления TextBox с
* помощью старого синтаксиса элемента управления @ ... GET. В команду @
* ... GET включается предложение NAME, позволяющее манипулировать
* этим текстовым полем с помощью свойств элемента управления TextBox
* в Visual FoxPro. Текстовое поле, размещенное в основном окне Visual
* FoxPro, указывается с помощью переменной памяти _SCREEN (элементы
* управления Visual FoxPro помещаются на странице Page1 кадра
* PageFrame1 основного окна Visual FoxPro). Функция GETCOLOR( )
* используется для того, чтообы вы могли задать цвет фона для элемента
* управления TextBox. Команда READ активизирует элемент управления
* TextBox.

* Пример 2 изменяет текст в строке заголовка основного окна Visual
* FoxPro.

* Example 1

CLEAR

@2,2 GET gcFirstName DEFAULT SPACE(10) NAME goFirstName

_SCREEN.PageFrame1.Page1.goFirstName.BackColor = GETCOLOR( )

READ

CLEAR

* Example 2

_SCREEN.Caption = 'My Application'