Как убрать черный курсор в паскале

Как убрать черный курсор в паскале

Используем директивы асемблера. а именно:
asm mov ah,01; mov cx,$2000; int $10; end;
это для глушения курсора и его обратного появления

Пользователь
Регистрация: 05.05.2007
Сообщений: 16

Споисбо.
Только у меня одна проблема возникает — курсор обратно не появляется.
И можно еще просьбу — объесни как это работает.

Границ нет, есть преграды.
Пользователь
Регистрация: 07.02.2007
Сообщений: 21

Кролик, если тебе просто нужно сделать так, чтобы курсора не было видно, изменять его цвет на цвет фона после каждого вывода, можешь создать даже отдельную процедуру.

курсор редактора текста мингает черным квадратом 1см как убрать

Курсор мигает квадратом — вы в режиме замены текста. Будете набирать буквы в середине текста — старые будут заменяться. В конце текста разницы нет. Переключение к нормальному режиму «вставка» осуществляется клавишей «Ins» на клавиатуре.

Остальные ответы

попробуй ins нажать

что такое ins

Это insert) Смотри там где у тебя есть на клаве delete над ним и будет эта кнопка)

Похожие вопросы

Ваш браузер устарел

Мы постоянно добавляем новый функционал в основной интерфейс проекта. К сожалению, старые браузеры не в состоянии качественно работать с современными программными продуктами. Для корректной работы используйте последние версии браузеров Chrome, Mozilla Firefox, Opera, Microsoft Edge или установите браузер Atom.

Как убрать черный курсор в паскале

Название темы должно быть информативным !
Прежде чем задать вопрос, воспользуйтесь Поиском . и проверьте в FAQ (ЧАВО) Паскаля
Чтобы получить вразумительный ответ, подробно опишите проблему: что надо сделать, что не получается и номер ошибки (если есть), которую выводит компилятор. Для вставки кода ваших программ используйте, пожалуйста, кнопку СODE=pas или выпадающий список СODE для других языков (подсветка синтаксиса). [!] Как правильно задавать вопросы | Руководство по языку B.Pascal 7 & Objects/LR | Borland Pascal. Руководство пользователя

Модераторы: volvo877
‘> Убрать курсор , как?

• Подписаться на тему
• Сообщить другу
• Скачать/распечатать тему

Сообщ. #1 , 21.05.06, 13:46
Рейтинг (т): 1

Как можно убрать курсор в Pascal’е?

Добавлено 21.05.06, 13:47
Т.е. вот напрмиер, у меня когда я вывел текст на экран через Writeln, в конце мигает курсор, как его убрать. Вот например если я сделаю Window как размер текста, то начинаются глюки, поскольку курсор не влазит в конце.

Сообщ. #2 , 21.05.06, 13:47

Рейтинг (т): 878

В Паскале или в программе на Паскале?

Добавлено 21.05.06, 13:48
Только от такого рода глюков это не поможет. Курсор-то на самом деле есть, просто он невидим

Pascal: Занятие № 4 часть II. Графика в Паскале

Для работы с графикой в pascal abc используется модуль GraphABC. Для его подключения используется следующий код:

uses GraphABC; begin . end.

uses GraphABC; begin . end.

Система координат в Паскале соответствует экранной системе координат и выглядит следующим образом:

Управление цветом

Для того, чтобы использовать цвет, необходимо применить этот цвет к инструменту перо:

• SetPenColor(color) — устанавливает цвет пера, задаваемый параметром color;
• setBrushColor(color) — устанавливает цвет кисти, задаваемый параметром color;
• либо для палитры RGB: SetPenColor(rgb(0-255, 0-255, 0-255));

или использовать для заливки:

После чего можно использовать процедуры для рисования геометрических фигур.

Цвета в pascal abc:

clBlack – черный
clPurple – фиолетовый
clWhite – белый
clMaroon – темно-красный
clRed – красный
clNavy – темно-синий
clGreen – зеленый
clBrown – коричневый
clBlue – синий
clSkyBlue – голубой
clYellow – желтый
clCream – кремовый
clAqua – бирюзовый
clOlive – оливковый
clFuchsia – сиреневый
clTeal – сине-зеленый
clGray – темно-серый
clLime – ярко-зеленый
clMoneyGreen – цвет зеленых денег
clLtGray – светло-серый
clDkGray – темно-серый
clMedGray – серый
clSilver – серебряный

Точки, отрезки и ломаные

Для отображения точки в паскале используется процедура:

uses GraphABC; begin SetPixel(300,200,clred); end.

uses GraphABC; begin SetPixel(300,200,clred); end.

Для рисования линии используется:

uses GraphABC; begin SetPenColor(clgreen); line(100,50,500,250); end.

uses GraphABC; begin SetPenColor(clgreen); line(100,50,500,250); end.

Ломаные можно рисовать с помощью процедур MoveTo (x1, y1) и LineTo (x2, y2) .
Процедуры работают в паре: MoveTo передвигает курсор в определенную точку, а процедура LineTo рисует линию с этой точки до точки, определенной параметром данной процедуры.

