diff options
author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-02-05 16:26:40 +0000 |
---|---|---|
committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-02-05 16:26:40 +0000 |
commit | 2eb92f1b07828c0631d297bd26cfb249ccbd20ef (patch) | |
tree | eca6ada4b5e347438f4cab4226e6e174d2ef9361 /Game/Code/Classes/USongs.pas | |
parent | 18aef1647d6801456b65f893789414ecd24dc268 (diff) | |
download | usdx-2eb92f1b07828c0631d297bd26cfb249ccbd20ef.tar.gz usdx-2eb92f1b07828c0631d297bd26cfb249ccbd20ef.tar.xz usdx-2eb92f1b07828c0631d297bd26cfb249ccbd20ef.zip |
- DirWatch-support with FPC (windows only)
- added UAudioCore_Bass.pas
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@823 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r-- | Game/Code/Classes/USongs.pas | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/Game/Code/Classes/USongs.pas b/Game/Code/Classes/USongs.pas index 53d5556f..97e8d073 100644 --- a/Game/Code/Classes/USongs.pas +++ b/Game/Code/Classes/USongs.pas @@ -17,9 +17,7 @@ interface uses
{$IFDEF MSWINDOWS}
Windows,
- {$IFDEF Delphi}
- DirWatch,
- {$ENDIF}
+ DirWatch,
{$ELSE}
{$IFNDEF DARWIN}
syscall,
@@ -66,7 +64,7 @@ type fWatch : longint;
fParseSongDirectory : boolean;
fProcessing : boolean;
- {$ifdef Delphi}
+ {$ifdef MSWINDOWS}
fDirWatch : TDirectoryWatch;
{$endif}
procedure int_LoadSongList;
@@ -151,7 +149,7 @@ begin SongList := TList.create();
- {$ifdef Delphi}
+ {$ifdef MSWINDOWS}
fDirWatch := TDirectoryWatch.create(nil);
fDirWatch.OnChange := DoDirChanged;
fDirWatch.Directory := SongPath;
|