From 0a2abc145a59bfb2b0e0402a86115fa2da53c681 Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Fri, 15 Aug 2008 18:40:22 +0000
Subject: - Support for multiple song/cover paths. - Add multiple Song-Paths to
 the Ini file: [Directories] SongDir1=C:\... SongDir2=D:\... SongDirA=D:\... -
 UIni.pas clean-up

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1266 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/USongs.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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

diff --git a/Game/Code/Classes/USongs.pas b/Game/Code/Classes/USongs.pas
index 2c8e3587..710cd44f 100644
--- a/Game/Code/Classes/USongs.pas
+++ b/Game/Code/Classes/USongs.pas
@@ -195,6 +195,8 @@ begin
 end;
 
 procedure TSongs.int_LoadSongList;
+var
+  I: integer;
 begin
   try
     fProcessing := true;
@@ -202,10 +204,8 @@ begin
     Log.LogStatus('Searching For Songs', 'SongList');
 
     // browse directories
-    BrowseDir(SongPath);
-
-    if UserSongPath <> SongPath then
-      BrowseDir(UserSongPath);
+    for I := 0 to SongPaths.Count-1 do
+      BrowseDir(SongPaths[I]);
 
     if assigned( CatSongs ) then
       CatSongs.Refresh;
-- 
cgit v1.2.3