видимого на физическом экране может
В качестве первого
видимого на физическом экране может быть выбран любой столбец
виртуального экрана. Таким образом, видимую часть виртуального
экрана можно перемещать в желаемом направлении.
Примечания
. Значения, выходящие за допустимые пределы, автоматически
корректируются до максимально или минимально допустимых (см.
Примеры).
Примеры
. На виртуальном экране размером 100 строк на 120 столбцов номер
текущего столбца выводится в трех местах каждой строки. Видимая часть
виртуального экрана может передвигаться в любом направлении при
нажатии <PgUp>, <PgDn> и клавиш управления курсором:
SETMAXROW( 99) // Виртуальный экран размером
SETMAXCOL(119) // 100 строк на 120 столбцов
CLEAR
FOR nCount =0 TO MAXROW() // Заполнение экрана
@ nCount, 0 SAY "Строка" + NTOC(nCount, 10, 4)
@ nCount, MAXCOL() / 2 - 5 SAY "Строка" + NTOC(nCount, 10, 4)
@ nCount, MAXCOL() - 10 SAY "Строка" + NTOC(nCount, 10, 4)
NEXT nCount
@ 99, 00 SAY CENTER("Это последняя строка")
nKeyVal := 0
DO WHILE nKeyVal <>27
nKeyVal := INKEY(0)
DO CASE
CASE nKeyVal = 5 // K_UP
FIRSTROW(FIRSTROW() - 1)
CASE nKeyVal = 24 // K_DOWN
FIRSTROW(FIRSTROW() + 1)
CASE nKeyVal =4 // K_RIGHT
FIRSTCOL(FIRSTCOL() + 1)
CASE nKeyVal =19 // K_LEFT
FIRSTCOL(FIRSTCOL() - 1)
CASE nKeyVal =18 // K_PGUP
FIRSTROW(FIRSTROW() - 10)
CASE nKeyVal = 3 // K_PGDN
FIRSTROW(FIRSTROW() + 10)
ENDCASE
ENDDO
FIRSTROW(0) // Восстановление исходного
FIRSTCOL(0) // состояния