From 7ad12eb55cd00d58312e559fa3b6887f6a155913 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Tue, 2 Oct 2007 22:19:04 +0000
Subject: [PATCH] Fix bug #1805416 "quick filter on enum checkbox"

---
 source/childwin.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/source/childwin.pas b/source/childwin.pas
index 3ee8e5be..547542a1 100644
--- a/source/childwin.pas
+++ b/source/childwin.pas
@@ -3784,7 +3784,7 @@ var
   menuitem : TMenuItem;
 begin
   // Set filter for "where..."-clause
-  value := gridData.SelectedField.AsString;
+  value := GetFieldValue(gridData.SelectedField);
   menuitem := (Sender as TMenuItem);
   column := mask(gridData.SelectedField.FieldName);
   if menuitem = QF1 then
@@ -4899,7 +4899,7 @@ begin
     // Manipulate the Quick-filter menuitems
     selectedColumn := mask(gridData.SelectedField.FieldName);
     // 1. block: include selected columnname and value from datagrid in caption
-    value := sstr(gridData.SelectedField.AsString, 100);
+    value := sstr(GetFieldValue(gridData.SelectedField), 100);
     QF1.Caption := selectedColumn + ' = ' + esc( value );
     QF2.Caption := selectedColumn + ' != ' + esc( value );
     QF3.Caption := selectedColumn + ' > ' + esc( value );