- 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

1 files changed, 9 insertions, 6 deletions

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;