From 4e66385e731a80aa6c05901c97de1141de4ef2ab Mon Sep 17 00:00:00 2001 From: rich2014 Date: Sun, 25 May 2025 22:35:31 +0800 Subject: [PATCH] Cocoa: fix the right click issue #41676 --- lcl/interfaces/cocoa/cocoalistview.pas | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/lcl/interfaces/cocoa/cocoalistview.pas b/lcl/interfaces/cocoa/cocoalistview.pas index 4df48b233d..4ec91d8e61 100644 --- a/lcl/interfaces/cocoa/cocoalistview.pas +++ b/lcl/interfaces/cocoa/cocoalistview.pas @@ -207,6 +207,9 @@ type procedure setCaptionEditor( captionEditor: TCocoaTextField ); message 'setCaptionEditor:'; procedure setCaptionFont( captionFont: NSFont ); message 'setCaptionFont:'; procedure setCaptionAlignment( alignment: NSTextAlignment ); message 'setCaptionAlignment:'; + + procedure rightMouseDown(event: NSEvent); override; + procedure rightMouseUp(event: NSEvent); override; end; implementation @@ -273,6 +276,18 @@ begin _captionEditor.setAlignment( _captionAlignment ); end; +procedure TCocoaListView.rightMouseDown(event: NSEvent); +begin + if not Assigned(callback) or not callback.MouseUpDownEvent(event) then + inherited; +end; + +procedure TCocoaListView.rightMouseUp(event: NSEvent); +begin + if not Assigned(callback) or not callback.MouseUpDownEvent(event) then + inherited; +end; + procedure TCocoaListView.setViewStyle(viewStyle: TViewStyle); begin if Assigned(_backendControl) and (_viewStyle=viewStyle) then