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

2 files changed, 5 insertions, 0 deletions

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