uses GraphABC; begin . SetPenColor(clblue); MoveTo (x1, y1); LineTo (x2, y2); LineTo (x3, y3); LineTo (x4, y4); LineTo (x5, y5); end.

uses GraphABC; begin . SetPenColor(clblue); MoveTo (x1, y1); LineTo (x2, y2); LineTo (x3, y3); LineTo (x4, y4); LineTo (x5, y5); end.

Задание 0: При помощи операторов SetPenColor(), LineTo (x2, y2) и MoveTo (x1, y1) нарисовать квадрат и равносторонний треугольник.

[Название файла: L4_2task0.pas ]

Для установки размеров графического окна используется процедура

SetWindowWidth(600); SetWindowHeight(400);

Рисование фигур

Прямоугольник в Паскале рисуется:

uses GraphABC; begin Rectangle(50,50,200,200); end.

uses GraphABC; begin Rectangle(50,50,200,200); end.

Фигуры с заливкой:

uses GraphABC; begin Rectangle(50,50,200,200); FloodFill(100,100,clBlue); end.

uses GraphABC; begin Rectangle(50,50,200,200); FloodFill(100,100,clBlue); end.

Треугольник рисуется процедурами:

Line(x1,y1,x2,y2);
LineTo(x,y);

uses GraphABC; begin setpenwidth(20); setpencolor(clred); moveTo(300,100); lineTo(500,300); lineto(100,300); lineto(300,100); floodfill(300,200,clgreen); end.

uses GraphABC; begin setpenwidth(20); setpencolor(clred); moveTo(300,100); lineTo(500,300); lineto(100,300); lineto(300,100); floodfill(300,200,clgreen); end.

Окружность можно нарисовать с помощью процедуры:

uses GraphABC; begin Circle(500,200,100); FloodFill(500,200,clred); end.

uses GraphABC; begin Circle(500,200,100); FloodFill(500,200,clred); end.

Дуга окружности

1 2 3 4 5

uses GraphABC; Begin SetPenWidth(10); Arc(300,250,150,45,135); end.

uses GraphABC; Begin SetPenWidth(10); Arc(300,250,150,45,135); end.

Задание 1: «Лягушка»

[Название файла: L4_2task1.pas ]

Задание 2: «Корона»

[Название файла: L4_2task2.pas ]

Функция random для использования окраски

Задание 3: Нарисовать горизонтальный ряд окружностей радиусом 10 на расстоянии 100 от верхнего края экрана и с такими горизонтальными координатами 50, 80, 110, 140, … , 290.

* раскрасить круги случайным цветом

[Название файла: L4_2task3.pas ]

Задание 4: «Круги на воде».
Нарисуйте пару десятков концентрических окружностей, то есть окружностей разного радиуса, но имеющих общий центр.

[Название файла: L4_2task4.pas ]

Задание 5:
Воспроизвести изображение при помощи программы:

[Название файла: L4_2task5.pas ]

Штриховка

Нарисовать штриховку на Паскале можно, используя процедуры рисования прямоугольника и линии:

Программа будет выглядеть следующим образом:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

uses graphABC; var i, x1, x2, y1, y2, N: integer; h, x: real; begin x1 := 100; y1 := 100; x2 := 300; y2 := 200; N := 10; Rectangle (x1, y1, x2, y2); h := (x2 - x1) / (N + 1); x := x1 + h; for i:=1 to N do begin Line(round(x), y1, round(x), y2); x := x + h; end; end.

uses graphABC; var i, x1, x2, y1, y2, N: integer; h, x: real; begin x1 := 100; y1 := 100; x2 := 300; y2 := 200; N := 10; Rectangle (x1, y1, x2, y2); h := (x2 — x1) / (N + 1); x := x1 + h; for i:=1 to N do begin Line(round(x), y1, round(x), y2); x := x + h; end; end.

Задание 6:
Нарисуйте шахматную доску.

[Название файла: L4_2task6.pas ]

Анимация в Паскале

Анимация в программировании заключается в том, что сначала рисуется фигура цветным инструментом, затем с тем же координатами рисуется та же фигура белым цветом. После чего происходит сдвиг фигуры и действия повторяются.

Пример: Воспроизвести движение круга по горизонтали.

1 2 3 4 5 6 7 8 9 10 11 12

uses GraphABC; var x:integer; begin x:=40; repeat SetPenColor(clWhite); Circle(x,100,10); SetPenColor(clBlack); Circle(x,100,10); x:=x+1 until x>600; end.

uses GraphABC; var x:integer; begin x:=40; repeat SetPenColor(clWhite); Circle(x,100,10); SetPenColor(clBlack); Circle(x,100,10); x:=x+1 until x>600; end.

Задание 7: Выполнить анимацию движения квадрата по следующей траектории:

[Название файла: L4_2task7.pas ]