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

+ some new functions

Browse Source 
* double click messages are handled like single clicks because this
    is the behavior as old DOS applications expect
This commit is contained in:
florian 2000-03-05 13:08:52 +00:00
parent 054ddd8cb3
commit 682807bc00
1 changed files with 20 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/win32/winmouse.pp
View File

@ -111,7 +111,7 @@ unit winmouse;
function InitMouse : boolean;
begin
InitMouse:=true;
InitMouse:=MouseFound;
end;
procedure ShowMouse;
@ -130,11 +130,17 @@ unit winmouse;
LParam: Longint): Longint;
begin
{ we catch the double click messages here too, }
{ even if they never appear because the graph }
{ windows doesn't have the cs_dblclks flags }
case amessage of
wm_lbuttondblclk,
wm_lbuttondown:
mousebuttonstate:=mousebuttonstate or LButton;
wm_rbuttondblclk,
wm_rbuttondown:
mousebuttonstate:=mousebuttonstate or RButton;
wm_mbuttondblclk,
wm_mbuttondown:
mousebuttonstate:=mousebuttonstate or MButton;
wm_lbuttonup:
@ -194,7 +200,12 @@ unit winmouse;
end.
{
$Log$
Revision 1.2 2000-01-07 16:41:53 daniel
Revision 1.3 2000-03-05 13:08:52 florian
+ some new functions
* double click messages are handled like single clicks because this
is the behavior as old DOS applications expect
Revision 1.2 2000/01/07 16:41:53 daniel
* copyright 2000
Revision 1.1 1999/11/29 22:03:39 florian