vroman/edivc
SHA256
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

test_mouse

Browse source
This commit is contained in:
Gabriel Lorenzo 2002-10-07 16:12:38 +00:00
parent a39f8d1767
commit c58ce1f34e
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
ediv/bin/test/test_mouse.prg
View file

@ -3,6 +3,21 @@ private
mi_mapa;
begin
load_fnt("system.fnt");
write(1,0,0,0,"X:");
write(1,0,10,0,"Y:");
write(1,0,20,0,"Left:");
write(1,0,30,0,"Middle:");
write(1,0,40,0,"Right:");
write(1,0,50,0,"WheelUp:");
write(1,0,60,0,"WheelDown:");
write_int(1,80,0,0,&mouse.x);
write_int(1,80,10,0,&mouse.y);
write_int(1,80,20,0,&mouse.left);
write_int(1,80,30,0,&mouse.middle);
write_int(1,80,40,0,&mouse.right);
write_int(1,80,50,0,&mouse.wheelup);
write_int(1,80,60,0,&mouse.wheeldown);
mi_mapa=load_bmp("hola.bmp");
mouse.graph=mi_mapa;
loop