xhads/source/ui.ads

with core;

package ui is

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

	type style is (
		default,                steam,                  yd
	);

	type codex is (
		none,
		main_background,
		corner_upper_left,                  corner_upper_right,                 corner_lower_left,                  corner_lower_right,
		tiny_corner_upper_left,             tiny_corner_upper_right,            tiny_corner_lower_left,             tiny_corner_lower_right,
		border_upper,                       border_lower,                       border_left,                        border_right,
		tiny_border_upper,                  tiny_border_lower,                  tiny_border_left,                   tiny_border_right,
		frame_upper_left,                   frame_upper,                        frame_upper_right,
		frame_left,                         frame_middle,                       frame_right,
		frame_lower_left,                   frame_lower,                        frame_lower_right,
		cursor,
		fill_bar_left,                      fill_bar_horizontal,                fill_bar_right,                     fill_horizontal,
		scroll_bar_lower,                   scroll_bar_middle,                  scroll_bar_upper,
		title_bar_left,                     title_bar_middle,                   title_bar_right
	);

                                             ------------------------------------------------------------------------------------------

	type sprite_array is array (style, codex) of core.sprite;

                                             ------------------------------------------------------------------------------------------

	sprite : sprite_array;
	active : style;

                                             ------------------------------------------------------------------------------------------

	procedure configure;

	procedure draw (index : in codex; x, y : in integer);

	procedure draw_background (index : in codex; x, y, width, height : in integer);

	procedure draw_frame (x, y, width, height : in integer);

	procedure draw_title_bar  (x, y, width  : in integer; title  : in string);
	procedure draw_scroll_bar (x, y, height : in integer; offset : in integer);

	procedure draw_menu      (x, y, width, height : in integer; background : in boolean);
	procedure draw_tiny_menu (x, y, width, height : in integer; background : in boolean);

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

end ui;