index ffb1c4d53018c6a22c6ba48882fbe74420974338..363093cd5ab7cab025f451473ba406b3c362435b 100644 (file)
interface
interface
- uses g_base; // TRectWH
+ uses
+ {$IFDEF ENABLE_MENU}
+ g_gui,
+ {$ENDIF}
+ g_base // TRectWH
+ ;
procedure r_Render_Initialize;
procedure r_Render_Finalize;
procedure r_Render_Initialize;
procedure r_Render_Finalize;
procedure r_Render_GetKeyRect (key: Integer; out x, y, w, h: Integer; out founded: Boolean);
{$ENDIF}
procedure r_Render_GetKeyRect (key: Integer; out x, y, w, h: Integer; out founded: Boolean);
{$ENDIF}
+ {$IFDEF ENABLE_MENU}
+ procedure r_Render_GetControlSize (ctrl: TGUIControl; out w, h: Integer);
+ procedure r_Render_GetLogoSize (out w, h: Integer);
+ procedure r_Render_GetMaxFontSize (BigFont: Boolean; out w, h: Integer);
+ procedure r_Render_GetStringSize (BigFont: Boolean; str: String; out w, h: Integer);
+ {$ENDIF}
+
procedure r_Render_DrawLoading (force: Boolean); // !!! remove it
implementation
procedure r_Render_DrawLoading (force: Boolean); // !!! remove it
implementation
{$IFDEF ENABLE_SYSTEM}
g_system,
{$ENDIF}
{$IFDEF ENABLE_SYSTEM}
g_system,
{$ENDIF}
+ {$IFDEF ENABLE_MENU}
+ r_gui,
+ {$ENDIF}
SysUtils, Classes, Math,
e_log, utils,
g_game, g_options, g_console,
SysUtils, Classes, Math,
e_log, utils,
g_game, g_options, g_console,
{$IFDEF ENABLE_GFX}
r_GFX_Load;
{$ENDIF}
{$IFDEF ENABLE_GFX}
r_GFX_Load;
{$ENDIF}
+ {$IFDEF ENABLE_MENU}
+ r_GUI_Load;
+ {$ENDIF}
end;
procedure r_Render_Free;
begin
end;
procedure r_Render_Free;
begin
+ {$IFDEF ENABLE_MENU}
+ r_GUI_Free;
+ {$ENDIF}
{$IFDEF ENABLE_GFX}
r_GFX_Free;
{$ENDIF}
{$IFDEF ENABLE_GFX}
r_GFX_Free;
{$ENDIF}
r_Map_Update;
r_PlayerModel_Update;
r_Console_Update;
r_Map_Update;
r_PlayerModel_Update;
r_Console_Update;
+ r_Items_Update;
end;
procedure r_Render_Draw;
end;
procedure r_Render_Draw;
end;
{$ENDIF}
end;
{$ENDIF}
+{$IFDEF ENABLE_MENU}
+ procedure r_Render_GetControlSize (ctrl: TGUIControl; out w, h: Integer);
+ begin
+ r_GUI_GetSize(ctrl, w, h)
+ end;
+
+ procedure r_Render_GetLogoSize (out w, h: Integer);
+ begin
+ r_GUI_GetLogoSize(w, h)
+ end;
+
+ procedure r_Render_GetMaxFontSize (BigFont: Boolean; out w, h: Integer);
+ begin
+ r_GUI_GetMaxFontSize(BigFont, w, h)
+ end;
+
+ procedure r_Render_GetStringSize (BigFont: Boolean; str: String; out w, h: Integer);
+ begin
+ r_GUI_GetStringSize(BigFont, str, w, h)
+ end;
+{$ENDIF}
+
procedure r_Render_DrawLoading (force: Boolean);
begin
r_Window_DrawLoading(force)
procedure r_Render_DrawLoading (force: Boolean);
begin
r_Window_DrawLoading(force)