Subversion Repositories Kolibri OS

//Button MOUSE

#define MOUSE_LEFT   001b

#define MOUSE_RIGHT  010b

#define MOUSE_LR     011b

#define MOUSE_CENTER 100b

	dword w, h, data;

};

/**

 *  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<

		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);

}

:struct keyboard

{

	signed key;

	byte down,up,press;

	void get(void);

};

:void keyboard::get(void)

{

}

:struct system_colors

{

	dword frame,grab,grab_button,grab_button_text,grab_text,

	      work,work_button,work_button_text,work_text,work_graph;

	void get();

};

:void system_colors::get()

{

	EAX = 48;

	EBX = 3;