From 3659841c553590523208bb7e8cf4e07e1a4cb1eb Mon Sep 17 00:00:00 2001 From: paul Date: Wed, 10 Dec 2008 01:56:37 +0000 Subject: [PATCH] lcl: disable docking at the design time (#0012772) git-svn-id: trunk@17776 - --- lcl/interfaces/gtk/gtkcallback.inc | 1 + lcl/interfaces/qt/qtwidgets.pas | 1 + lcl/interfaces/win32/win32callback.inc | 2 +- 3 files changed, 3 insertions(+), 1 deletion(-) diff --git a/lcl/interfaces/gtk/gtkcallback.inc b/lcl/interfaces/gtk/gtkcallback.inc index 48b58d6f9b..cb5a04c01a 100644 --- a/lcl/interfaces/gtk/gtkcallback.inc +++ b/lcl/interfaces/gtk/gtkcallback.inc @@ -169,6 +169,7 @@ begin {$ifdef windows} if (PMSG(xevent)^.message = WM_NCLBUTTONDOWN) and (PMSG(xevent)^.wParam = HTCAPTION) and + not (csDesigning in AForm.ComponentState) and (TWinControlAccess(TWinControl(AForm)).DragKind = dkDock) and (TWinControlAccess(TWinControl(AForm)).DragMode = dmAutomatic) then begin diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas index 00bd80b74f..ae8a56ef2a 100644 --- a/lcl/interfaces/qt/qtwidgets.pas +++ b/lcl/interfaces/qt/qtwidgets.pas @@ -2217,6 +2217,7 @@ var begin //Drag&Dock support TCustomForm => Start BeginDrag() if (LCLObject is TCustomForm) and + not (csDesigning in LCLObject.ComponentState) and (TWinControlAccess(LCLObject).DragKind = dkDock) and (TWinControlAccess(LCLObject).DragMode = dmAutomatic) and (QMouseEvent_button(QMouseEventH(Event)) = QtLeftButton) then diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc index db37d1c89d..eb3a4dd49d 100644 --- a/lcl/interfaces/win32/win32callback.inc +++ b/lcl/interfaces/win32/win32callback.inc @@ -1911,7 +1911,7 @@ begin Assert(False, 'Trace:WindowProc - Got WM_NCLBUTTONDOWN'); //Drag&Dock support TCustomForm => Start BeginDrag() - if lWinControl <> nil then + if (lWinControl <> nil) and not (csDesigning in lWinControl.ComponentState) then begin if WParam = HTCAPTION then begin