|
|
@@ -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 = main then 16 else 24), 0); |
|
|
|
glyphs (index) := core.import_font ("./sprite/ui/" & folder_path & "/font.png", 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); |
|
|
@@ -230,7 +230,7 @@ package body ui is |
|
|
|
-- |
|
|
|
draw_horizontally (title_bar_middle, x + sprite (active, title_bar_left).width, y - sprite (active, title_bar_middle).height, middle_width); |
|
|
|
-- |
|
|
|
core.write (title, x + sprite (active, title_bar_left).width / 2, y - sprite (active, title_bar_middle).height / 2 - 4, glyphs (active)); |
|
|
|
core.write (title, x + sprite (active, title_bar_left).width / 2 + 16, y - sprite (active, title_bar_middle).height / 2 - 8, glyphs (active)); |
|
|
|
-- |
|
|
|
select_text_box (title, x, y - sprite (active, title_bar_middle).height, width, sprite (active, title_bar_middle).height); |
|
|
|
end draw_title_bar; |
|
|
|