paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 20:04:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa - bug - fix TListBox clicking

Browse Source 
git-svn-id: trunk@52533 -
This commit is contained in:
sekelsenmat 2016-06-20 19:58:37 +00:00
parent bd6f6bf6dd
commit 1775e611f6
1 changed files with 3 additions and 2 deletions

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

@ -2760,8 +2760,9 @@ end;
procedure TCocoaListBox.mouseDown(event: NSEvent);
begin
if not Assigned(callback) or not callback.MouseUpDownEvent(event) then
inherited mouseDown(event);
if Assigned(callback) then callback.MouseUpDownEvent(event);
// Always call inherited, otherwise clicking stops working, see bug 30297
inherited mouseDown(event);
end;
procedure TCocoaListBox.rightMouseDown(event: NSEvent);