From 2eb92f1b07828c0631d297bd26cfb249ccbd20ef Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Tue, 5 Feb 2008 16:26:40 +0000
Subject: - 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
---
 Game/Code/Classes/USongs.pas | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'Game/Code/Classes/USongs.pas')

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;
-- 
cgit v1.2.3