aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authortobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-09-06 09:53:53 +0000
committertobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-09-06 09:53:53 +0000
commit1ef212ba89e50965b6b3b2d756be2c17e110b3ee (patch)
treec8c4ae8f81097a00cd0650a133af05658a841355 /src
parent909cf4e491116930f6385e48165c6e770cf8505d (diff)
downloadusdx-1ef212ba89e50965b6b3b2d756be2c17e110b3ee.tar.gz
usdx-1ef212ba89e50965b6b3b2d756be2c17e110b3ee.tar.xz
usdx-1ef212ba89e50965b6b3b2d756be2c17e110b3ee.zip
Delphi-mode set for FPC
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1348 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r--src/base/UCatCovers.pas7
-rw-r--r--src/base/UJoystick.pas8
-rw-r--r--src/base/ULCD.pas4
-rw-r--r--src/base/UModules.pas4
-rw-r--r--src/base/UPluginInterface.pas4
-rw-r--r--src/base/USingNotes.pas4
-rw-r--r--src/base/UTextClasses.pas4
-rw-r--r--src/base/UXMLSong.pas10
-rw-r--r--src/menu/UDrawTexture.pas4
-rw-r--r--src/menu/UMenuButton.pas11
-rw-r--r--src/menu/UMenuButtonCollection.pas4
-rw-r--r--src/menu/UMenuInteract.pas4
-rw-r--r--src/menu/UMenuStatic.pas8
-rw-r--r--src/screens/UScreenEdit.pas4
-rw-r--r--src/screens/UScreenEditHeader.pas4
-rw-r--r--src/screens/UScreenLevel.pas4
-rw-r--r--src/screens/UScreenName.pas4
-rw-r--r--src/screens/UScreenOpen.pas4
-rw-r--r--src/screens/UScreenOptions.pas4
-rw-r--r--src/screens/UScreenOptionsAdvanced.pas4
-rw-r--r--src/screens/UScreenOptionsGame.pas4
-rw-r--r--src/screens/UScreenOptionsGraphics.pas12
-rw-r--r--src/screens/UScreenOptionsLyrics.pas12
-rw-r--r--src/screens/UScreenOptionsThemes.pas4
-rw-r--r--src/screens/UScreenPartyPlayer.pas14
-rw-r--r--src/screens/UScreenPartyScore.pas4
-rw-r--r--src/screens/UScreenPartyWin.pas4
-rw-r--r--src/screens/UScreenPopup.pas4
-rw-r--r--src/screens/UScreenSongJumpto.pas4
-rw-r--r--src/screens/UScreenStatDetail.pas4
-rw-r--r--src/screens/UScreenWelcome.pas4
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