xhads/source/ui.ads

67 lines
3.4 KiB
Ada
Raw Normal View History

-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic
--
-- GNU General Public Licence (version 3 or later)
2024-02-15 21:03:09 -05:00
with core;
package ui is
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
type style is (
2024-03-13 14:51:13 -04:00
default, steam
2024-02-15 21:03:09 -05:00
);
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,
2024-02-16 14:58:54 -05:00
frame_lower_left, frame_lower, frame_lower_right,
cursor, icon, overicon,
2024-03-11 15:35:56 -04:00
icon_upper_left, icon_upper, icon_upper_right,
icon_left, icon_right,
icon_lower_left, icon_lower, icon_lower_right,
text_upper_left, text_upper, text_upper_right,
text_left, text_middle, text_right,
text_lower_left, text_lower, text_lower_right,
2024-02-17 18:13:17 -05:00
fill_bar_left, fill_bar_horizontal, fill_bar_right, fill_horizontal,
2024-02-16 14:58:54 -05:00
scroll_bar_lower, scroll_bar_middle, scroll_bar_upper,
title_bar_left, title_bar_middle, title_bar_right
2024-02-15 21:03:09 -05:00
);
------------------------------------------------------------------------------------------
active : style;
2024-02-15 21:03:09 -05:00
------------------------------------------------------------------------------------------
procedure configure;
2024-04-25 09:26:08 -04:00
procedure draw_icon (data : in core.sprite; description : in string; x, y : in integer);
procedure draw_overicon (description : in string; x, y : in integer);
2024-02-15 21:03:09 -05:00
procedure draw_text_box (x, y, width, height : in integer);
procedure draw_frame (description : in string; x, y, width, height : in integer);
2024-02-15 21:03:09 -05:00
2024-02-19 21:52:43 -05:00
procedure draw_title_bar (x, y, width : in integer; title : in string);
procedure draw_scroll_bar (x, y, height : in integer; offset : in integer);
2024-02-16 14:58:54 -05:00
2024-02-15 21:03:09 -05:00
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);
procedure draw_icon_menu (description : in string; x, y, width, height : in integer);
2024-02-15 21:03:09 -05:00
procedure draw_state_box (x, y : in integer);
2024-04-23 16:19:29 -04:00
procedure write (text : in string; x, y : in integer);
2024-02-15 21:03:09 -05:00
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
end ui;