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

Cocoa: tab control: fix GetTabIndexAtPos result

Browse Source 
git-svn-id: trunk@57869 -
This commit is contained in:
ondrej 2018-05-09 08:27:34 +00:00
parent a7a95f8f65
commit d1b941a029
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/cocoa/cocoawscomctrls.pas
View File

@ -494,7 +494,7 @@ var
lTabPage: NSTabViewItem;
lClientPos: NSPoint;
begin
Result := 0;
Result := -1;
if not Assigned(ATabControl) or not ATabControl.HandleAllocated then Exit;
lTabControl := TCocoaTabControl(ATabControl.Handle);
@ -506,6 +506,8 @@ begin
else
lClientPos := LCLToNSPoint(AClientPos, lTabControl.frame.size.height);
lTabPage := lTabControl.tabViewItemAtPoint(lClientPos);
if not Assigned(lTabPage) then
Exit;
Result := lTabControl.indexOfTabViewItem(lTabPage);
end;