Нужно написать процедуры для мышки... Опции

[BRS]

первая - ограничить передвижения мыши в прямоугольнике с диагональю (x_1,y_1 ; x_2,y_2);

вторая - определение координат мыши;

кто поможет? )

[FreeMan]

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;

[FreeMan]

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;

[BRS]

3 - можно ли менять вид курсора?

[BRS]

getx и gety работает неправильно кажеться

Код

x:=getx;
y:=gety;
putpixel(x,y,15);

- размещает точки на диагонали (y определяеться равным x)

[Altair]

3 - можно ли менять вид курсора?

А в ЧаВо слабо залезть? я же по косточкам разложил это!

[Guest]

ок, сори - иду в чаво

про getx,gety вопрос все еще открыт...?

[Guest]

Опять сори - оба вопроса сняты - в след. раз чуть что - в хелп

[Altair]

В том-то и дело...
ИМХО в разделе FAQ, про мышь я выложил почти все. (скажем так - почти все, что описанно в документации к INT33h)

[BRS]

((( почему то непашет у меня GetMouseXY... Как с ней радотать то?

у меня щас так

Код

repeat
getMouseXY(x,y);
putpixel(x,y,15);
until false;

выдает ерор 155 в процедуре гетмаусху на асмовский код...

Сообщение отредактировано: BRS - 17.12.2004 0:15