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

Cocoa: fix the right click issue #41676

Browse Source
This commit is contained in:
rich2014 2025-05-25 22:35:31 +08:00
parent b23e7b9764
commit 4e66385e73
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/interfaces/cocoa/cocoalistview.pas
View File

@ -207,6 +207,9 @@ type
procedure setCaptionEditor( captionEditor: TCocoaTextField ); message 'setCaptionEditor:'; procedure setCaptionEditor( captionEditor: TCocoaTextField ); message 'setCaptionEditor:';
procedure setCaptionFont( captionFont: NSFont ); message 'setCaptionFont:'; procedure setCaptionFont( captionFont: NSFont ); message 'setCaptionFont:';
procedure setCaptionAlignment( alignment: NSTextAlignment ); message 'setCaptionAlignment:'; procedure setCaptionAlignment( alignment: NSTextAlignment ); message 'setCaptionAlignment:';
procedure rightMouseDown(event: NSEvent); override;
procedure rightMouseUp(event: NSEvent); override;
end; end;
implementation implementation
@ -273,6 +276,18 @@ begin
_captionEditor.setAlignment( _captionAlignment ); _captionEditor.setAlignment( _captionAlignment );
end; 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); procedure TCocoaListView.setViewStyle(viewStyle: TViewStyle);
begin begin
if Assigned(_backendControl) and (_viewStyle=viewStyle) then if Assigned(_backendControl) and (_viewStyle=viewStyle) then