From 4952b8047abf084db73aeedc392b9e37d2e20b31 Mon Sep 17 00:00:00 2001
From: bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Sat, 23 Feb 2013 14:08:49 +0000
Subject: [PATCH] ValEdit: set DropDownCount of associated ComboBox to
 DropDownRows if ItemProp.EditStyle = esPickList.

git-svn-id: trunk@40372 -
---
 lcl/valedit.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lcl/valedit.pas b/lcl/valedit.pas
index 159bd015db..df7de2f44d 100644
--- a/lcl/valedit.pas
+++ b/lcl/valedit.pas
@@ -967,6 +967,7 @@ begin
         esPickList: begin
           result := EditorByStyle(cbsPickList);
           (result as TCustomComboBox).Items.Assign(ItemProp.PickList);
+          (result as TCustomComboBox).DropDownCount := DropDownRows;
           //Style := csDropDown, default = csDropDownList;
         end;
       end;