* fixed windows keyboard layout switching and maybe other bugs, caused by not pumping all thread messages

git-svn-id: trunk@16178 -

packages/ptc/src/win32/base/window.inc

@@ -134,7 +134,10 @@ begin
     exit;
   if not FMultithreaded then
   begin
-    while PeekMessage(message, FWindow, 0, 0, PM_REMOVE) do
+    { updated to pump all window messages, and not just for our FWindow;
+      this fixes keyboard layout switching and maybe other bugs and side effects...
+      Seems like Windows wants everything pumped :) }
+    while PeekMessage(message, {FWindow}0, 0, 0, PM_REMOVE) do
     begin
       TranslateMessage(message);
       DispatchMessage(message);