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

docking: before start auto docking check if DragMode = dmAutomatic

Browse Source 
git-svn-id: trunk@14049 -
This commit is contained in:
paul 2008-02-09 14:51:51 +00:00
parent 6a8326732d
commit 6ecc6cd943
2 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2050,7 +2050,10 @@ var
APoint: TQtPoint;
begin
//Drag&Dock support TCustomForm => Start BeginDrag()
if (LCLObject is TCustomForm) and (QMouseEvent_button(QMouseEventH(Event)) = QtLeftButton) then
if (LCLObject is TCustomForm) and
(TWinControlAccess(LCLObject).DragKind = dkDock) and
(TWinControlAccess(LCLObject).DragMode = dmAutomatic) and
(QMouseEvent_button(QMouseEventH(Event)) = QtLeftButton) then
begin
APoint := QMouseEvent_globalPos(QMouseEventH(Event))^;
AHeader := getGeometry;
@ -2065,7 +2068,7 @@ begin
// we can skip translation of coords to global since we already working with window
// check for title
if PtInRect(AHeader, Point(APoint.x, APoint.y)) and (TWinControlAccess(LCLObject).DragKind = dkDock) then
if PtInRect(AHeader, Point(APoint.x, APoint.y)) then
LCLObject.BeginDrag(true);
end;
end;

3
lcl/interfaces/win32/win32callback.inc
View File

@ -1825,7 +1825,8 @@ begin
begin
if lWinControl is TCustomForm then
begin
if TWinControlAccess(lWinControl).DragKind = dkDock then
if (TWinControlAccess(lWinControl).DragKind = dkDock) and
(TWinControlAccess(lWinControl).DragMode = dmAutomatic) then
lWinControl.BeginDrag(true);
end;
end;