При выполнении следующего демонстрационного примера
положение курсора, а также цветовые атрибуты.
. При выполнении следующего демонстрационного примера можно
познакомиться с возможностями сохранения оконными функциями
установок для цвета и курсора:
SET COLOR TO R // Установка красного цвета
? "Тестовый текст 1..." // Вывод красным цветом
nWindow1 := WOPEN(10, 10, 20, 55)
WBOX() // Обрамление окна красным цветом
SET COLOR TO BG // Установка бирюзового цвета
? "Тестовый текст 2..." // Вывод бирюзовым цветом
INKEY(0) // Ожидание нажатия клавиши
WFCLOSE() // Закрытие окна
? "Тестовый текст 3..." // Вывод текста непосредственно под "Текст 1"
// и снова красным цветом
Внимание!
. После закрытия окна активным становится окно с наибольшим
номером дескриптора. Если, например, наибольшим был номер дескриптора
9, а активным было окно 5, то вновь открытому окну будет присвоен
дескриптор 10. После закрытия этого окна активным станет окно 9.
Поэтому для активизации окон в дальнейшем их дескрипторы необходимо
сохранять в переменных.
. Вызов функции WSELECT() без параметров позволяет сохранить
дескриптор активного окна.
. Вывод информации внешними программами, запускаемыми по
команде RUN из Clipper-программы, может быть направлен в окна.
Единственное требование к такому выводу - осуществление его через
DOS или BIOS. Управление перенаправлением вывода осуществляется
посредством функции DSETWINDOW(), описываемой в главе
"CT II-драйверы":
DSETWINDOW(.T.)
nWindow1 := WOPEN(10, 10, 22, 70)
RUN DIR // Вывод результатов в окно
WACLOSE()
Закрывает все окна.
------------------------------------------------------------------------------