From 1c969510449ae64267d8b0a33009c407469683cb Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Sat, 18 Oct 2008 17:00:47 +0000
Subject: [PATCH] object inspector: increase drop down limit of combobox

git-svn-id: trunk@17042 -
---
 ideintf/objectinspector.pp | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/ideintf/objectinspector.pp b/ideintf/objectinspector.pp
index 00054f7ef4..ebbd2639c5 100644
--- a/ideintf/objectinspector.pp
+++ b/ideintf/objectinspector.pp
@@ -830,7 +830,8 @@ begin
 
   // create sub components
   ValueEdit:=TEdit.Create(Self);
-  with ValueEdit do begin
+  with ValueEdit do
+  begin
     Name:='ValueEdit';
     Visible:=false;
     Enabled:=false;
@@ -848,7 +849,8 @@ begin
   end;
 
   ValueComboBox:=TComboBox.Create(Self);
-  with ValueComboBox do begin
+  with ValueComboBox do
+  begin
     Name:='ValueComboBox';
     Sorted:=true;
     AutoSelect:=true;
@@ -857,6 +859,7 @@ begin
     Enabled:=false;
     AutoSize:=false;
     SetBounds(0,-30,Width,Height); // hidden
+    DropDownCount:=20;
     Parent:=Self;
     OnMouseDown := @ValueControlMouseDown;
     OnMouseMove := @ValueControlMouseMove;
@@ -873,7 +876,8 @@ begin
   end;
 
   ValueCheckBox:=TCheckBox.Create(Self);
-  with ValueCheckBox do begin
+  with ValueCheckBox do
+  begin
     Name:='ValueCheckBox';
     Visible:=false;
     AutoSize:=false;
@@ -888,7 +892,8 @@ begin
   end;
 
   ValueButton:=TSpeedButton.Create(Self);
-  with ValueButton do begin
+  with ValueButton do
+  begin
     Name:='ValueButton';
     Visible:=false;
     Enabled:=false;