paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 03:46:10 +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

15
fv/drivers.pas
View File

@ -1254,7 +1254,7 @@ end;
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
PROCEDURE InitEvents; PROCEDURE InitEvents;
BEGIN BEGIN
If (ButtonCount <> 0) Then If (ButtonCount <> 0) Then
begin { Mouse is available } begin { Mouse is available }
Mouse.InitMouse; { Hook the mouse } Mouse.InitMouse; { Hook the mouse }
{ this is required by the use of HideCount variable } { this is required by the use of HideCount variable }
@ -1269,9 +1269,9 @@ BEGIN
LastWhere.y:=MouseWhere.y; LastWhere.y:=MouseWhere.y;
LastWhereY:=MouseWhere.y; LastWhereY:=MouseWhere.y;
MouseEvents := True; { Set initialized flag } MouseEvents := True; { Set initialized flag }
end; end;
{$ifdef HasSysMsgUnit} {$ifdef HasSysMsgUnit}
InitSystemMsg; InitSystemMsg;
{$endif HasSysMsgUnit} {$endif HasSysMsgUnit}
END; END;
@ -1281,8 +1281,10 @@ END;
PROCEDURE DoneEvents; PROCEDURE DoneEvents;
BEGIN 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

15
fvision/drivers.pas
View File

@ -1254,7 +1254,7 @@ end;
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
PROCEDURE InitEvents; PROCEDURE InitEvents;
BEGIN BEGIN
If (ButtonCount <> 0) Then If (ButtonCount <> 0) Then
begin { Mouse is available } begin { Mouse is available }
Mouse.InitMouse; { Hook the mouse } Mouse.InitMouse; { Hook the mouse }
{ this is required by the use of HideCount variable } { this is required by the use of HideCount variable }
@ -1269,9 +1269,9 @@ BEGIN
LastWhere.y:=MouseWhere.y; LastWhere.y:=MouseWhere.y;
LastWhereY:=MouseWhere.y; LastWhereY:=MouseWhere.y;
MouseEvents := True; { Set initialized flag } MouseEvents := True; { Set initialized flag }
end; end;
{$ifdef HasSysMsgUnit} {$ifdef HasSysMsgUnit}
InitSystemMsg; InitSystemMsg;
{$endif HasSysMsgUnit} {$endif HasSysMsgUnit}
END; END;
@ -1281,8 +1281,10 @@ END;
PROCEDURE DoneEvents; PROCEDURE DoneEvents;
BEGIN 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