forked from KolibriOS/kolibrios
215 lines
3.4 KiB
C
215 lines
3.4 KiB
C
#ifndef INCLUDE_MOUSE_H
|
|
#define INCLUDE_MOUSE_H
|
|
#print "[include <mouse.h>]\n"
|
|
|
|
//Button MOUSE
|
|
#define MOUSE_LEFT 001b
|
|
#define MOUSE_RIGHT 010b
|
|
#define MOUSE_LR 011b
|
|
#define MOUSE_CENTER 100b
|
|
|
|
/**
|
|
* The structure of the MOUSE
|
|
* x - coordinate X
|
|
* y - coordinate Y
|
|
* xx and yy - time coordinates
|
|
* lkm - left MOUSE button
|
|
* pkm - right MOUSE button
|
|
* mkm - MOUSE wheel
|
|
* key - keycode button
|
|
* tmp - time keycode
|
|
* down - key event press
|
|
* up - key release events
|
|
* move - event MOUSE movements
|
|
* click - when clicked
|
|
* dblclick - double-click the default 50 (500 ms)
|
|
* drag - drag the element event
|
|
*/
|
|
|
|
:dword __TMP_TIME,MOUSE_TIME;
|
|
:struct MOUSE
|
|
{
|
|
signed x,y,xx,yy,lkm,mkm,pkm,key,tmp,tmp_time,hor,vert,down,up,move,click,dblclick,drag,left,top;
|
|
dword handle,_;
|
|
byte cmd;
|
|
void clearTime();
|
|
void get();
|
|
void set();
|
|
void center();
|
|
dword hide();
|
|
void slider();
|
|
void show();
|
|
} mouse;
|
|
:void MOUSE::clearTime()
|
|
{
|
|
tmp_time = GetStartTime()+MOUSE_TIME;
|
|
}
|
|
:void MOUSE::show()
|
|
{
|
|
if(!handle)return;
|
|
ECX = handle;
|
|
EAX = 37;
|
|
EBX = 5;
|
|
$int 0x40;
|
|
}
|
|
:dword MOUSE::hide()
|
|
{
|
|
if(!_)
|
|
{
|
|
EAX = 68;
|
|
EBX = 12;
|
|
ECX = 32*32*4;
|
|
$int 0x40
|
|
ECX = EAX;
|
|
_ = EAX;
|
|
} else ECX = _;
|
|
EAX = 37;
|
|
EBX = 4;
|
|
DX = 2;
|
|
$int 0x40;
|
|
handle = EAX;
|
|
ECX = EAX;
|
|
EAX = 37;
|
|
EBX = 5;
|
|
$int 0x40;
|
|
handle = EAX;
|
|
}
|
|
|
|
//set new attributes MOUSE
|
|
:void MOUSE::set()
|
|
{
|
|
if((xx!=x)||(yy!=y))
|
|
{
|
|
EAX = 18;
|
|
EBX = 19;
|
|
ECX = 4;
|
|
EDX = (x<<16)+y;
|
|
$int 0x40
|
|
//move = true;
|
|
}
|
|
if((key)||(lkm|mkm|pkm))&&(down|up|click|dblclick|move)
|
|
{
|
|
if(lkm|mkm|pkm)key=(lkm)|(pkm<<1)|(2<<mkm);
|
|
EAX = 18;
|
|
EBX = 19;
|
|
ECX = key;
|
|
EDX = (x<<16)+y;
|
|
$int 0x40
|
|
}
|
|
}
|
|
|
|
:void MOUSE::center()
|
|
{
|
|
EAX = 18;
|
|
EBX = 15;
|
|
$int 0x40
|
|
}
|
|
|
|
//get new attributes MOUSE
|
|
:void MOUSE::get()
|
|
{
|
|
EAX = 37;
|
|
EBX = 1;
|
|
$int 0x40
|
|
$mov ebx, eax
|
|
$shr eax, 16
|
|
$and ebx,0x0000FFFF
|
|
x = EAX;
|
|
y = EBX;
|
|
if (x>6000) x-=65535;
|
|
if (y>6000) y-=65535;
|
|
EAX = 37;
|
|
EBX = 2;
|
|
$int 0x40
|
|
$mov ebx, eax
|
|
$mov ecx, eax
|
|
key = EAX;
|
|
$and eax, 0x00000001
|
|
$shr ebx, 1
|
|
$and ebx, 0x00000001
|
|
$shr ecx, 2
|
|
$and ecx, 0x00000001
|
|
lkm = EAX;
|
|
pkm = EBX;
|
|
mkm = ECX;
|
|
|
|
//when you release the MOUSE button
|
|
// Mouse Move Event
|
|
if(xx!=x)||(yy!=y)
|
|
{
|
|
move = true;
|
|
xx = x;
|
|
yy = y;
|
|
}
|
|
else move = false;
|
|
// Mouse Up Event
|
|
if(cmd)&&(!key){
|
|
up = true;
|
|
down = false;
|
|
drag = false;
|
|
if(!move) click = true;
|
|
__TMP_TIME = GetStartTime();
|
|
if(__TMP_TIME-tmp_time<=MOUSE_TIME)
|
|
{
|
|
dblclick = true;
|
|
click = false;
|
|
}
|
|
tmp_time = __TMP_TIME;
|
|
//returns the key code
|
|
key = tmp;
|
|
lkm = 1&tmp;
|
|
pkm = 2&tmp;
|
|
pkm >>= 1;
|
|
mkm = 4&tmp;
|
|
mkm >>= 2;
|
|
cmd = false;
|
|
}
|
|
|
|
//when you press the MOUSE button
|
|
// Mouse Down Event/Move Event
|
|
else
|
|
{
|
|
up = false;
|
|
click = false;
|
|
dblclick = false;
|
|
down = false;
|
|
// Mouse Move Event
|
|
if(key)if(!cmd)
|
|
{
|
|
down = true;
|
|
if(move)drag = true;
|
|
cmd = true;
|
|
tmp=key;
|
|
}
|
|
}
|
|
|
|
//scroll
|
|
EAX = 37;
|
|
EBX = 7;
|
|
$int 0x40
|
|
$mov ebx, eax
|
|
$shr eax, 16
|
|
$and ebx,0x0000FFFF
|
|
//hor = EAX;
|
|
vert = EBX;
|
|
}
|
|
|
|
|
|
|
|
:void MOUSE::slider()
|
|
{
|
|
signed _x,_y;
|
|
if(!handle)hide();
|
|
get();
|
|
_x = x;_y = y;
|
|
pause(5);
|
|
get();
|
|
left = _x - x;
|
|
top = _y - y;
|
|
center();
|
|
get();
|
|
_x = x;_y = y;
|
|
pause(5);
|
|
}
|
|
|
|
#endif |