Вопрос по модулю F_Mouse, вопрос Опции

[Freedom]

Здравствуйте я на вашем сервере недавно. Не могли бы вы ответить на мой вопрс?
Дело в том что в графическом режиме в стрелка двигается толка в верхней половине экрана в связи с чем это может быть??? Может я что то неправильно делаю ?
program mouse;

Код

uses F_Mouse,graph,crt;
label 1,2;
var gm,gd,mx1,my1:integer;
    i:integer;
    c:char;
begin
gm:=0;
gd:=detect;
initgraph(gd,gm,'');
setbkcolor(7);
Setcolor(3);
ShowMouse;
For i:=1 to 1000 do  begin
  clrscr;
  circle(mx1,my1,30);
  MouseWhereXY(mx1,my1);
  If keypressed then c:=readkey;
  If ord(c)=27 then exit;
delay(10000);
end;
readln;
end.

[volvo]

Перед работой с мышью ее необходимо инициализировать. У тебя же нигде не вызывается InitMouse.

А ведь именно в этой процедуре окно, в котором перемещается мышь, устанавливается во весь экран.

[Freedom]

Большое спс. Всё нормально работает. ПРосто ещё только начинаю осваивать этот модуль

[Lapp]

Я извиняюсь за встревание, просто несколько странно видеть это:

For i:=1 to 1000 do  begin
  clrscr;
  circle(mx1,my1,30);

Зачем очищать текстовый экран в цикле, когда рисуешь в графике?..
Я рекомендую вообще выкинуть юнит CRT, чтоб лн тебя не путал. Обойдешься без clrscr, не помрешь, потерпишь..

А для очистки графического экрана используй ClearDevice или ClearViewPort.

И, пожалуйста, ставь паскалевские тэги (см. п.2 вверху страницы)

[Freedom]

Я извиняюсь за встревание, просто несколько странно видеть это:

For i:=1 to 1000 do  begin
  clrscr;
  circle(mx1,my1,30);

Зачем очищать текстовый экран в цикле, когда рисуешь в графике?..
Я рекомендую вообще выкинуть юнит CRT, чтоб лн тебя не путал. Обойдешься без clrscr, не помрешь, потерпишь..

А для очистки графического экрана используй ClearDevice или ClearViewPort.

И, пожалуйста, ставь паскалевские тэги (см. п.2 вверху страницы)

Да слегка диковатый код, но crt я использовал для кнопки выхода. Но всё равно спс, учту.