paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 06:39:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: remove TLastMouseInfo, it is not needed in cocoa

Browse Source 
git-svn-id: trunk@34914 -
This commit is contained in:
paul 2012-01-25 01:39:34 +00:00
parent ed078dd6f0
commit 105f704391
1 changed files with 6 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lcl/interfaces/cocoa/cocoawscommon.pas
View File

@ -94,15 +94,6 @@ type
const AParams: TCreateParams): TLCLIntfHandle; override;
end;
TLastMouseInfo = class
Owner: NSObject;
MousePos: NSPoint;
TimeStamp: NSTimeInterval;
ClickCount: Integer;
end;
var
LastMouse: TLastMouseInfo;
const
DblClickThreshold = 3;// max Movement between two clicks of a DblClick
@ -258,15 +249,14 @@ var
MButton: NSInteger;
function CheckMouseButtonDown(AButton: Integer): Cardinal;
var
ClickCount: Integer;
begin
LastMouse.ClickCount := Event.clickCount;
if LastMouse.clickCount > 4 then
LastMouse.clickCount := 1;
LastMouse.TimeStamp := Event.timestamp;
LastMouse.MousePos := MousePos;
LastMouse.Owner := Owner;
ClickCount := Event.clickCount;
if ClickCount > 4 then
ClickCount := 1;
Result := MSGKIND[AButton][LastMouse.ClickCount];
Result := MSGKIND[AButton][ClickCount];
end;
begin
Result := False; // allow cocoa to handle message
@ -309,8 +299,6 @@ begin
NSRightMouseUp,
NSOtherMouseUp:
begin
LastMouse.Owner := Owner;
LastMouse.MousePos := MousePos;
Msg.Msg := MSGKINDUP[MButton];
NotifyApplicationUserInput(Msg.Msg);
@ -1034,7 +1022,5 @@ begin
Result := TLCLIntfHandle(ctrl);
end;
initialization
LastMouse := TLastMouseInfo.Create;
end.