Клиппер 5. Справочник

Возвращает время задержки при выводе


    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)                                 // состояния
    SETMAXCOL(79)
    SETMAXROW(24)
    CLEAR
 

See Also: FIRSTCOL()
MAXROW()
SETMAXROW()

 

 

 GETBOXGROW()
  Возвращает время задержки при выводе "разрастающихся" обрамлений.
------------------------------------------------------------------------------
 
  Синтаксис
 
    GETBOXGROW() --> nTimeDelay
 
  Возвращаемое значение
 
    nTimeDelay - число миллисекунд задержки, устанавливаемое функцией
    SETBOXGROW().
 
  Описание
 
    Функция возвращает время задержки между шагами процесса вывода
    "разрастающихся" обрамлений на экран дисплея.
 
  Примеры
 
  . Вывод "разрастающегося" обрамления с задержкой на каждом
    шаге 10 мсек:
 
    SETBOXGROW(10)
    WOPEN(2, 2, 23, 78)         // Установка только координат рамки
    WBOX()                      // Генерация рамки с задержкой
    ? GETBOXGROW()              // Результат: 10
 

See Also: SETBOXGROW()

 

 

 GETCURSOR()*
 Возвращает характеристики формы курсора.
------------------------------------------------------------------------------

Содержание раздела