From 3695aa1b4890d798acd1948884e7f296e523c464 Mon Sep 17 00:00:00 2001 From: tobigun Date: Thu, 23 Jul 2009 19:33:10 +0000 Subject: - Translations added - Info popup added git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1895 b956fd51-792f-4845-bead-9b4dfca2ff2c --- unicode/src/base/UMain.pas | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'unicode/src/base/UMain.pas') diff --git a/unicode/src/base/UMain.pas b/unicode/src/base/UMain.pas index 663ece9b..cc6ffc1d 100644 --- a/unicode/src/base/UMain.pas +++ b/unicode/src/base/UMain.pas @@ -437,6 +437,8 @@ begin if (ScreenPopupError <> nil) and (ScreenPopupError.Visible) then done := not ScreenPopupError.ParseMouse(mouseBtn, mouseDown, Event.button.x, Event.button.y) + else if (ScreenPopupInfo <> nil) and (ScreenPopupInfo.Visible) then + done := not ScreenPopupInfo.ParseMouse(mouseBtn, mouseDown, Event.button.x, Event.button.y) else if (ScreenPopupCheck <> nil) and (ScreenPopupCheck.Visible) then done := not ScreenPopupCheck.ParseMouse(mouseBtn, mouseDown, Event.button.x, Event.button.y) else @@ -511,6 +513,8 @@ begin // shoud be done in a way to be sure the topmost popup has preference (maybe error, then check) else if (ScreenPopupError <> nil) and (ScreenPopupError.Visible) then Done := not ScreenPopupError.ParseInput(Event.key.keysym.sym, Event.key.keysym.unicode, true) + else if (ScreenPopupInfo <> nil) and (ScreenPopupInfo.Visible) then + Done := not ScreenPopupInfo.ParseInput(Event.key.keysym.sym, Event.key.keysym.unicode, true) else if (ScreenPopupCheck <> nil) and (ScreenPopupCheck.Visible) then Done := not ScreenPopupCheck.ParseInput(Event.key.keysym.sym, Event.key.keysym.unicode, true) else -- cgit v1.2.3