From aa649af23aa88854694c7c633e28601eb441bf88 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Thu, 28 Mar 2019 17:06:08 +0100
Subject: [PATCH] Show full filter in data tab's recent filter drop down, make
 it higher to show more items, plus optimize incremental searching when it has
 focus. See
 https://stackoverflow.com/questions/37477244/tcombobox-autocloseup-property-what-does-it-do

---
 source/main.dfm | 3 +++
 source/main.pas | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/source/main.dfm b/source/main.dfm
index 3b98b0e4..42e96b03 100644
--- a/source/main.dfm
+++ b/source/main.dfm
@@ -1201,8 +1201,11 @@ object MainForm: TMainForm
               Top = 0
               Width = 400
               Height = 21
+              AutoDropDown = True
+              AutoCloseUp = True
               Style = csDropDownList
               Anchors = [akLeft, akTop, akRight]
+              DropDownCount = 20
               TabOrder = 4
               OnSelect = LoadRecentFilter
             end
diff --git a/source/main.pas b/source/main.pas
index c05b32a1..b37e97b6 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -10163,7 +10163,7 @@ begin
       item.Tag := i;
       item.OnClick := LoadRecentFilter;
       menuRecentFilters.Add(item);
-      comboRecentFilters.Items.Add(sstr(capt, 100));
+      comboRecentFilters.Items.Add(capt);
     end;
     FreeAndNil(rx);
     AppSettings.ResetPath;