diff options
author | jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-11-01 23:22:01 +0000 |
---|---|---|
committer | jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-11-01 23:22:01 +0000 |
commit | 99955c78f63d1cb0d8bec666bc33953590a74c8a (patch) | |
tree | 6fab123cf62264bb4997496c06d6d5230bad7248 /Game/Code/Screens/UScreenSong.pas | |
parent | 4df428bedccc51a542f46f3737a5848265d6dc27 (diff) | |
download | usdx-99955c78f63d1cb0d8bec666bc33953590a74c8a.tar.gz usdx-99955c78f63d1cb0d8bec666bc33953590a74c8a.tar.xz usdx-99955c78f63d1cb0d8bec666bc33953590a74c8a.zip |
fixed failed builds
build:USDX-LAZLIN-75
build:USDX-LAZLIN-76
for some reason we can not use {$MODE Delphi} in an
included file.
( Probably because of the way the compier scopes this switch to each pas file )
ive had to revert this part of eddies changes.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@548 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Game/Code/Screens/UScreenSong.pas')
-rw-r--r-- | Game/Code/Screens/UScreenSong.pas | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas index 3f2f5d58..85c38c26 100644 --- a/Game/Code/Screens/UScreenSong.pas +++ b/Game/Code/Screens/UScreenSong.pas @@ -2,6 +2,10 @@ unit UScreenSong; interface +{$IFDEF FPC} + {$MODE Delphi} +{$ENDIF} + {$I switches.inc} @@ -1719,7 +1723,7 @@ begin if (not AudioPlayback.Finished) AND (Theme.Song.Equalizer.Length > 0) then begin - + {$ifdef win32} A := GetTickCount div 44; if (A <> EqualizerTime) then @@ -1794,6 +1798,7 @@ begin else EqualizerBands[B] := 1; end; + {$endif} //Draw every Channel glColor4f(Theme.Song.Equalizer.ColR, Theme.Song.Equalizer.ColG, Theme.Song.Equalizer.ColB, Theme.Song.Equalizer.Alpha); //Set Color |