From 1ef212ba89e50965b6b3b2d756be2c17e110b3ee Mon Sep 17 00:00:00 2001 From: tobigun Date: Sat, 6 Sep 2008 09:53:53 +0000 Subject: Delphi-mode set for FPC git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1348 b956fd51-792f-4845-bead-9b4dfca2ff2c --- src/base/UCatCovers.pas | 7 ++++++- src/base/UJoystick.pas | 8 ++++++-- src/base/ULCD.pas | 4 ++++ src/base/UModules.pas | 4 ++++ src/base/UPluginInterface.pas | 4 ++++ src/base/USingNotes.pas | 4 ++++ src/base/UTextClasses.pas | 4 ++++ src/base/UXMLSong.pas | 10 +++++++++- src/menu/UDrawTexture.pas | 4 ++++ src/menu/UMenuButton.pas | 11 ++++++++++- src/menu/UMenuButtonCollection.pas | 4 ++++ src/menu/UMenuInteract.pas | 4 ++++ src/menu/UMenuStatic.pas | 8 +++++++- src/screens/UScreenEdit.pas | 4 ++++ src/screens/UScreenEditHeader.pas | 4 ++++ src/screens/UScreenLevel.pas | 4 ++++ src/screens/UScreenName.pas | 4 ++++ src/screens/UScreenOpen.pas | 4 ++++ src/screens/UScreenOptions.pas | 4 ++++ src/screens/UScreenOptionsAdvanced.pas | 4 ++++ src/screens/UScreenOptionsGame.pas | 4 ++++ src/screens/UScreenOptionsGraphics.pas | 12 +++++++++++- src/screens/UScreenOptionsLyrics.pas | 12 +++++++++++- src/screens/UScreenOptionsThemes.pas | 4 ++++ src/screens/UScreenPartyPlayer.pas | 14 ++++++++++++-- src/screens/UScreenPartyScore.pas | 4 ++++ src/screens/UScreenPartyWin.pas | 4 ++++ src/screens/UScreenPopup.pas | 4 ++++ src/screens/UScreenSongJumpto.pas | 4 ++++ src/screens/UScreenStatDetail.pas | 4 ++++ src/screens/UScreenWelcome.pas | 4 ++++ 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 -- cgit v1.2.3