From afa0f73049b637b0fd3f962a8787c87bedb2692f Mon Sep 17 00:00:00 2001
From: wp <wp.no-reply@lazarus-ide-org>
Date: Tue, 1 Sep 2020 10:35:55 +0000
Subject: [PATCH] LCL: Fix unchangeable Combobox.DropDownCount when Style =
 csDropDownList. Issue #37670.

git-svn-id: trunk@63856 -
---
 lcl/interfaces/win32/win32wsstdctrls.pp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lcl/interfaces/win32/win32wsstdctrls.pp b/lcl/interfaces/win32/win32wsstdctrls.pp
index 6ddbff83e9..f1577b8a24 100644
--- a/lcl/interfaces/win32/win32wsstdctrls.pp
+++ b/lcl/interfaces/win32/win32wsstdctrls.pp
@@ -1182,6 +1182,9 @@ begin
   begin
     //Use CB_SETMINVISIBLE in vista or above
     SendMessage(ACustomComboBox.Handle, CB_SETMINVISIBLE, NewCount, 0);
+    //Issue #37670: Fix DropDownCount not changing when Style=csDropDownList
+    if not (ACustomComboBox.Style in [csSimple, csDropDown, csOwnerDrawEditableFixed]) then
+      RecreateWnd(ACustomCombobox);
   end
   else
   begin