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

Qt: fix for #15192 also tab moving now works in ide source editor.

Browse Source 
git-svn-id: trunk@22809 -
This commit is contained in:
zeljko 2009-11-26 20:13:16 +00:00
parent 7d0ed7d072
commit 2dcd8e4b2b
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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;