X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fopengl%2Fr_panel.pas;h=6b955e0faf7fcac4616338e78c2a1b0439153701;hb=f4de0d349a282253a43c8dcf7cd69e098657c312;hp=43682f8cc5eaf61c5e53bfecf4e15c8fa17b1e6f;hpb=fdec2c22a805354084c745fd93a535b66d8e3475;p=d2df-sdl.git

diff --git a/src/game/opengl/r_panel.pas b/src/game/opengl/r_panel.pas
index 43682f8..6b955e0 100644
--- a/src/game/opengl/r_panel.pas
+++ b/src/game/opengl/r_panel.pas
@@ -27,8 +27,8 @@ implementation
   uses
     {$INCLUDE ../nogl/noGLuses.inc}
     SysUtils, Classes, Math, utils,
-    r_graphics,
-    g_basic, g_textures, g_game
+    r_graphics, g_options, r_animations,
+    g_base, g_basic, g_textures, g_game
   ;
 
   procedure Panel_Lerp (p: TPanel; t: Single; out tX, tY, tW, tH: Integer);
@@ -65,7 +65,7 @@ implementation
             Exit;
           for xx := 0 to tw div TextureWidth - 1 do
             for yy := 0 to th div TextureHeight - 1 do
-              TextureIDs[FCurTexture].AnTex.Draw(tx + xx * TextureWidth, ty + yy * TextureHeight, TMirrorType.None);
+              r_Animation_Draw(TextureIDs[FCurTexture].AnTex, tx + xx * TextureWidth, ty + yy * TextureHeight, TMirrorType.None);
         end
         else
         begin