From a1c2876fb12cfc860044f00210f69a9bdc2cf687 Mon Sep 17 00:00:00 2001
From: jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 20 Sep 2007 10:35:02 +0000
Subject: minor fixes for lazarus build.. forgot file... oops.. :)

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@416 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Screens/UScreenLoading.pas | 21 ++++++++++++++++-----
 1 file changed, 16 insertions(+), 5 deletions(-)

(limited to 'Game/Code/Screens')

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
-- 
cgit v1.2.3