From f81109f575a1e4e36d9c024f90265e01dcf2c354 Mon Sep 17 00:00:00 2001
From: k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sat, 22 Nov 2014 21:56:46 +0000
Subject: Call LoadSong() only before playing the song. This speeds up the
 initial load because not all song contents have to be parsed on startup.
 Thanks to rudi_s.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@3100 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/base/USong.pas | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'src/base')

diff --git a/src/base/USong.pas b/src/base/USong.pas
index 4f35d774..a8581ebd 100644
--- a/src/base/USong.pas
+++ b/src/base/USong.pas
@@ -623,7 +623,9 @@ begin
       Lines[Count].Line[High(Lines[Count].Line)].LastLine := true;
   end;
 
-  Result := true;
+  FindRefrain();
+
+	Result := true;
 end;
 
 //Load XML Song
@@ -1581,10 +1583,6 @@ begin
 
     //Load Song for Medley Tags
     CurrentSong := self;
-    Result := Result and LoadSong();
-
-    if Result then
-      Self.FindRefrain();
   finally
     SongFile.Free;
   end;
-- 
cgit v1.2.3