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

Amiga-likes: do not call Drivers.GetSystemEvent, FV doesn't really handle it, and causes issues if the system events are swallowed by various components. the IDE has direct system event integration in its main loop.

Browse Source 
git-svn-id: trunk@29332 -
This commit is contained in:
Károly Balogh 2014-12-26 23:09:43 +00:00
parent 3dcccea788
commit 136f845576
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fv/src/app.pas
View File

@ -947,8 +947,14 @@ BEGIN
Drivers.GetMouseEvent(Event); { Load mouse event }
If (Event.What = evNothing) Then
begin
{$IFNDEF HASAMIGA}
{ due to isses with the event handling in FV itself,
we skip this here, and let the IDE to handle it
directly on Amiga-like systems. The FV itself cannot
handle the System Events anyway. (KB) }
Drivers.GetSystemEvent(Event); { Load system event }
If (Event.What = evNothing) Then
{$ENDIF}
Idle; { Idle if no event }
end;
End;