popup with error count on start up, if there were any errors during the start up procedure.

shift+v for playing video with clicks (in editor)

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2161 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 9 insertions, 0 deletions

diff --git a/Game/Code/Screens/UScreenMain.pas b/Game/Code/Screens/UScreenMain.pas
index b2b4c497..4b6c58a4 100644
--- a/Game/Code/Screens/UScreenMain.pas
+++ b/Game/Code/Screens/UScreenMain.pas
@@ -14,6 +14,8 @@ type
       TextDescription:        integer;

       TextDescriptionLong:    integer;

 

+      ShowNumErrors:          boolean;

+

       constructor Create; override;

       function ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; override;

       procedure onShow; override;

@@ -262,6 +264,7 @@ begin
   AddButton(Theme.Main.ButtonExit);

 

   Interaction := 0;

+  ShowNumErrors := false;

 end;

 

 procedure TScreenMain.onShow;

@@ -273,6 +276,12 @@ begin
   PlaylistMan.Mode := 0;

   if not Help.SetHelpID(ID) then

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

+

+  if ShowNumErrors then

+  begin

+    ShowNumErrors := false;

+    ScreenPopupError.ShowPopup(IntToStr(Log.NumErrors) + ' errors on loading, see Error.log for details');

+  end;

 end;

 

 procedure TScreenMain.InteractNext;