xolatile/xhads
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Last push for today...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-02-19 22:08:42 -05:00
parent df533dc356
commit fbb0c23895
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
source/main.adb
View File

@ -114,7 +114,7 @@ begin
--
menu.draw (menu.attribute_information, 100, 100, false);
menu.draw (menu.skill_information, 700, 100, false);
menu.draw (menu.resource_information, 400, 100, false);
menu.draw (menu.resource_information, 400, 100, true);
--
core.write ("Menu :" & menu.trait (menu.mouse_over_menu).title, preview_width + 32, 32 + 320, 16#CCCCCC#);
if menu.mouse_over_menu_element = -1 then

4
source/menu.adb
View File

@ -89,7 +89,7 @@ package body menu is
procedure draw (index : in codex; x, y : in integer; center : in boolean) is
scroll_bar : constant boolean := (if trait (index).length > trait (index).height then true else false);
limitation : constant integer := (if trait (index).length > trait (index).height then trait (index).height else trait (index).length);
limitation : constant integer := (if scroll_bar then trait (index).height else trait (index).length);
width : constant integer := 2 * draw_offset + offset + 24 * 8;
height : constant integer := limitation * offset + 2 * draw_offset;
begin
@ -112,7 +112,7 @@ package body menu is
end loop;
--
if scroll_bar then
ui.draw_scroll_bar (x + width - draw_offset, y + draw_offset, height - 2 * draw_offset, 0);
ui.draw_scroll_bar (trait (index).x + width - draw_offset, trait (index).y + draw_offset, height - 2 * draw_offset, 0);
end if;
end draw;