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

--- Merging r36663 into '.':

Browse Source 
U    packages/rtl-console/src/win/winevent.pp
--- Recording mergeinfo for merge of r36663 into '.':
 U   .

# revisions: 36663

git-svn-id: branches/fixes_3_0@37101 -
This commit is contained in:
marco 2017-09-01 12:00:44 +00:00
parent e502f7a1d7
commit e3c793394b
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/rtl-console/src/win/winevent.pp
View File

@ -203,9 +203,10 @@ interface
{ mouse event can be disabled by mouse.inc code
in DoneMouse
so use a key event instead PM }
WriteConsoleInput(StdInputHandle,ir,1,written);
{ 20170707 mantis #32096, only wait if really written}
if WriteConsoleInput(StdInputHandle,ir,1,written) then
{ wait, til the thread is ready }
WaitForSingleObject(EventThreadHandle,INFINITE);
WaitForSingleObject(EventThreadHandle,INFINITE);
CloseHandle(EventThreadHandle);
end;
end;