From 7ee6c517b02f78002c91050a391b5cd38c7499b2 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 10 Dec 2019 23:25:40 +0000
Subject: [PATCH] jvcllaz: Add dropdown shadow TJvDBLookupCombo for Windows.
 Patch by Michal Gawrycki, issue #36421.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7206 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/jvcllaz/run/JvDB/jvdblookup.pas | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/components/jvcllaz/run/JvDB/jvdblookup.pas b/components/jvcllaz/run/JvDB/jvdblookup.pas
index c6a3ea4a8..6f2fd377b 100644
--- a/components/jvcllaz/run/JvDB/jvdblookup.pas
+++ b/components/jvcllaz/run/JvDB/jvdblookup.pas
@@ -39,6 +39,7 @@ unit JvDBLookup;
 interface
 
 uses
+  {$IFDEF WINDOWS}Windows,{$ENDIF}
   Variants, Classes, Graphics, Controls, Forms, DB, DBCtrls,
   LMessages, LCLType, LCLIntf, LCLProc, EditBtn, Themes,
   JvThemes, JvDBUtils;
@@ -386,6 +387,7 @@ type
     procedure DoShow; override;
     procedure DoClose(var CloseAction: TCloseAction); override;
     {$IFDEF WINDOWS}
+    procedure CreateWnd; override;
     procedure WMActivate(var Message: TLMActivate); message LM_ACTIVATE;
     {$ENDIF}
   public
@@ -2515,6 +2517,13 @@ begin
 end;
 
 {$IFDEF WINDOWS}
+procedure TJvPopupDataListForm.CreateWnd;
+begin
+  inherited CreateWnd;
+  SetClassLong(WindowHandle, GCL_STYLE,
+    GetClassLong(WindowHandle, GCL_STYLE) or CS_DROPSHADOW);
+end;
+
 procedure TJvPopupDataListForm.WMActivate(var Message: TLMActivate);
 begin
   if (Message.Active <> WA_INACTIVE) and Assigned(Self.GetRealPopupParent) then