diff options
| author | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-10-17 14:32:25 +0000 |
|---|---|---|
| committer | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-10-17 14:32:25 +0000 |
| commit | 51001efe107ac8c2a27990addd8c6da74c910506 (patch) | |
| tree | 1ae176e06bbc31d3adde4144a2cf499faeabc907 /packages/ptc | |
| parent | eea56e5bcbb9f2defbb6ede0f0ab7c0e96891dbb (diff) | |
| download | fpc-51001efe107ac8c2a27990addd8c6da74c910506.tar.gz | |
* fixed windows keyboard layout switching and maybe other bugs, caused by not pumping all thread messages
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@16178 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/ptc')
| -rw-r--r-- | packages/ptc/src/win32/base/window.inc | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/packages/ptc/src/win32/base/window.inc b/packages/ptc/src/win32/base/window.inc index a451f533fd..8b953b1611 100644 --- a/packages/ptc/src/win32/base/window.inc +++ b/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); |