|
Платные хостинги
Раскрутка сайта
Книги по программированию
Как в Паскале скрыть курсор
- Один мой друг - творческая личность пытается писать игрушки на Паскале 7.0 в текстовом режиме и для полного счастья ему не хватает одного - как скрыть мигающий курсор. Говорит что закрасить его черным цветом это не выход. Как это можно сделать?
- Ну попробуй написать так:Скрыть:Код asm mov ah,01; mov cx,$2000; int 10hend;highlightSyntax('asmY2UwMW','asm');Показать:Код asm mov ah,01; mov cx,$0fff; int 10hend;highlightSyntax('asmZDY0YT','asm');
- Согласен! Классический способ. А можно еще и за пределы видимой части экрана его установить, например в позицию с координатами (100,100). Правда GotoXY не прокатит, надо на асме писать (уже подзабыл номера функций, но могу глянуть, если сами не накопаете.......)
- Я это делал так:Код procedure CursorOff; assembler; asm mov ah,1 mov cx,2020h int 10hend;procedure CursorOn; assembler; asm mov ah,1 mov cx,0607h int 10hend;highlightSyntax('asmzM0NGY','asm');Только не знаю, вроде это разные вещи!
- Конечно разные...Код mov cx,***highlightSyntax('delphiZWRhOW','delphi');Эта строка и устанавливает размер курсора... Это сообщение отредактировал Zero - 20.11.2004, 01:21
- Да нет, не переписывал я твой код. Ты сам написал: Цитата Конечно разные...
- Да я это имел ввиду, при ответе на твой вопрос, ты ведь сам скинул 2 кода с разными мовами...
- Вот, обещал еще один вариант (можно воспользоваться функцией установки курсора в позицию экрана):Код asm MOV AH, 02 { ф-я 02 - установка курсора в позицию экрана} MOV BH, 00 { Видеостраница 0} MOV DH, 255 { Строка 255 - за границами экрана! } MOV DL, 12 { Столбец 12 } INT 10H { вызываем ф-ю BIOS} endhighlightSyntax('delphiI0Y2Q1','delphi');
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
