paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 20:09:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@16178 -
This commit is contained in:
nickysn 2010-10-17 14:32:25 +00:00
parent d248315ae4
commit 15e59b8ace
1 changed files with 4 additions and 1 deletions

5
packages/ptc/src/win32/base/window.inc
View File

@ -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);