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

* add DoneMouse in DoneEvents

Browse Source
This commit is contained in:
pierre 2002-06-10 19:40:14 +00:00
parent 1dfb9e5a9b
commit ac39f08955
2 changed files with 20 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fv/drivers.pas
View File

@ -1283,6 +1283,8 @@ BEGIN
{$ifdef HasSysMsgUnit} {$ifdef HasSysMsgUnit}
DoneSystemMsg; DoneSystemMsg;
{$endif HasSysMsgUnit} {$endif HasSysMsgUnit}
Mouse.DoneMouse;
MouseEvents:=false;
END; END;
{+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++} {+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
@ -1671,7 +1673,10 @@ BEGIN
END. END.
{ {
$Log$ $Log$
Revision 1.29 2002-06-10 18:16:55 pierre Revision 1.30 2002-06-10 19:40:14 pierre
* add DoneMouse in DoneEvents
Revision 1.29 2002/06/10 18:16:55 pierre
* set Event.What to evNothing if no event in GetSystemEvent * set Event.What to evNothing if no event in GetSystemEvent
Revision 1.28 2002/06/07 14:08:28 pierre Revision 1.28 2002/06/07 14:08:28 pierre

7
fvision/drivers.pas
View File

@ -1283,6 +1283,8 @@ BEGIN
{$ifdef HasSysMsgUnit} {$ifdef HasSysMsgUnit}
DoneSystemMsg; DoneSystemMsg;
{$endif HasSysMsgUnit} {$endif HasSysMsgUnit}
Mouse.DoneMouse;
MouseEvents:=false;
END; END;
{+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++} {+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
@ -1671,7 +1673,10 @@ BEGIN
END. END.
{ {
$Log$ $Log$
Revision 1.29 2002-06-10 18:16:55 pierre Revision 1.30 2002-06-10 19:40:14 pierre
* add DoneMouse in DoneEvents
Revision 1.29 2002/06/10 18:16:55 pierre
* set Event.What to evNothing if no event in GetSystemEvent * set Event.What to evNothing if no event in GetSystemEvent
Revision 1.28 2002/06/07 14:08:28 pierre Revision 1.28 2002/06/07 14:08:28 pierre