From 4bde1c213ed340c45330d4ece74baf48d6ef4e06 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Sun, 18 Feb 2018 12:05:24 +0100
Subject: [PATCH] Show 16 instead of only 8 items in drop down menus of grids.
 Closes #90

---
 source/grideditlinks.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/source/grideditlinks.pas b/source/grideditlinks.pas
index 0b87ac43..b9e270b6 100644
--- a/source/grideditlinks.pas
+++ b/source/grideditlinks.pas
@@ -837,6 +837,8 @@ begin
   FCombo.Parent := FParentForm;
   FCombo.OnKeyDown := DoKeyDown;
   FCombo.OnExit := DoEndEdit;
+  // Show some more than the default 8 items
+  FCombo.DropDownCount := 16;
   ValueList := TStringList.Create;
   DisplayList := TStringList.Create;
   FMainControl := FCombo;