2 files changed, 16 insertions, 1 deletions
diff --git a/Game/Code/Screens/UScreenEditSub.pas b/Game/Code/Screens/UScreenEditSub.pas
index 0f11faf0..d5c7d9aa 100644
--- a/Game/Code/Screens/UScreenEditSub.pas
+++ b/Game/Code/Screens/UScreenEditSub.pas
@@ -543,8 +543,13 @@ begin
             CopySentence(CopySrc, Czesci[0].Akt);
           end;
 
-          if SDL_ModState = 0 then begin
+          if SDL_ModState = 0 then
             StartVideo;
+
+          if SDL_ModState = KMOD_LSHIFT then
+          begin
+            StartVideo;
+            Click := true;
           end;
         end;
 
@@ -2182,6 +2187,7 @@ begin
   Lyric.Draw;
 
   DrawInfoBar(20, 460, 760, 20);
+  glLineWidth(1); //bad fix...
 
   if UVideo.VideoOpened and PlayVideo then
   begin
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;