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

cocoa: fix the detection of the row by coordinates. using scrollView documentVisible rect instead of visibileRect

Browse Source
This commit is contained in:
Dmitry Boyarintsev 2021-09-26 00:24:24 -04:00 committed by Maxim Ganetsky
parent 7fb476c5cd
commit 8a971e273f
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/cocoa/cocoatables.pas
View File

@ -269,6 +269,8 @@ implementation
function LCLCoordToRow(tbl: NSTableView; X,Y: Integer): Integer;
var
pt : NSPoint;
sc : NSScrollView;
vr : NSRect;
begin
if not Assigned(tbl) then
begin
@ -276,10 +278,15 @@ begin
Exit;
end;
sc := tbl.enclosingScrollView;
if Assigned(sc) then
vr := sc.documentVisibleRect
else
vr := tbl.visibleRect;
pt.x := X;
if tbl.isFlipped
then pt.y := Y + tbl.visibleRect.origin.y
else pt.y := tbl.frame.size.height - Y - tbl.visibleRect.origin.y;
then pt.y := Y + vr.origin.y
else pt.y := tbl.frame.size.height - Y - vr.origin.y;
Result := tbl.rowAtPoint(pt);
end;