X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Frenders%2Fopengl%2Fr_console.pas;h=5c2f51999d266304d91e2b9ef120d152d6cf3636;hb=b4e158834e92ec5c007a8af5a116855b8062c82d;hp=60b14c1f6b12c38b485691b6dc483d51a4e646d3;hpb=7f582aab480b6d0280751d5bcacc54437cba2cc5;p=d2df-sdl.git

diff --git a/src/game/renders/opengl/r_console.pas b/src/game/renders/opengl/r_console.pas
index 60b14c1..5c2f519 100644
--- a/src/game/renders/opengl/r_console.pas
+++ b/src/game/renders/opengl/r_console.pas
@@ -29,8 +29,8 @@ interface
 implementation
 
   uses
-    Math, utils, conbuf,
-    g_game, g_options, g_console,
+    Math, SysUtils, utils, conbuf,
+    g_game, g_options, g_console, g_language,
     r_draw, r_textures, r_fonts, r_common
   ;
 
@@ -56,12 +56,13 @@ implementation
 
   procedure r_Console_Load;
   begin
-    Background := r_Textures_LoadFromFile(GameWad + ':TEXTURES/CONSOLE');
+    r_Common_SetLoading(_lc[I_LOAD_CONSOLE], 1);
+    Background := r_Textures_LoadFromFile(GameWad + ':TEXTURES/CONSOLE', [TGLHints.txNoRepeat]);
   end;
 
   procedure r_Console_Free;
   begin
-    Background.Free;
+    r_Common_FreeAndNil(Background);
   end;
 
   procedure r_Console_Update;