From 02f8fc163d0f8a77037a4a23ed22e9c33d39f85d Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Thu, 30 Apr 2009 03:22:04 +0000
Subject: [PATCH] lcl: add new LCLCapability flag lcDragDockStartOnTitleClick

git-svn-id: trunk@19701 -
---
 lcl/interfacebase.pp                 | 13 +++++++------
 lcl/interfaces/qt/qtobject.inc       |  3 ++-
 lcl/interfaces/win32/win32object.inc |  1 +
 lcl/interfaces/wince/winceobject.inc |  1 +
 4 files changed, 11 insertions(+), 7 deletions(-)

diff --git a/lcl/interfacebase.pp b/lcl/interfacebase.pp
index eee2a1a49b..85836333cd 100644
--- a/lcl/interfacebase.pp
+++ b/lcl/interfacebase.pp
@@ -69,13 +69,14 @@ type
   TLCLPlatforms = set of TLCLPlatform;
 
   TLCLCapability = (
-    lcAsyncProcess,          // Support for async process
-    lcCanDrawOutsideOnPaint, // Support for drawing outside OnPaint event of an control
+    lcAsyncProcess,             // Support for async process
+    lcCanDrawOutsideOnPaint,    // Support for drawing outside OnPaint event of an control
     lcNeedMininimizeAppWithMainForm,
-                             // When main form is minimized, then minimize also app
-    lcApplicationTitle,      // Can change application title in runtime
-    lcFormIcon,              // Forms have icon
-    lcModalWindow
+                                // When main form is minimized, then minimize also app
+    lcApplicationTitle,         // Can change application title in runtime
+    lcFormIcon,                 // Forms have icon
+    lcModalWindow,              // native modal windows support
+    lcDragDockStartOnTitleClick // ability to start drag/dock events on title bar click
   );
 
   { TWidgetSet }
diff --git a/lcl/interfaces/qt/qtobject.inc b/lcl/interfaces/qt/qtobject.inc
index e5dba58605..fd8248f4bf 100644
--- a/lcl/interfaces/qt/qtobject.inc
+++ b/lcl/interfaces/qt/qtobject.inc
@@ -362,7 +362,8 @@ end;
 function TQtWidgetSet.GetLCLCapability(ACapability: TLCLCapability): PtrUInt;
 begin
   case ACapability of
-    lcCanDrawOutsideOnPaint: Result := 0
+    lcCanDrawOutsideOnPaint: Result := 0;
+    lcDragDockStartOnTitleClick: Result := {$ifdef MSWINDOWS} 1 {$else} 0 {$endif};
   else
     Result := inherited GetLCLCapability(ACapability);
   end;
diff --git a/lcl/interfaces/win32/win32object.inc b/lcl/interfaces/win32/win32object.inc
index 90a525e73a..03beccbde6 100644
--- a/lcl/interfaces/win32/win32object.inc
+++ b/lcl/interfaces/win32/win32object.inc
@@ -469,6 +469,7 @@ begin
   case ACapability of
     lcAsyncProcess: Result := 1;
     lcModalWindow: Result := 0;
+    lcDragDockStartOnTitleClick: Result := 1;
   else
     Result := inherited;
   end;
diff --git a/lcl/interfaces/wince/winceobject.inc b/lcl/interfaces/wince/winceobject.inc
index 74a440fde0..7eac8dc18b 100644
--- a/lcl/interfaces/wince/winceobject.inc
+++ b/lcl/interfaces/wince/winceobject.inc
@@ -447,6 +447,7 @@ function TWinCEWidgetSet.GetLCLCapability(ACapability: TLCLCapability): PtrUInt;
 begin
   case ACapability of
     lcModalWindow: Result := 0;
+    lcDragDockStartOnTitleClick: Result := 1;
   else
     Result := inherited;
   end;