первая - ограничить передвижения мыши в прямоугольнике с диагональю (x_1,y_1 ; x_2,y_2);
вторая - определение координат мыши;
кто поможет? )
Полная версия: Нужно написать процедуры для мышки...
1)
Код
procedure rectm(x1,y1,x2,y2);
begin
asm
mov ax,7
mov cx,x1
mov dx,x2
int 33h
mov ax,8
mov cx,y1
mov dx,y2
int 33h
end;
end;
begin
asm
mov ax,7
mov cx,x1
mov dx,x2
int 33h
mov ax,8
mov cx,y1
mov dx,y2
int 33h
end;
end;
2)
Код
function getx:word;
var
x:word;
begin
asm
mov ax,3
int 33h
mov x,cx
end;
getx:=x;
end;
end;
function gety:word;
var
y:word;
begin
asm
mov ax,3
int 33h
mov y,cx
end;
gety:=y;
end;
end;
var
x:word;
begin
asm
mov ax,3
int 33h
mov x,cx
end;
getx:=x;
end;
end;
function gety:word;
var
y:word;
begin
asm
mov ax,3
int 33h
mov y,cx
end;
gety:=y;
end;
end;
3 - можно ли менять вид курсора?
getx и gety работает неправильно кажеться
- размещает точки на диагонали (y определяеться равным x)
Код
x:=getx;
y:=gety;
putpixel(x,y,15);
y:=gety;
putpixel(x,y,15);
- размещает точки на диагонали (y определяеться равным x)
Цитата
3 - можно ли менять вид курсора?
А в ЧаВо слабо залезть? я же по косточкам разложил это!
ок, сори - иду в чаво
про getx,gety вопрос все еще открыт...?
про getx,gety вопрос все еще открыт...?
Опять сори - оба вопроса сняты - в след. раз чуть что - в хелп 
В том-то и дело...
ИМХО в разделе FAQ, про мышь я выложил почти все. (скажем так - почти все, что описанно в документации к INT33h)
ИМХО в разделе FAQ, про мышь я выложил почти все. (скажем так - почти все, что описанно в документации к INT33h)
((( почему то непашет у меня GetMouseXY... Как с ней радотать то?
у меня щас так
repeat
getMouseXY(x,y);
putpixel(x,y,15);
until false;
выдает ерор 155 в процедуре гетмаусху на асмовский код...
у меня щас так
Код
repeat
getMouseXY(x,y);
putpixel(x,y,15);
until false;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.