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

+ also check for system events

Browse Source
This commit is contained in:
pierre 2002-06-06 20:34:19 +00:00
parent 7648b93a0f
commit ea5df44258
2 changed files with 30 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
fv/app.pas
View File

@ -951,8 +951,17 @@ BEGIN
End;
{$endif DEBUG}
If (Event.What = evNothing) Then Begin { No mouse event }
Drivers.GetMouseEvent(Event); { Load mouse event }
If (Event.What = evNothing) Then Idle; { Idle if no event }
Drivers.GetMouseEvent(Event); { Load mouse event }
If (Event.What = evNothing) Then
{$ifdef HasSysMsgUnit}
begin
Drivers.GetSystemEvent(Event); { Load system event }
If (Event.What = evNothing) Then
{$endif HasSysMsgUnit}
Idle; { Idle if no event }
{$ifdef HasSysMsgUnit}
end;
{$endif HasSysMsgUnit}
End;
End;
End;
@ -1184,7 +1193,10 @@ END;
END.
{
$Log$
Revision 1.16 2002-05-25 23:24:29 pierre
Revision 1.17 2002-06-06 20:34:19 pierre
+ also check for system events
Revision 1.16 2002/05/25 23:24:29 pierre
* add DoneResource to fix memory leak
Revision 1.15 2002/05/23 07:30:33 pierre

18
fvision/app.pas
View File

@ -951,8 +951,17 @@ BEGIN
End;
{$endif DEBUG}
If (Event.What = evNothing) Then Begin { No mouse event }
Drivers.GetMouseEvent(Event); { Load mouse event }
If (Event.What = evNothing) Then Idle; { Idle if no event }
Drivers.GetMouseEvent(Event); { Load mouse event }
If (Event.What = evNothing) Then
{$ifdef HasSysMsgUnit}
begin
Drivers.GetSystemEvent(Event); { Load system event }
If (Event.What = evNothing) Then
{$endif HasSysMsgUnit}
Idle; { Idle if no event }
{$ifdef HasSysMsgUnit}
end;
{$endif HasSysMsgUnit}
End;
End;
End;
@ -1184,7 +1193,10 @@ END;
END.
{
$Log$
Revision 1.16 2002-05-25 23:24:29 pierre
Revision 1.17 2002-06-06 20:34:19 pierre
+ also check for system events
Revision 1.16 2002/05/25 23:24:29 pierre
* add DoneResource to fix memory leak
Revision 1.15 2002/05/23 07:30:33 pierre