paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-05 09:56:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

opengl: adding support for Cocoa mouseMove events for Right and Middle mouse buttons. Based on the patch by Chris Rorden. bug #34938

Browse Source 
git-svn-id: trunk@61059 -
This commit is contained in:
dmitry 2019-04-26 12:57:20 +00:00
parent 02284c559f
commit 59587a0452
1 changed files with 28 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
components/opengl/glcocoanscontext.pas
View File

@ -84,8 +84,10 @@ type
procedure mouseUp(event: NSEvent); override;
procedure rightMouseDown(event: NSEvent); override;
procedure rightMouseUp(event: NSEvent); override;
procedure rightMouseDragged(event: NSEvent); override;
procedure otherMouseDown(event: NSEvent); override;
procedure otherMouseUp(event: NSEvent); override;
procedure otherMouseDragged(event: NSEvent); override;
procedure mouseDragged(event: NSEvent); override;
procedure mouseEntered(event: NSEvent); override;
procedure mouseExited(event: NSEvent); override;
@ -430,44 +432,50 @@ end;
procedure TCocoaOpenGLView.mouseDown(event: NSEvent);
begin
if Assigned(callback)
then callback.MouseUpDownEvent(event)
else inherited mouseDown(event);
if not Assigned(callback) or not callback.MouseUpDownEvent(event) then
inherited mouseDown(event);
end;
procedure TCocoaOpenGLView.mouseUp(event: NSEvent);
begin
if Assigned(callback)
then callback.MouseUpDownEvent(event)
else inherited mouseUp(event);
if not Assigned(callback) or not callback.MouseUpDownEvent(event) then
inherited mouseUp(event);
end;
procedure TCocoaOpenGLView.rightMouseDown(event: NSEvent);
begin
if Assigned(callback)
then callback.MouseUpDownEvent(event)
else inherited rightMouseDown(event);
if not Assigned(callback) or not callback.MouseUpDownEvent(event) then
inherited rightMouseDown(event);
end;
procedure TCocoaOpenGLView.rightMouseUp(event: NSEvent);
begin
if Assigned(callback)
then callback.MouseUpDownEvent(event)
else inherited rightMouseUp(event);
if not Assigned(callback) or not callback.MouseUpDownEvent(event) then
inherited rightMouseUp(event);
end;
procedure TCocoaOpenGLView.rightMouseDragged(event: NSEvent);
begin
if not Assigned(callback) or not callback.MouseMove(event) then
inherited rightMouseDragged(event);
end;
procedure TCocoaOpenGLView.otherMouseDown(event: NSEvent);
begin
if Assigned(callback)
then callback.MouseUpDownEvent(event)
else inherited otherMouseDown(event);
if not Assigned(callback) or not callback.MouseUpDownEvent(event) then
inherited otherMouseDown(event);
end;
procedure TCocoaOpenGLView.otherMouseUp(event: NSEvent);
begin
if Assigned(callback)
then callback.MouseUpDownEvent(event)
else inherited otherMouseUp(event);
if not Assigned(callback) or not callback.MouseUpDownEvent(event) then
inherited otherMouseUp(event);
end;
procedure TCocoaOpenGLView.otherMouseDragged(event: NSEvent);
begin
if not Assigned(callback) or not callback.MouseMove(event) then
inherited otherMouseDragged(event);
end;
procedure TCocoaOpenGLView.mouseDragged(event: NSEvent);
@ -489,9 +497,8 @@ end;
procedure TCocoaOpenGLView.mouseMoved(event: NSEvent);
begin
if Assigned(callback)
then callback.MouseMove(event)
else inherited mouseMoved(event);
if not Assigned(callback) or not callback.MouseMove(event) then
inherited mouseMoved(event);
end;
procedure TCocoaOpenGLView.scrollWheel(event: NSEvent);