From 052ee11accb94fe2f4048156dc1e1beadb34acfd Mon Sep 17 00:00:00 2001
From: k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 6 Jan 2016 10:31:37 +0000
Subject: add About screen

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@3192 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/base/UGraphic.pas | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/base/UGraphic.pas')

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;
-- 
cgit v1.2.3