From 60e6d3f9904a8114e985fccd14454b9b604ea275 Mon Sep 17 00:00:00 2001
From: brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 28 Apr 2010 19:54:31 +0000
Subject: - new SDL.dll (with a quick and dirty workaround for the
 hanging-mouse problem) - changing of sorting and folder-option (on/off) does
 not need any restart now - a lot of code clean up - some bugfixes... i
 hope... dont't know which...

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2316 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Screens/UScreenStatMain.pas | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

(limited to 'Game/Code/Screens/UScreenStatMain.pas')

diff --git a/Game/Code/Screens/UScreenStatMain.pas b/Game/Code/Screens/UScreenStatMain.pas
index b82e655c..68eac441 100644
--- a/Game/Code/Screens/UScreenStatMain.pas
+++ b/Game/Code/Screens/UScreenStatMain.pas
@@ -84,8 +84,8 @@ begin
 end;
 
 constructor TScreenStatMain.Create;
-var
-  I:    integer;
+{var
+  I:    integer;}
 begin
   inherited Create;
 
@@ -114,16 +114,19 @@ begin
     AddButtonText(14, 20, Theme.Options.Description[4]);
 
   Interaction := 0;
+end;
 
+procedure TScreenStatMain.onShow;
+var
+  I:    Integer;
+  
+begin
   //Set Songs with Vid
   SongswithVid := 0;
   For I := 0 to high(Songs.Song) do
     if (Songs.Song[I].Video <> '') then
       Inc(SongswithVid);
-end;
 
-procedure TScreenStatMain.onShow;
-begin
   //Set Overview Text:
   SetOverview;
   if not Help.SetHelpID(ID) then
@@ -133,7 +136,7 @@ end;
 procedure TScreenStatMain.SetOverview;
 var
   Overview, Formatstr: String;
-  I: Integer;
+  //I: Integer;
   //Some Vars to Save Attributes to
   A1, A2, A3: Integer;
   A4, A5: String;
-- 
cgit v1.2.3