VPF::Как в Паскале скрыть курсор - Форум программистов

July

Дата 8.11.2004, 20:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Экс. модератор
Сообщений: 292
Регистрация: 12.7.2004
Где: Харьков, Украина

Репутация: нет
Всего: 53

Один мой друг - творческая личность пытается писать игрушки на Паскале 7.0 в текстовом режиме и для полного счастья ему не хватает одного - как скрыть мигающий курсор. Говорит что закрасить его черным цветом это не выход. Как это можно сделать?

--------------------

Книга – зеркало. Если в него заглянет баран, трудно надеяться, что наружу выглянет ангел.

Zero

Дата 8.11.2004, 20:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Ну попробуй написать так:
Скрыть:

Код


asm
   mov ah,01;
   mov cx,$2000;
   int 10h
end;

Показать:

Код


asm
   mov ah,01;
   mov cx,$0fff;
   int 10h
end;

Dimich

Дата 11.11.2004, 17:10 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 247
Регистрация: 25.8.2004
Где: Брянск

Репутация: нет
Всего: 7

Согласен! Классический способ. А можно еще и за пределы видимой части экрана его установить, например в позицию с координатами (100,100). Правда GotoXY не прокатит, надо на асме писать (уже подзабыл номера функций, но могу глянуть, если сами не накопаете.......)

--------------------

Не работает - исправь, работает - не трогай!!!

MacTep

Дата 18.11.2004, 23:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: нет
Всего: 4

Я это делал так:

Код


procedure CursorOff; assembler; 
asm
  mov ah,1
  mov cx,2020h
  int 10h
end;

procedure CursorOn; assembler; 
asm
  mov ah,1
  mov cx,0607h
  int 10h
end;

Только не знаю, вроде это разные вещи!

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

Zero

Дата 20.11.2004, 00:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Мастер, ты можно сказать переписал мой код, какой в этом смысл???

Цитата

Только не знаю, вроде это разные вещи!

Конечно разные...

Код


mov cx,***

Эта строка и устанавливает размер курсора...

Это сообщение отредактировал(а) Zero - 20.11.2004, 01:21

MacTep

Дата 20.11.2004, 08:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: нет
Всего: 4

Цитата

Мастер, ты можно сказать переписал мой код, какой в этом смысл???

Да нет, не переписывал я твой код. Ты сам написал:

Цитата

Конечно разные...

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

Zero

Дата 20.11.2004, 12:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Да я это имел ввиду, при ответе на твой вопрос, ты ведь сам скинул 2 кода с разными мовами...

Dimich

Дата 30.11.2004, 15:45 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 247
Регистрация: 25.8.2004
Где: Брянск

Репутация: нет
Всего: 7

Вот, обещал еще один вариант (можно воспользоваться функцией установки курсора в позицию экрана):

Код


  asm
    MOV  AH, 02     {  ф-я 02 - установка курсора в позицию экрана}
    MOV  BH, 00     {  Видеостраница 0}
    MOV  DH, 255   {  Строка 255 - за границами экрана! }
    MOV  DL, 12     {  Столбец 12 }
    INT  10H     {  вызываем ф-ю BIOS}
  end

--------------------

Не работает - исправь, работает - не трогай!!!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »