index 4487afbf4c059a164e478e205ba2508c97a34597..5c2f51999d266304d91e2b9ef120d152d6cf3636 100644 (file)
implementation
uses
implementation
uses
- Math, utils, conbuf,
+ Math, SysUtils, utils, conbuf,
g_game, g_options, g_console, g_language,
r_draw, r_textures, r_fonts, r_common
;
g_game, g_options, g_console, g_language,
r_draw, r_textures, r_fonts, r_common
;
procedure r_Console_Load;
begin
r_Common_SetLoading(_lc[I_LOAD_CONSOLE], 1);
procedure r_Console_Load;
begin
r_Common_SetLoading(_lc[I_LOAD_CONSOLE], 1);
- Background := r_Textures_LoadFromFile(GameWad + ':TEXTURES/CONSOLE');
+ Background := r_Textures_LoadFromFile(GameWad + ':TEXTURES/CONSOLE', [TGLHints.txNoRepeat]);
end;
procedure r_Console_Free;
begin
end;
procedure r_Console_Free;
begin
- Background.Free;
+ r_Common_FreeAndNil(Background);
end;
procedure r_Console_Update;
end;
procedure r_Console_Update;