Мышь под DOS в TP7 в граф. режиме :: Прикладное программирование

Здравствуйте,

Вот есть такая проблема. Надо используя драйвер svga256.bgi рисовать свой курсор мышки. Для этой цели я набросал такой вот юнит:

Код:

unit zmouse;

interface

type
mousedriver = object
constructor init;
destructor destroy;
end;

implementation

procedure move_handler; far; assembler;
asm
end;

constructor mousedriver.init;
var
mh_off, mh_seg: word;
begin
mh_seg := Seg(move_handler);
mh_off := Ofs(move_handler);

asm

{Turn on mouse}
mov ax, 0
int 33h

{ Install custom handler }
mov ax, 0ch
mov cx, 1fh

mov es, mh_seg
mov dx, mh_off

int 33h

end;
end;

destructor mousedriver.destroy; assembler;
asm
{Disable mouse tracking handler}
mov ax, 0ch
mov cx, 00h
int 33h
end;

end.

Когда вызывается init включается мышь и устанавливается пользовательская функция на движение мыши. Когда вызывается destroy она снимается. Всё круто, когда мышка сдвигается, управление действительно передаётся процедуре “ move_handler ”. Но есть одна проблема… как же нарисовать курсор? Я написал процедурку в стиле:

Код:

procedure cursorDraw(x, y: integer);
var
i, j: byte;
begin

for i := 1 to cur.height do begin
for j := 1 to cur.width do begin
if ((cur.d[j, i].r <> -1) and (cur.d[j, i].g <> -1) and (cur.d[j, i].b <> -1)) then begin
putpixel(x - 1 + j, y - 1 + i, findnearcol(cur.d[j, i].r, cur.d[j, i].g, cur.d[j, i].b));
end;
end;
end;
end;

Которая рисует курсор из предварительно загруженного массива другой процедурой… Но как же её туды впихнуть? Я ассемблер начал изучать сегодня и написать всё на ассемблере поэтому не представляется возможным. А вот как вызвать из этой процедуры паскалевскую нормальную я никак не могу понять. Может быть кто-то делал это?

Спасибо,
Z.

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки