aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes/UMain.pas
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/Classes/UMain.pas
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 '')
-rw-r--r--Game/Code/Classes/UMain.pas14
1 files changed, 12 insertions, 2 deletions
diff --git a/Game/Code/Classes/UMain.pas b/Game/Code/Classes/UMain.pas
index 43010bde..e89b4785 100644
--- a/Game/Code/Classes/UMain.pas
+++ b/Game/Code/Classes/UMain.pas
@@ -1,8 +1,16 @@
unit UMain;
interface
+{$I switches.inc}
+
uses SDL, UGraphic, UMusic, URecord, UTime, SysUtils, UDisplay, UIni, ULog, ULyrics, UScreenSing,
- OpenGL12, zlportio {you can disable it and all PortWriteB calls}, ULCD, ULight, UThemes{, UScreenPopup};
+ OpenGL12,
+
+ {$IFDEF UseSerialPort}
+ zlportio {you can disable it and all PortWriteB calls},
+ {$ENDIF}
+
+ ULCD, ULight, UThemes{, UScreenPopup};
type
TPlayer = record
@@ -512,7 +520,9 @@ begin
if (TempBeat mod 4 <> 0) then Music.PlayHihat;*)
end;
- //PortWriteB($378, LPT_1 + LPT_2 * 2); // 0 zapala
+ {$IFDEF UseSerialPort}
+ // PortWriteB($378, LPT_1 + LPT_2 * 2); // 0 zapala
+ {$ENDIF}
end;
procedure NewBeatD(Sender: TScreenSing);