Subversion Repositories Kolibri OS

//CODED by Veliant, Leency, Nable. GNU GPL licence.

#define INCLUDE_KOLIBRI_H

#startaddress 0

#code32 TRUE

char   os_name[8]   = {'M','E','N','U','E','T','0','1'};

dword  os_version   = 0x00000001;

dword  start_addr   = #load_init_main;

dword  final_addr   = #stop+32;

dword  alloc_mem    = MEMSIZE;

dword  x86esp_reg   = MEMSIZE;

dword  I_Param      = #param;

dword  I_Path       = #program_path;

char param[4096];

char program_path[4096];

#define NULL      0

#define OLD      -1

#define true      1

#define false     0

//Events

#define evReDraw  1

#define evKey     2

#define evButton  3

#define evDesktop 5

#define evMouse   6

#define evIPC     7

#define evNetwork 8

#define evDebug   9

//Button options

#define BT_DEL      0x80000000

#define BT_HIDE     0x40000000

#define BT_NOFRAME  0x20000000

//Button mouse

#define MOUSE_LEFT   001b

#define MOUSE_RIGHT  010b

#define MOUSE_LR     011b

#define MOUSE_CENTER 100b

//ASCII KEYS

#define ASCII_KEY_BS    008

#define ASCII_KEY_TAB   009

#define ASCII_KEY_ENTER 013

#define ASCII_KEY_ESC   027

#define ASCII_KEY_DEL   182

#define ASCII_KEY_INS   185

#define ASCII_KEY_SPACE 032

#define ASCII_KEY_LEFT  176

#define ASCII_KEY_RIGHT 179

#define ASCII_KEY_DOWN  177

#define ASCII_KEY_UP    178

#define ASCII_KEY_HOME  180

#define ASCII_KEY_END   181

#define ASCII_KEY_PGDN  183

#define ASCII_KEY_PGUP  184

//allow event mask

#define EVENT_MASK_REDRAW   000000001b

#define EVENT_MASK_KEYBOARD 000000010b

#define EVENT_MASK_BUTTONS  000000100b

#define EVENT_MASK_DESKTOP  000010000b

#define EVENT_MASK_MOUSE    000100000b

#define EVENT_MASK_IPC      001000000b

#define EVENT_MASK_NETWORK  010000000b

#define EVENT_MASK_DEBUG    100000000b

//ARGS FUNCTION

#define END_ARGS 0xFF00FF

//-------------------------------------------------------------------------

:struct raw_image {

	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)

 */

: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,left,top;

	dword handle,_;

	byte cmd;

	void clearTime();

	void get();

	void set();

	void center();

	dword hide();

	void slider();

	void show();

};

: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 Up Event

	if((cmd)&&!(key)){

		up = true;

		down = false;

		if(!move) click = true;

		move = false;

		__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 {