diff options
author | brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2010-04-28 19:54:31 +0000 |
---|---|---|
committer | brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2010-04-28 19:54:31 +0000 |
commit | 60e6d3f9904a8114e985fccd14454b9b604ea275 (patch) | |
tree | c3dc298e5c81272f3df8e80171ae0f60d8774f2e /Game/Code/Screens/UScreenOptionsGame.pas | |
parent | 58a47541955f5010269d72a06e307bbb945211ea (diff) | |
download | usdx-60e6d3f9904a8114e985fccd14454b9b604ea275.tar.gz usdx-60e6d3f9904a8114e985fccd14454b9b604ea275.tar.xz usdx-60e6d3f9904a8114e985fccd14454b9b604ea275.zip |
- 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
Diffstat (limited to 'Game/Code/Screens/UScreenOptionsGame.pas')
-rw-r--r-- | Game/Code/Screens/UScreenOptionsGame.pas | 20 |
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 |