- 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, 11 insertions, 9 deletions

diff --git a/Game/Code/Screens/UScreenOptionsGame.pas b/Game/Code/Screens/UScreenOptionsGame.pas
index c9268931..a77ce5b3 100644
--- a/Game/Code/Screens/UScreenOptionsGame.pas
+++ b/Game/Code/Screens/UScreenOptionsGame.pas
@@ -75,17 +75,11 @@ begin
 end;

 

 constructor TScreenOptionsGame.Create;

-var

-  I:      integer;

 begin

   inherited Create;

 

   LoadFromTheme(Theme.OptionsGame);

 

-  //Refresh Songs Patch

-  old_Sorting := Ini.Sorting;

-  old_Tabs    := Ini.Tabs;

-

   AddSelect(Theme.OptionsGame.SelectPlayers, Ini.Players, IPlayers);

   AddSelect(Theme.OptionsGame.SelectDifficulty, Ini.Difficulty, IDifficulty);

   AddSelectSlide(Theme.OptionsGame.SelectLanguage, Ini.Language, ILanguage);

@@ -104,8 +98,12 @@ end;
 //Refresh Songs Patch

 procedure TScreenOptionsGame.RefreshSongs;

 begin

-if (ini.Sorting <> old_Sorting) or (ini.Tabs <> old_Tabs) then

-    ScreenSong.Refresh;

+  if (ini.Sorting <> old_Sorting) or (ini.Tabs <> old_Tabs) then

+  begin

+    //Tabs at Startup fix

+    Ini.Tabs_at_startup := Ini.Tabs;

+    ScreenSong.Refresh(false);

+  end;

 end;

 

 procedure TScreenOptionsGame.onShow;

@@ -113,6 +111,10 @@ begin
 //  Interaction := 0;

   if not Help.SetHelpID(ID) then

     Log.LogError('No Entry for Help-ID ' + ID + ' (ScreenOptionsGame)');

+

+  //Refresh Songs Patch

+  old_Sorting := Ini.Sorting;

+  old_Tabs    := Ini.Tabs;

 end;

 

-end.

+end.
\ No newline at end of file