1 files changed, 16 insertions, 5 deletions
diff --git a/Game/Code/Screens/UScreenLoading.pas b/Game/Code/Screens/UScreenLoading.pas
index 438b606e..2ccc5c79 100644
--- a/Game/Code/Screens/UScreenLoading.pas
+++ b/Game/Code/Screens/UScreenLoading.pas
@@ -2,22 +2,33 @@ unit UScreenLoading;
 
 interface
 
+{$I switches.inc}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+
 uses
-  UMenu, SDL, SysUtils, UThemes, OpenGL12;
+  UMenu,
+  SDL,
+  SysUtils,
+  UThemes,
+  OpenGL12;
 
 type
   TScreenLoading = class(TMenu)
     public
       Fadeout:      boolean;
       constructor Create; override;
-      function ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; override;
-      function GetBGTexNum: GLUInt;
-      procedure onShow; override;
+      procedure   onShow; override;
+      function    ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; override;
+      function    GetBGTexNum: GLUInt;
   end;
 
 implementation
 
-uses UGraphic, UTime;
+uses UGraphic,
+     UTime;
 
 function TScreenLoading.ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean;
 begin