aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Screens/UScreenLoading.pas
diff options
context:
space:
mode:
Diffstat (limited to 'Game/Code/Screens/UScreenLoading.pas')
-rw-r--r--Game/Code/Screens/UScreenLoading.pas8
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.