Delphi-mode set for FPC

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

31 files changed, 164 insertions, 10 deletions

diff --git a/src/base/UCatCovers.pas b/src/base/UCatCovers.pas
index d8f6cdb0..c031c663 100644
--- a/src/base/UCatCovers.pas
+++ b/src/base/UCatCovers.pas
@@ -6,9 +6,14 @@ unit UCatCovers;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
-uses UIni;
+uses
+  UIni;
 
 type
   TCatCovers = class
diff --git a/src/base/UJoystick.pas b/src/base/UJoystick.pas
index 0ca7ba09..ec804295 100644
--- a/src/base/UJoystick.pas
+++ b/src/base/UJoystick.pas
@@ -2,10 +2,14 @@ unit UJoystick;
 
 interface
 
-{$I switches.inc}
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
 
+{$I switches.inc}
 
-uses SDL;
+uses
+  SDL;
 
 type
   TJoyButton = record
diff --git a/src/base/ULCD.pas b/src/base/ULCD.pas
index 82f7ba2f..bbd41c53 100644
--- a/src/base/ULCD.pas
+++ b/src/base/ULCD.pas
@@ -2,6 +2,10 @@ unit ULCD;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
 type
diff --git a/src/base/UModules.pas b/src/base/UModules.pas
index 554a24c4..f4503aeb 100644
--- a/src/base/UModules.pas
+++ b/src/base/UModules.pas
@@ -2,6 +2,10 @@ unit UModules;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
 {*********************
diff --git a/src/base/UPluginInterface.pas b/src/base/UPluginInterface.pas
index 77693d0f..1a80ad1b 100644
--- a/src/base/UPluginInterface.pas
+++ b/src/base/UPluginInterface.pas
@@ -7,6 +7,10 @@ unit uPluginInterface;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
 uses uPluginDefs;
diff --git a/src/base/USingNotes.pas b/src/base/USingNotes.pas
index 3b268d10..36e9515f 100644
--- a/src/base/USingNotes.pas
+++ b/src/base/USingNotes.pas
@@ -2,6 +2,10 @@ unit USingNotes;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
 { Dummy Unit atm
diff --git a/src/base/UTextClasses.pas b/src/base/UTextClasses.pas
index 9a12e1f5..fea183ee 100644
--- a/src/base/UTextClasses.pas
+++ b/src/base/UTextClasses.pas
@@ -2,6 +2,10 @@ unit UTextClasses;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
 uses
diff --git a/src/base/UXMLSong.pas b/src/base/UXMLSong.pas
index 1a1fe6bc..c4420cb7 100644
--- a/src/base/UXMLSong.pas
+++ b/src/base/UXMLSong.pas
@@ -1,7 +1,15 @@
 unit UXMLSong;
 
 interface
-uses Classes;
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+{$I switches.inc}
+
+uses
+  Classes;
 
 type
   TNote = record
diff --git a/src/menu/UDrawTexture.pas b/src/menu/UDrawTexture.pas
index a7dde18f..3ea1c5eb 100644
--- a/src/menu/UDrawTexture.pas
+++ b/src/menu/UDrawTexture.pas
@@ -2,6 +2,10 @@ unit UDrawTexture;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
 uses UTexture;
diff --git a/src/menu/UMenuButton.pas b/src/menu/UMenuButton.pas
index 60b92b9f..3d7442c0 100644
--- a/src/menu/UMenuButton.pas
+++ b/src/menu/UMenuButton.pas
@@ -2,9 +2,18 @@ unit UMenuButton;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
-uses TextGL, UTexture, gl, UMenuText,SDL;
+uses
+  TextGL,
+  UTexture,
+  gl,
+  UMenuText,
+  SDL;
 
 type
   CButton = class of TButton;
diff --git a/src/menu/UMenuButtonCollection.pas b/src/menu/UMenuButtonCollection.pas
index c700c812..1e36a565 100644
--- a/src/menu/UMenuButtonCollection.pas
+++ b/src/menu/UMenuButtonCollection.pas
@@ -2,6 +2,10 @@ unit UMenuButtonCollection;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
 uses UMenuButton;
diff --git a/src/menu/UMenuInteract.pas b/src/menu/UMenuInteract.pas
index e0b4fa11..a81a41c4 100644
--- a/src/menu/UMenuInteract.pas
+++ b/src/menu/UMenuInteract.pas
@@ -2,6 +2,10 @@ unit UMenuInteract;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
 type
diff --git a/src/menu/UMenuStatic.pas b/src/menu/UMenuStatic.pas
index ac8fa2dc..93ee9fa6 100644
--- a/src/menu/UMenuStatic.pas
+++ b/src/menu/UMenuStatic.pas
@@ -2,9 +2,15 @@ unit UMenuStatic;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
-uses UTexture, gl;
+uses
+  UTexture,
+  gl;
 
 type
   TStatic = class
diff --git a/src/screens/UScreenEdit.pas b/src/screens/UScreenEdit.pas
index bf664eb1..b6ed44b1 100644
--- a/src/screens/UScreenEdit.pas
+++ b/src/screens/UScreenEdit.pas
@@ -2,6 +2,10 @@ unit UScreenEdit;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
 uses UMenu, SDL, UThemes;
diff --git a/src/screens/UScreenEditHeader.pas b/src/screens/UScreenEditHeader.pas
index 28bf7682..3f362304 100644
--- a/src/screens/UScreenEditHeader.pas
+++ b/src/screens/UScreenEditHeader.pas
@@ -2,6 +2,10 @@ unit UScreenEditHeader;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
 uses UMenu,
diff --git a/src/screens/UScreenLevel.pas b/src/screens/UScreenLevel.pas
index 1ea79e7f..8ecd1bcf 100644
--- a/src/screens/UScreenLevel.pas
+++ b/src/screens/UScreenLevel.pas
@@ -2,6 +2,10 @@ unit UScreenLevel;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
 uses
diff --git a/src/screens/UScreenName.pas b/src/screens/UScreenName.pas
index f2d59f05..8da46775 100644
--- a/src/screens/UScreenName.pas
+++ b/src/screens/UScreenName.pas
@@ -2,6 +2,10 @@ unit UScreenName;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
 uses
diff --git a/src/screens/UScreenOpen.pas b/src/screens/UScreenOpen.pas
index 186b9b47..bb197aec 100644
--- a/src/screens/UScreenOpen.pas
+++ b/src/screens/UScreenOpen.pas
@@ -2,6 +2,10 @@ unit UScreenOpen;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
 uses UMenu, UMusic, SDL, SysUtils, UFiles, UTime, USongs, UIni, ULog, UTexture, UMenuText,
diff --git a/src/screens/UScreenOptions.pas b/src/screens/UScreenOptions.pas
index 24633115..96306df3 100644
--- a/src/screens/UScreenOptions.pas
+++ b/src/screens/UScreenOptions.pas
@@ -2,6 +2,10 @@ unit UScreenOptions;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
 uses
diff --git a/src/screens/UScreenOptionsAdvanced.pas b/src/screens/UScreenOptionsAdvanced.pas
index be8895e1..9460653d 100644
--- a/src/screens/UScreenOptionsAdvanced.pas
+++ b/src/screens/UScreenOptionsAdvanced.pas
@@ -2,6 +2,10 @@ unit UScreenOptionsAdvanced;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
 uses
diff --git a/src/screens/UScreenOptionsGame.pas b/src/screens/UScreenOptionsGame.pas
index 2dc8dd7f..3d542b65 100644
--- a/src/screens/UScreenOptionsGame.pas
+++ b/src/screens/UScreenOptionsGame.pas
@@ -2,6 +2,10 @@ unit UScreenOptionsGame;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
 uses
diff --git a/src/screens/UScreenOptionsGraphics.pas b/src/screens/UScreenOptionsGraphics.pas
index f2b6faa2..afee44a9 100644
--- a/src/screens/UScreenOptionsGraphics.pas
+++ b/src/screens/UScreenOptionsGraphics.pas
@@ -2,10 +2,20 @@ unit UScreenOptionsGraphics;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
 uses
-  UMenu, SDL, UDisplay, UMusic, UFiles, UIni, UThemes;
+  UMenu,
+  SDL,
+  UDisplay,
+  UMusic,
+  UFiles,
+  UIni,
+  UThemes;
 
 type
   TScreenOptionsGraphics = class(TMenu)
diff --git a/src/screens/UScreenOptionsLyrics.pas b/src/screens/UScreenOptionsLyrics.pas
index 42f1fadb..d0c60cfa 100644
--- a/src/screens/UScreenOptionsLyrics.pas
+++ b/src/screens/UScreenOptionsLyrics.pas
@@ -2,10 +2,20 @@ unit UScreenOptionsLyrics;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
 uses
-  UMenu, SDL, UDisplay, UMusic, UFiles, UIni, UThemes;
+  UMenu,
+  SDL,
+  UDisplay,
+  UMusic,
+  UFiles,
+  UIni,
+  UThemes;
 
 type
   TScreenOptionsLyrics = class(TMenu)
diff --git a/src/screens/UScreenOptionsThemes.pas b/src/screens/UScreenOptionsThemes.pas
index a4f00b64..d5beb2d2 100644
--- a/src/screens/UScreenOptionsThemes.pas
+++ b/src/screens/UScreenOptionsThemes.pas
@@ -2,6 +2,10 @@ unit UScreenOptionsThemes;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
 uses
diff --git a/src/screens/UScreenPartyPlayer.pas b/src/screens/UScreenPartyPlayer.pas
index fa717677..9d3b0410 100644
--- a/src/screens/UScreenPartyPlayer.pas
+++ b/src/screens/UScreenPartyPlayer.pas
@@ -1,11 +1,21 @@
 unit UScreenPartyPlayer;
 
-Interface
+interface
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
 
 {$I switches.inc}
 
 uses
-  UMenu, SDL, UDisplay, UMusic, UFiles, SysUtils, UThemes;
+  UMenu,
+  SDL,
+  UDisplay,
+  UMusic,
+  UFiles,
+  SysUtils,
+  UThemes;
 
 type
   TScreenPartyPlayer = class(TMenu)
diff --git a/src/screens/UScreenPartyScore.pas b/src/screens/UScreenPartyScore.pas
index 176a94b2..7c902f26 100644
--- a/src/screens/UScreenPartyScore.pas
+++ b/src/screens/UScreenPartyScore.pas
@@ -2,6 +2,10 @@ unit UScreenPartyScore;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
 uses
diff --git a/src/screens/UScreenPartyWin.pas b/src/screens/UScreenPartyWin.pas
index 002c6f75..3c7f4ea4 100644
--- a/src/screens/UScreenPartyWin.pas
+++ b/src/screens/UScreenPartyWin.pas
@@ -2,6 +2,10 @@ unit UScreenPartyWin;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
 uses
diff --git a/src/screens/UScreenPopup.pas b/src/screens/UScreenPopup.pas
index b51fac98..d75dc145 100644
--- a/src/screens/UScreenPopup.pas
+++ b/src/screens/UScreenPopup.pas
@@ -2,6 +2,10 @@ unit UScreenPopup;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
 uses
diff --git a/src/screens/UScreenSongJumpto.pas b/src/screens/UScreenSongJumpto.pas
index 89d198cc..35ec6e56 100644
--- a/src/screens/UScreenSongJumpto.pas
+++ b/src/screens/UScreenSongJumpto.pas
@@ -2,6 +2,10 @@ unit UScreenSongJumpto;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
 uses
diff --git a/src/screens/UScreenStatDetail.pas b/src/screens/UScreenStatDetail.pas
index 891b108d..00249e9a 100644
--- a/src/screens/UScreenStatDetail.pas
+++ b/src/screens/UScreenStatDetail.pas
@@ -2,6 +2,10 @@ unit UScreenStatDetail;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
 uses
diff --git a/src/screens/UScreenWelcome.pas b/src/screens/UScreenWelcome.pas
index 613f3a80..6c3fc52f 100644
--- a/src/screens/UScreenWelcome.pas
+++ b/src/screens/UScreenWelcome.pas
@@ -2,6 +2,10 @@ unit UScreenWelcome;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
 uses