paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-09 19:57:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

Qt: fix tabIndexAtClientPos patch by cobines - fixes #15266

Browse Source 
git-svn-id: trunk@23003 -
This commit is contained in:
zeljko 2009-12-06 13:48:27 +00:00
parent 92aacc4bf2
commit 992c4e1f24
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/qt/qtwidgets.pas
View File

@ -6144,11 +6144,11 @@ function TQtTabWidget.tabAt(APoint: TPoint): Integer;
var
AQtPoint: TQtPoint;
begin
if ((APoint.Y < 0) or (APoint.X < 0))
and QWidget_underMouse(TabBar.Widget) then
if (APoint.Y < 0) or (APoint.X < 0) then
begin
QCursor_pos(@AQtPoint);
QWidget_mapFromGlobal(TabBar.Widget, @AQtPoint, @AQtPoint);
QWidget_pos(getStackWidget, @AQtPoint);
AQtPoint.x := AQtPoint.x + APoint.x;
AQtPoint.y := AQtPoint.y + APoint.y;
end else
AQtPoint := QtPoint(APoint.x, APoint.y);
Result := QTabBar_tabAt(QTabBarH(TabBar.Widget), @AQtPoint);