From dac87729cacbbe26164783b0cd91d37fb2202165 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Thu, 7 Nov 2019 06:59:09 +0100
Subject: [PATCH] Never prepend "AND " in first quick filter. Closes #796

---
 source/main.pas | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/source/main.pas b/source/main.pas
index 227d62c1..4b5c0510 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -6373,10 +6373,14 @@ begin
   if Filter <> '' then begin
     SynMemoFilter.UndoList.AddGroupBreak;
     SynMemoFilter.SelectAll;
-    if KeyPressed(VK_SHIFT) and (Pos(Filter, SynmemoFilter.Text) = 0) and (Pos(SynmemoFilter.Text, Filter) = 0) then
-      SynmemoFilter.SelText := SynmemoFilter.Text + ' AND ' + Filter
-    else
-      SynmemoFilter.SelText := Filter;
+    if KeyPressed(VK_SHIFT)
+      and (Pos(Filter, SynMemoFilter.Text) = 0) and (Pos(SynMemoFilter.Text, Filter) = 0)
+      and (not SynMemoFilter.Text.Trim.IsEmpty)
+      then begin
+      SynMemoFilter.SelText := SynMemoFilter.Text + ' AND ' + Filter
+    end else begin
+      SynMemoFilter.SelText := Filter;
+    end;
     ToggleFilterPanel(True);
     actApplyFilterExecute(Sender);
   end;