From 2dcd8e4b2bba09bf699e4b767ccb0f7c6a9487c3 Mon Sep 17 00:00:00 2001 From: zeljko Date: Thu, 26 Nov 2009 20:13:16 +0000 Subject: [PATCH] Qt: fix for #15192 also tab moving now works in ide source editor. git-svn-id: trunk@22809 - --- lcl/interfaces/qt/qtwidgets.pas | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas index 9fe3533ee8..d50373e003 100644 --- a/lcl/interfaces/qt/qtwidgets.pas +++ b/lcl/interfaces/qt/qtwidgets.pas @@ -5954,7 +5954,13 @@ function TQtTabWidget.tabAt(APoint: TPoint): Integer; var AQtPoint: TQtPoint; begin - AQtPoint := QtPoint(APoint.x, APoint.y); + if ((APoint.Y < 0) or (APoint.X < 0)) + and QWidget_underMouse(TabBar.Widget) then + begin + QCursor_pos(@AQtPoint); + QWidget_mapFromGlobal(TabBar.Widget, @AQtPoint, @AQtPoint); + end else + AQtPoint := QtPoint(APoint.x, APoint.y); Result := QTabBar_tabAt(QTabBarH(TabBar.Widget), @AQtPoint); end;