From 34988301a511ca8552a954c231fafde007cb94a1 Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Fri, 20 Apr 2007 15:29:48 +0000
Subject: Some Memory tweaking (13 MB Less Ram using at 800 Songs) Some Loading
 Time tweaking (From 8 Secs to 6 Secs on my Computer)

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@123 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Screens/UScreenOptionsRecord.pas | 2 ++
 Game/Code/Screens/UScreenSong.pas          | 3 +++
 2 files changed, 5 insertions(+)

(limited to 'Game/Code/Screens')

diff --git a/Game/Code/Screens/UScreenOptionsRecord.pas b/Game/Code/Screens/UScreenOptionsRecord.pas
index e6989d43..1d09d0b8 100644
--- a/Game/Code/Screens/UScreenOptionsRecord.pas
+++ b/Game/Code/Screens/UScreenOptionsRecord.pas
@@ -72,6 +72,8 @@ var
   SC:     integer;
   SCI:    integer;
 begin
+  inherited Create;
+  
   AddBackground(Theme.OptionsRecord.Background.Tex);
   for I := 0 to High(Theme.OptionsRecord.Static) do
     AddStatic(Theme.OptionsRecord.Static[I]);
diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas
index 7c8447ee..79a5abb1 100644
--- a/Game/Code/Screens/UScreenSong.pas
+++ b/Game/Code/Screens/UScreenSong.pas
@@ -634,6 +634,9 @@ begin
   // Song List
 //  Songs.LoadSongList; // moved to the UltraStar unit
   CatSongs.Refresh;
+
+  //Set Length of Button Array one Time Instead of one time for every Song
+  SetButtonLength(Length(CatSongs.Song));
   for Pet := 0 to High(CatSongs.Song) do begin // creating all buttons
     // new
     Texture.Limit := 512;// 256 0.4.2 value, 512 in 0.5.0
-- 
cgit v1.2.3