Дело в том что в графическом режиме в стрелка двигается толка в верхней половине экрана в связи с чем это может быть??? Может я что то неправильно делаю ?
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.
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.
