From 9dbb5d195c22468eb5973b54e4634fb3cbbeeb06 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Mon, 14 Nov 2011 20:47:09 +0000
Subject: [PATCH] Add new quick filter menu item "Column IN (...)". Fixes issue
 #2606

---
 source/main.dfm | 5 +++++
 source/main.pas | 3 +++
 2 files changed, 8 insertions(+)

diff --git a/source/main.dfm b/source/main.dfm
index 5928b857..9f4e2b50 100644
--- a/source/main.dfm
+++ b/source/main.dfm
@@ -8675,6 +8675,11 @@ object MainForm: TMainForm
         ImageIndex = 4
         OnClick = QuickFilterClick
       end
+      object QF20: TMenuItem
+        Caption = 'Column IN ()'
+        ImageIndex = 4
+        OnClick = QuickFilterClick
+      end
       object N21: TMenuItem
         Caption = '-'
       end
diff --git a/source/main.pas b/source/main.pas
index 2e5fa627..9e4a2ab0 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -534,6 +534,7 @@ type
     ExportdatabaseasSQL1: TMenuItem;
     Exportgridrows1: TMenuItem;
     Synchronizedatabase2: TMenuItem;
+    QF20: TMenuItem;
     procedure actCreateDBObjectExecute(Sender: TObject);
     procedure menuConnectionsPopup(Sender: TObject);
     procedure actExitApplicationExecute(Sender: TObject);
@@ -5529,12 +5530,14 @@ begin
     QF17.Enabled := true; QF17.Hint := Col + ' > ' + esc(Value);
     QF18.Enabled := true; QF18.Hint := Col + ' < ' + esc(Value);
     QF19.Enabled := true; QF19.Hint := Col + ' LIKE ''%' + esc(Value, True, False) + '%''';
+    QF20.Enabled := true; QF20.Hint := Col + ' IN (' + Value + ')';
   end else begin
     QF15.Enabled := false; QF15.Hint := Col + ' = ' + CLPBRD;
     QF16.Enabled := false; QF16.Hint := Col + ' != ' + CLPBRD;
     QF17.Enabled := false; QF17.Hint := Col + ' > ' + CLPBRD;
     QF18.Enabled := false; QF18.Hint := Col + ' < ' + CLPBRD;
     QF19.Enabled := false; QF19.Hint := Col + ' LIKE %' + CLPBRD + '%';
+    QF20.Enabled := false; QF20.Hint := Col + ' IN (' + CLPBRD + ')';
   end;
 
   for i:=0 to menuQuickFilter.Count-1 do begin