diff options
author | jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-09-18 13:19:20 +0000 |
---|---|---|
committer | jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-09-18 13:19:20 +0000 |
commit | 433a1b7339e2bf96f3b0bb4c98b8c799c6540027 (patch) | |
tree | a448ca19c45319152f3d9a33f53a419c59908ede /Game/Code/Menu | |
parent | 067444c467e9f3e4dca07ecf10818023140c2873 (diff) | |
download | usdx-433a1b7339e2bf96f3b0bb4c98b8c799c6540027.tar.gz usdx-433a1b7339e2bf96f3b0bb4c98b8c799c6540027.tar.xz usdx-433a1b7339e2bf96f3b0bb4c98b8c799c6540027.zip |
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
Diffstat (limited to '')
-rw-r--r-- | Game/Code/Menu/UDisplay.pas | 7 | ||||
-rw-r--r-- | Game/Code/Menu/UMenu.pas | 4 | ||||
-rw-r--r-- | Game/Code/Menu/UMenuSelectSlide.pas | 10 | ||||
-rw-r--r-- | Game/Code/Menu/UMenuText.pas | 5 |
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
|