changes in order to compile in lazarus...

minor tidy ups and removal of big old comment blocks..

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@394 b956fd51-792f-4845-bead-9b4dfca2ff2c

4 files changed, 23 insertions, 3 deletions

diff --git a/Game/Code/Menu/UDisplay.pas b/Game/Code/Menu/UDisplay.pas
index 2af1dfa0..6ad01406 100644
--- a/Game/Code/Menu/UDisplay.pas
+++ b/Game/Code/Menu/UDisplay.pas
@@ -52,8 +52,11 @@ var
 

 implementation

 

-uses Graphics,

-     Jpeg,

+uses

+     {$IFNDEF FPC}

+     Graphics,

+     JPEG,

+     {$ENDIF}

      TextGL,

      // UFiles,

      UMain,

diff --git a/Game/Code/Menu/UMenu.pas b/Game/Code/Menu/UMenu.pas
index b0622d4b..3c50967d 100644
--- a/Game/Code/Menu/UMenu.pas
+++ b/Game/Code/Menu/UMenu.pas
@@ -2,6 +2,10 @@ unit UMenu;
 

 interface

 

+{$IFDEF FPC}

+  {$MODE Delphi}

+{$ENDIF}

+

 uses OpenGL12, SysUtils, UTexture, UMenuStatic, UMenuText, UMenuButton, UMenuSelect, UMenuSelectSlide,

   UMenuInteract, UThemes, UMenuButtonCollection, Math;

 

diff --git a/Game/Code/Menu/UMenuSelectSlide.pas b/Game/Code/Menu/UMenuSelectSlide.pas
index 3659c00d..bb9b5809 100644
--- a/Game/Code/Menu/UMenuSelectSlide.pas
+++ b/Game/Code/Menu/UMenuSelectSlide.pas
@@ -1,7 +1,15 @@
 unit UMenuSelectSlide;

 

 interface

-uses TextGL, UTexture, OpenGL12, UMenuText;

+

+{$IFDEF FPC}

+  {$MODE Delphi}

+{$ENDIF}

+

+uses TextGL,

+     UTexture,

+     OpenGL12,

+     UMenuText;

 

 type

   PSelectSlide = ^TSelectSlide;

diff --git a/Game/Code/Menu/UMenuText.pas b/Game/Code/Menu/UMenuText.pas
index 4713962e..cba237b8 100644
--- a/Game/Code/Menu/UMenuText.pas
+++ b/Game/Code/Menu/UMenuText.pas
@@ -1,6 +1,11 @@
 unit UMenuText;

 

 interface

+

+{$IFDEF FPC}

+  {$MODE Delphi}

+{$ENDIF}

+

 uses TextGL, UTexture, OpenGL12, SysUtils;

 

 type