* Следующий пример показывает, как можно воспользоваться @ ... CLASS
* при технике программирования, принятой в более ранних версиях FoxPro
* (в данном примере для активизации элементов управления применен
* READ). @ ... CLASS использован для создания TextBox, чьи свойства можно
* изменять, пользуясь объектно-ориентированной технологией
* программирования Visual FoxPro.

* ON KEY LABEL используется для отображения диалогового окна Windows
* Color при нажатии CTRL+I. TextBox располагается в основном окне Visual
* FoxPro, используя @ ... CLASS, а READ активизирует TextBox.

CLEAR

ON KEY LABEL CTRL+I _SCREEN.PageFrame1.Page1.goFirstName.BackColor;

= GETCOLOR( )

@ 2,2 SAY 'Press Ctrl+I to change the background color'

@ 4,2 CLASS TextBox NAME goFirstName

READ

CLEAR