diff options
author | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2016-01-06 10:31:37 +0000 |
---|---|---|
committer | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2016-01-06 10:31:37 +0000 |
commit | 052ee11accb94fe2f4048156dc1e1beadb34acfd (patch) | |
tree | 691f3c9a2e089e882761d23ca980f57f5758e3f0 /src/base | |
parent | ce3f910c28c2f6f91f7138690e5284d000ba05e9 (diff) | |
download | usdx-052ee11accb94fe2f4048156dc1e1beadb34acfd.tar.gz usdx-052ee11accb94fe2f4048156dc1e1beadb34acfd.tar.xz usdx-052ee11accb94fe2f4048156dc1e1beadb34acfd.zip |
add About screen
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@3192 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'src/base')
-rw-r--r-- | src/base/UGraphic.pas | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/base/UGraphic.pas b/src/base/UGraphic.pas index f0b60b95..6df125ca 100644 --- a/src/base/UGraphic.pas +++ b/src/base/UGraphic.pas @@ -67,6 +67,7 @@ uses UScreenEditConvert, UScreenEditHeader, UScreenOpen, + UScreenAbout, UThemes, USkins, UScreenSongMenu, @@ -129,6 +130,7 @@ var ScreenEditConvert: TScreenEditConvert; ScreenEditHeader: TScreenEditHeader; ScreenOpen: TScreenOpen; + ScreenAbout: TScreenAbout; ScreenSongMenu: TScreenSongMenu; ScreenSongJumpto: TScreenSongJumpto; @@ -761,6 +763,9 @@ begin SDL_WM_SetCaption(PChar(Title + ' - Loading ScreenEditConvert & ScreenOpen'), nil); ScreenEditConvert := TScreenEditConvert.Create; ScreenOpen := TScreenOpen.Create; + SDL_WM_SetCaption(PChar(Title + ' - Loading ScreenAbout'), nil); + ScreenAbout := TScreenAbout.Create; + Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen About', 3); Log.BenchmarkStart(3); SDL_WM_SetCaption(PChar(Title + ' - Loading ScreenSongMenu & ScreenSongJumpto'), nil); ScreenSongMenu := TScreenSongMenu.Create; ScreenSongJumpto := TScreenSongJumpto.Create; @@ -813,6 +818,7 @@ begin ScreenEdit.Free; ScreenEditConvert.Free; ScreenOpen.Free; + ScreenAbout.Free; //ScreenSingModi.Free; ScreenSongMenu.Free; ScreenSongJumpto.Free; |