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

Removing default UI theme in code, removing folder soon...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-04-30 13:04:32 -04:00
parent e177839ffe
commit 25d0351a52
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
source/core.adb
View File

@ -297,7 +297,7 @@ package body core is
cursor.x := ray.get_mouse_x;
cursor.y := ray.get_mouse_y;
--
ray.draw_fps (0, 0);
--~ray.draw_fps (0, 0);
--
ray.end_drawing;
--

4
source/main.adb
View File

@ -80,7 +80,7 @@ procedure main is
procedure show_unit_menu is begin menu_insert (menu_unit); end show_unit_menu;
procedure show_might_menu is begin menu_insert (menu_might); end show_might_menu;
procedure show_magic_menu is begin menu_insert (menu_magic); end show_magic_menu;
procedure ui_default_style is begin ui.active := ui.default; end ui_default_style;
procedure ui_main_style is begin ui.active := ui.main; end ui_main_style;
procedure ui_steam_style is begin ui.active := ui.steam; end ui_steam_style;
procedure hide_top_menu is begin menu_remove; end hide_top_menu;
procedure zoom_in is begin core.zoom := 2; end zoom_in;
@ -97,7 +97,7 @@ procedure main is
core.signal_u => show_unit_menu'access,
core.signal_m => show_might_menu'access,
core.signal_n => show_magic_menu'access,
core.signal_d => ui_default_style'access,
core.signal_d => ui_main_style'access,
core.signal_f => ui_steam_style'access,
core.signal_grave => hide_top_menu'access,
core.signal_kp_add => zoom_in'access,

6
source/ui.adb
View File

@ -132,7 +132,7 @@ package body ui is
procedure configure is
procedure load_ui (index : in style; folder_path : in string) is
begin
glyphs (index) := core.import_font ("./sprite/ui/" & folder_path & "/font.png", (if index = default then 16 else 24), 0);
glyphs (index) := core.import_font ("./sprite/ui/" & folder_path & "/font.png", (if index = main then 16 else 24), 0);
--
for this in element loop
sprite (index, this) := core.import_sprite ("./sprite/ui/" & folder_path & core.lowercase (element'image (this)) & ".png", 1, 1);
@ -141,8 +141,8 @@ package body ui is
begin
core.echo (core.comment, "Configuring UI components...");
--
load_ui (default, "default/");
load_ui (steam, "steam/");
load_ui (main, "main/");
load_ui (steam, "steam/");
end configure;
------------------------------------------------------------------------------------------

4
source/ui.ads
View File

@ -9,12 +9,12 @@ package ui is
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
type style is (
default, steam
main, steam
);
------------------------------------------------------------------------------------------
active : style;
active : style := main;
------------------------------------------------------------------------------------------