Subversion Repositories Kolibri OS

#ifndef INCLUDE_LIST_BOX_H

#define INCLUDE_LIST_BOX_H

#ifndef INCLUDE_KOLIBRI_H

#include "../lib/kolibri.h"

#endif

struct llist

{

	int x, y, w, h, item_h, item_w;

	int count, visible, first, column_max; //visible = row_max

	int cur_x, cur_y;

	int text_y;

	byte font_w, font_h, font_type;

	byte wheel_size;

	byte active;

	byte no_selection;

	byte horisontal_selelection;

	void ClearList();

	void SetSizes(int xx, yy, ww, hh, item_hh);

	void SetFont(dword font_ww, font_hh, font_tt);

	int ProcessKey(dword key);

	int ProcessMouse(int xx, yy);

	int MouseOver(int xx, yy);

	int MouseScroll(dword scroll_state);

	int KeyDown();

	int KeyUp();

	int KeyHome();

	int KeyHomeHor();

	int KeyEnd();

	int KeyEndHor();

	int KeyPgDown();

	int KeyPgUp();

	int KeyLeft();

	int KeyRight();

	void CheckDoesValuesOkey();

	void debug();

};

:void llist::debug()

{

	char yi[128];

	sprintf(#yi, "%s %d %s %d %s %d %s %d %s %d %s %d", "first:", first, "visible:", visible, "count:", count, "col_max:", column_max, "cur_y:", cur_y, "cur_x:", cur_x);

	debugln(#yi);

}

:void llist::ClearList()

{

	count = visible = first = cur_y = cur_x = 0;

}

:void llist::SetSizes(int xx, yy, ww, hh, item_hh)

{

	x = xx;

	y = yy;

	w = ww;

	h = hh;

	item_h = item_hh;

	text_y = item_h - font_h / 2;

	visible = h / item_h;

	wheel_size = 3;

	CheckDoesValuesOkey();

}

:void llist::SetFont(dword font_ww, font_hh, font_tt)

{

	font_w = font_ww;

	font_h = font_hh;

	font_type = font_tt;

}

:int llist::MouseScroll(dword scroll_state)

{

	if (count<=visible) return 0;

	if (scroll_state == 65535)

	{

		if (first == 0) return 0;

		if (first > wheel_size+1) first -= wheel_size; else first=0;

		CheckDoesValuesOkey();

		return 1;

	}

	if (scroll_state == 1)

	{

		if (visible + first == count) return 0;

		if (visible+first+wheel_size+1 > count) first = count - visible; else first+=wheel_size;

		CheckDoesValuesOkey();

		return 1;

	}

	return 0;

}

:int llist::MouseOver(int xx, yy)

{

	if (xx>x) && (xxy) && (yy

	return 0;

}

:int llist::ProcessMouse(int xx, yy)

{

	int cur_y_temp, cur_x_temp, ret=0;

	if (MouseOver(xx, yy))

	{

		cur_y_temp = yy - y / item_h + first;

		if (cur_y_temp != cur_y) && (cur_y_temp

		{

			cur_y = cur_y_temp;

			ret = 1;

		}

		if (horisontal_selelection)

		{

			cur_x_temp = xx - x / item_w;

			if (cur_x_temp != cur_x) && (cur_x_temp

			{

				cur_x = cur_x_temp;

				ret = 1;

			}

		}

	}

	return ret;

}

:int llist::ProcessKey(dword key)

{

	if (horisontal_selelection) switch(key)

	{

		case SCAN_CODE_LEFT:  return KeyLeft();

		case SCAN_CODE_RIGHT: return KeyRight();

		case SCAN_CODE_HOME:  return KeyHomeHor();

		case SCAN_CODE_END:   return KeyEndHor();

	}

	switch(key)

	{

		case SCAN_CODE_DOWN: return KeyDown();

		case SCAN_CODE_UP:   return KeyUp();

		case SCAN_CODE_HOME: return KeyHome();

		case SCAN_CODE_END:  return KeyEnd();

		case SCAN_CODE_PGUP: return KeyPgUp();

		case SCAN_CODE_PGDN: return KeyPgDown();

	}

	return 0;

}

:int llist::KeyDown()

{

	if (no_selection)

	{

		if (visible + first >= count) return 0;

		first++;

		return 1;

	}

	if (cur_y-first+1

	{

		if (cur_y + 1 >= count) return 0;

		cur_y++;

	}

	else

	{

		if (visible + first >= count) return 0;

		first++;

		cur_y++;

	}

	if (cur_y < first) || (cur_y >= first + visible)

	{

		first = cur_y;

	}

	CheckDoesValuesOkey();

	return 1;

}

:int llist::KeyUp()

{

	if (no_selection)

	{

		if (first == 0) return 0;

		first--;

		return 1;

	}

	if (cur_y > first)

	{

		cur_y--;

	}

	else

	{

		if (first == 0) return 0;

		first--;

		cur_y--;

	}

	if (cur_y < first) || (cur_y > first + visible)

	{

		first = cur_y;

		CheckDoesValuesOkey();

	}

	return 1;

}

:int llist::KeyHomeHor()

{

	if (cur_x==0) return 0;

	cur_x = 0;

	return 1;

}

:int llist::KeyEndHor()

{

	if (cur_x==column_max) return 0;

	cur_x = column_max;

	CheckDoesValuesOkey();

	return 1;

}

:int llist::KeyHome()

{

	if (cur_y==0) && (first==0) return 0;

	cur_y = first = 0;

	return 1;

}

:int llist::KeyEnd()

{

	if (cur_y==count-1) && (first==count-visible) return 0;

	cur_y = count-1;

	first = count - visible;

	CheckDoesValuesOkey();

	return 1;

}

:int llist::KeyPgUp()

{

	if (count <= visible) return KeyHome();

	if (first == 0) return 0;

	first -= visible;

	cur_y = first;

	CheckDoesValuesOkey();

	return 1;

}

:int llist::KeyPgDown()

{

	if (count <= visible) return KeyEnd();

	if (first == count - visible) return 0;

	first += visible;

	cur_y = first + visible - 1;

	CheckDoesValuesOkey();

	return 1;

}

:void llist::CheckDoesValuesOkey()

{

	if (visible + first > count) first = count - visible;

	if (first < 0) first = 0;

	if (cur_y >= count) cur_y = count - 1;

	if (cur_x >= column_max) cur_x = column_max;

	if (cur_y < 0) cur_y = 0;

	if (cur_x < 0) cur_x = 0;

}

:int llist::KeyRight()

{

	if (cur_x < column_max)

	{

		cur_x++;

	}

	else

	{

		if (!KeyDown()) return 0;

		cur_x = 0;

	}

	return 1;

}

:int llist::KeyLeft()

{

	if (cur_x > 0)

	{

		cur_x--;

	}

	else

	{

		if (!KeyUp()) return 0;

		cur_x = column_max;

	}

	return 1;

}

:void llist_copy(dword dest, src)

{

	memmov(dest, src, sizeof(llist));

	/*

	EDI = dest;

	ESI = src;

	EDI.llist.x = ESI.llist.x;

	EDI.llist.y = ESI.llist.y;

	EDI.llist.w = ESI.llist.w;

	EDI.llist.h = ESI.llist.h;

	EDI.llist.item_h = ESI.llist.item_h;

	EDI.llist.text_y = ESI.llist.text_y;

	EDI.llist.font_w = ESI.llist.font_w;

	EDI.llist.font_h = ESI.llist.font_h;

	EDI.llist.font_type = ESI.llist.font_type;

	EDI.llist.count = ESI.llist.count;

	EDI.llist.visible = ESI.llist.visible;

	EDI.llist.first = ESI.llist.first;

	EDI.llist.cur_y = ESI.llist.cur_y;

	EDI.llist.column_max = ESI.llist.column_max;

	EDI.llist.active = ESI.llist.active;

	*/

}

#endif