Runtime theme changing - jira#USDX-156

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@552 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 38 insertions, 1 deletions

diff --git a/Game/Code/Classes/UGraphic.pas b/Game/Code/Classes/UGraphic.pas
index bfad2d73..e13fdf43 100644
--- a/Game/Code/Classes/UGraphic.pas
+++ b/Game/Code/Classes/UGraphic.pas
@@ -230,6 +230,7 @@ procedure LoadTextures;
 procedure InitializeScreen;
 procedure LoadLoadingScreen;
 procedure LoadScreens;
+procedure UnLoadScreens;
 
 function LoadingThreadFunction: integer;
 
@@ -692,7 +693,7 @@ begin
   ScreenCredits    :=       TScreenCredits.Create;
   Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Credits', 3); Log.BenchmarkStart(3);
 
-  end;
+end;
 
 function LoadingThreadFunction: integer;
 begin
@@ -700,4 +701,40 @@ begin
   Result:= 1;
 end;
 
+procedure UnLoadScreens;
+begin

+  freeandnil( ScreenMain );

+  freeandnil( ScreenName );

+  freeandnil( ScreenLevel);

+  freeandnil( ScreenSong );

+  freeandnil( ScreenSongMenu );

+  freeandnil( ScreenSing );

+  freeandnil( ScreenScore);

+  freeandnil( ScreenTop5 );

+  freeandnil( ScreenOptions );

+  freeandnil( ScreenOptionsGame );

+  freeandnil( ScreenOptionsGraphics );

+  freeandnil( ScreenOptionsSound );

+  freeandnil( ScreenOptionsLyrics );

+//  freeandnil( ScreenOptionsThemes );

+  freeandnil( ScreenOptionsRecord );

+  freeandnil( ScreenOptionsAdvanced );

+  freeandnil( ScreenEditSub );

+  freeandnil( ScreenEdit );

+  freeandnil( ScreenEditConvert );

+  freeandnil( ScreenOpen );

+  freeandnil( ScreenSingModi );

+  freeandnil( ScreenSongMenu );

+  freeandnil( ScreenSongJumpto);

+  freeandnil( ScreenPopupCheck );

+  freeandnil( ScreenPopupError );

+  freeandnil( ScreenPartyNewRound );

+  freeandnil( ScreenPartyScore    );

+  freeandnil( ScreenPartyWin     );

+  freeandnil( ScreenPartyOptions  );

+  freeandnil( ScreenPartyPlayer   );

+  freeandnil( ScreenStatMain     );

+  freeandnil( ScreenStatDetail    );

+end;
+
 end.