paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 23:49:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't eat cpu while showing the user screen

Browse Source 
git-svn-id: trunk@5166 -
This commit is contained in:
florian 2006-11-01 23:51:34 +00:00
parent 0c1b7910ab
commit c95785db04
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/fpmdebug.inc
View File

@ -94,6 +94,7 @@ begin
{ closing the user screen on mouse events makes copy paste impossible } { closing the user screen on mouse events makes copy paste impossible }
repeat repeat
repeat repeat
GiveUpTimeSlice;
Drivers.GetKeyEvent(Event); Drivers.GetKeyEvent(Event);
until Event.What=evKeyboard; until Event.What=evKeyboard;
Clear:=true; Clear:=true;
@ -114,7 +115,7 @@ begin
ClearEvent(Event); ClearEvent(Event);
until Event.what=evKeyboard; until Event.what=evKeyboard;
while (Keyboard.PollKeyEvent<>0) do while (Keyboard.PollKeyEvent<>0) do
Keyboard.GetKeyEvent; Keyboard.GetKeyEvent;
DoneKeyboard; DoneKeyboard;
ShowIDEScreen; ShowIDEScreen;