From 677e9d99f2c4a5a9b4dafbfd2105e9e8922d38b6 Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Fri, 21 Oct 2016 19:56:05 +0000
Subject: [PATCH] LCL: add lcTransparentWindow LCL capability

git-svn-id: trunk@53193 -
---
 lcl/interfacebase.pp                   | 3 ++-
 lcl/interfaces/carbon/carbonobject.inc | 1 +
 lcl/interfaces/cocoa/cocoaobject.inc   | 1 +
 lcl/interfaces/qt/qtobject.inc         | 1 +
 lcl/interfaces/win32/win32object.inc   | 1 +
 5 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/lcl/interfacebase.pp b/lcl/interfacebase.pp
index 87901565df..14695d57ed 100644
--- a/lcl/interfacebase.pp
+++ b/lcl/interfacebase.pp
@@ -80,7 +80,8 @@ type
     lcAllowChildControlsInNativeControls, // Utilized by LCL-CustomDrawn so that it can inject child controls in native ones
     lcEmulatedMDI, // used for emulating MDI on widgetsets which does not provide native MDI handling
     lcAccessibilitySupport,     // Indicates that accessibility is implemented, mostly for TCustomControl descendents as native widgests should have in-built accessibility
-    lcRadialGradientBrush       // Indicates that the function CreateBrushWithRadialGradient is supported, i.e. we can create a brush with a radial gradient pattern
+    lcRadialGradientBrush,      // Indicates that the function CreateBrushWithRadialGradient is supported, i.e. we can create a brush with a radial gradient pattern
+    lcTransparentWindow         // ability to pass mouse messages through a window (on win32 LM_NCHITTEST with HTTRANSPARENT result)
   );
 
   { TDialogButton }
diff --git a/lcl/interfaces/carbon/carbonobject.inc b/lcl/interfaces/carbon/carbonobject.inc
index eb564fafdb..fafd6d7030 100644
--- a/lcl/interfaces/carbon/carbonobject.inc
+++ b/lcl/interfaces/carbon/carbonobject.inc
@@ -1421,6 +1421,7 @@ begin
     lcAntialiasingEnabledByDefault:
       Result := LCL_CAPABILITY_YES;
     lcAccessibilitySupport: Result := LCL_CAPABILITY_YES;
+    lcTransparentWindow: Result := LCL_CAPABILITY_YES;
   else
     Result := inherited;
   end;
diff --git a/lcl/interfaces/cocoa/cocoaobject.inc b/lcl/interfaces/cocoa/cocoaobject.inc
index d641ef57b5..64c2b77319 100644
--- a/lcl/interfaces/cocoa/cocoaobject.inc
+++ b/lcl/interfaces/cocoa/cocoaobject.inc
@@ -280,6 +280,7 @@ begin
     {$endif}
     lcAntialiasingEnabledByDefault:
       Result := LCL_CAPABILITY_YES;
+    lcTransparentWindow: Result := LCL_CAPABILITY_YES;
   else
     Result := inherited;
   end;
diff --git a/lcl/interfaces/qt/qtobject.inc b/lcl/interfaces/qt/qtobject.inc
index 8b259e6de7..580d04e324 100644
--- a/lcl/interfaces/qt/qtobject.inc
+++ b/lcl/interfaces/qt/qtobject.inc
@@ -1257,6 +1257,7 @@ begin
      {when issue #20475 is fixed, then set this to LCL_CAPABILITY_YES}
      lcReceivesLMClearCutCopyPasteReliably: Result := LCL_CAPABILITY_NO;
     lcRadialGradientBrush: Result := LCL_CAPABILITY_YES;
+    lcTransparentWindow: Result := LCL_CAPABILITY_YES;
   else
     Result := inherited GetLCLCapability(ACapability);
   end;
diff --git a/lcl/interfaces/win32/win32object.inc b/lcl/interfaces/win32/win32object.inc
index 1e88958230..4c04e97958 100644
--- a/lcl/interfaces/win32/win32object.inc
+++ b/lcl/interfaces/win32/win32object.inc
@@ -563,6 +563,7 @@ begin
     lcLMHelpSupport: Result := LCL_CAPABILITY_YES;
     lcNeedMininimizeAppWithMainForm: Result := LCL_CAPABILITY_NO;
     lcSendsUTF8KeyPress: Result := LCL_CAPABILITY_YES;
+    lcTransparentWindow: Result := LCL_CAPABILITY_YES;
   else
     Result := inherited;
   end;