paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 10:18:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: mouse events for field editor. #33158

Browse Source 
git-svn-id: trunk@57285 -
This commit is contained in:
dmitry 2018-02-12 04:00:12 +00:00
parent 919641f544
commit 9914d0ef99
2 changed files with 98 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

97
lcl/interfaces/cocoa/cocoaprivate.pp
View File

@ -392,7 +392,17 @@ type
public
lastEditBox: NSTextField;
function resignFirstResponder: Boolean; override;
// keyboard
procedure keyDown(event: NSEvent); override;
// mouse
procedure mouseDown(event: NSEvent); override;
procedure mouseUp(event: NSEvent); override;
procedure rightMouseDown(event: NSEvent); override;
procedure rightMouseUp(event: NSEvent); override;
procedure otherMouseDown(event: NSEvent); override;
procedure otherMouseUp(event: NSEvent); override;
procedure mouseDragged(event: NSEvent); override;
procedure mouseMoved(event: NSEvent); override;
end;
NSWindow = objcclass external(CocoaAll.NSWindow)
@ -1725,6 +1735,93 @@ begin
inherited keyDown(event);
end;
procedure TCocoaFieldEditor.mouseDown(event: NSEvent);
begin
if Assigned(lastEditBox) then
begin
if Assigned(lastEditBox.lclGetCallback) and not lastEditBox.lclGetCallback.MouseUpDownEvent(event) then
begin
inherited mouseDown(event);
// NSTextView runs internal mouse-tracking loop in it's mouseDown implemenation.
// Thus "inherited mouseDown" only returns after the mouse has been released.
// why is TCocoaTextView not affected?
if Assigned(lastEditBox) and Assigned(lastEditBox.lclGetCallback) then
lastEditBox.lclGetCallback.MouseUpDownEvent(event, true);
end;
end else
inherited mouseDown(event);
end;
procedure TCocoaFieldEditor.mouseUp(event: NSEvent);
begin
if Assigned(lastEditBox) then
begin
if Assigned(lastEditBox.lclGetCallback) and not lastEditBox.lclGetCallback.MouseUpDownEvent(event) then
inherited mouseUp(event);
end else
inherited mouseUp(event);
end;
procedure TCocoaFieldEditor.rightMouseDown(event: NSEvent);
begin
if Assigned(lastEditBox) then
begin
if Assigned(lastEditBox.lclGetCallback) and not lastEditBox.lclGetCallback.MouseUpDownEvent(event) then
inherited rightMouseDown(event);
end else
inherited rightMouseDown(event);
end;
procedure TCocoaFieldEditor.rightMouseUp(event: NSEvent);
begin
if Assigned(lastEditBox) then
begin
if Assigned(lastEditBox.lclGetCallback) and not lastEditBox.lclGetCallback.MouseUpDownEvent(event) then
inherited rightMouseUp(event);
end else
inherited rightMouseUp(event);
end;
procedure TCocoaFieldEditor.otherMouseDown(event: NSEvent);
begin
if Assigned(lastEditBox) then
begin
if Assigned(lastEditBox.lclGetCallback) and not lastEditBox.lclGetCallback.MouseUpDownEvent(event) then
inherited otherMouseDown(event);
end else
inherited otherMouseDown(event);
end;
procedure TCocoaFieldEditor.otherMouseUp(event: NSEvent);
begin
if Assigned(lastEditBox) then
begin
if Assigned(lastEditBox.lclGetCallback) and not lastEditBox.lclGetCallback.MouseUpDownEvent(event) then
inherited otherMouseUp(event);
end else
inherited otherMouseUp(event);
end;
procedure TCocoaFieldEditor.mouseDragged(event: NSEvent);
begin
if Assigned(lastEditBox) then
begin
if Assigned(lastEditBox.lclGetCallback) and not lastEditBox.lclGetCallback.MouseMove(event) then
inherited mouseDragged(event);
end else
inherited mouseDragged(event);
end;
procedure TCocoaFieldEditor.mouseMoved(event: NSEvent);
begin
if Assigned(lastEditBox) then
begin
if Assigned(lastEditBox.lclGetCallback) and not lastEditBox.lclGetCallback.MouseMove(event) then
inherited mouseMoved(event);
end else
inherited mouseMoved(event);
end;
{ TCocoaWindow }
function TCocoaWindow.lclIsHandle: Boolean;

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

@ -787,7 +787,7 @@ begin
if Assigned(Owner) and not Owner.lclIsEnabled then
begin
Result := True; // Cocoa should not handle the message.
Exit; // LCL should get the notification either.
Exit; // LCL should not get the notification either, as the control is disabled.
end;
// If LCL control is provided and it's in designing state.