paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 02:49:28 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -134,7 +134,10 @@ begin
exit; exit;
if not FMultithreaded then if not FMultithreaded then
begin 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 begin
TranslateMessage(message); TranslateMessage(message);
DispatchMessage(message); DispatchMessage(message);