aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Screens
diff options
context:
space:
mode:
authorjaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-09-18 11:16:30 +0000
committerjaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-09-18 11:16:30 +0000
commite3fc5e2c58302159b79e0e25e183aa3e75397a41 (patch)
treebb3a3d66b990231ada3e445c2ba623f15018a5b9 /Game/Code/Screens
parent7e2e8a8f5a195ac0c49dcb941d065dd9bf0e0256 (diff)
downloadusdx-e3fc5e2c58302159b79e0e25e183aa3e75397a41.tar.gz
usdx-e3fc5e2c58302159b79e0e25e183aa3e75397a41.tar.xz
usdx-e3fc5e2c58302159b79e0e25e183aa3e75397a41.zip
added switches.inc , which will contain compiler directives used
( at least ) for porting to linux. this file now contains compiler directive UseSerialPort, which is conditionally set depending on the compiler. at this point lazarus will not use the serial port ( LCD or Light ) units. however this functionality should be maintained at this point in delphi. git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@390 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Game/Code/Screens')
-rw-r--r--Game/Code/Screens/UScreenSong.pas11
1 files changed, 8 insertions, 3 deletions
diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas
index 38266797..2d10c9dc 100644
--- a/Game/Code/Screens/UScreenSong.pas
+++ b/Game/Code/Screens/UScreenSong.pas
@@ -1,6 +1,7 @@
unit UScreenSong;
interface
+{$I switches.inc}
uses
UMenu, SDL, UMusic, UFiles, UTime, UDisplay, USongs, SysUtils, ULog, UThemes, UTexture, ULanguage,
@@ -344,9 +345,13 @@ begin
end;
SDLK_RETURN:
begin
- if Length(Songs.Song) > 0 then begin
-// PortWriteB($378, 0);
- if CatSongs.Song[Interaction].Main then begin // clicked on Category Button
+ if Length(Songs.Song) > 0 then
+ begin
+ {$IFDEF UseSerialPort}
+ // PortWriteB($378, 0);
+ {$ENDIF}
+ if CatSongs.Song[Interaction].Main then
+ begin // clicked on Category Button
//Show Cat in Top Left Mod
ShowCatTL (Interaction);