1 files changed, 7 insertions, 1 deletions
diff --git a/Game/Code/Screens/UScreenLoading.pas b/Game/Code/Screens/UScreenLoading.pas
index 05b308ac..5cc938bb 100644
--- a/Game/Code/Screens/UScreenLoading.pas
+++ b/Game/Code/Screens/UScreenLoading.pas
@@ -3,7 +3,7 @@ unit UScreenLoading;
 interface
 
 uses
-  UMenu, SDL, SysUtils, UThemes;
+  UMenu, SDL, SysUtils, UThemes, OpenGL12;
 
 type
   TScreenLoading = class(TMenu)
@@ -11,6 +11,7 @@ type
       Fadeout:      boolean;
       constructor Create(Back: String); override;
       function ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; override;
+      function GetBGTexNum: GLUInt;
       procedure onShow; override;
   end;
 
@@ -45,4 +46,9 @@ begin
 // nothing
 end;
 
+function TScreenLoading.GetBGTexNum: GLUInt;
+begin
+  Result := Self.BackImg.TexNum;
+end;
+
 end.