From e99fbdfde38786ad5a3efacda6358fa54ff20076 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 2 Feb 2011 15:42:43 +0000
Subject: [PATCH] Allow enum properties to be compared to integers

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1484 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/wst_rtti_filter/rtti_filters.pas | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/wst/trunk/wst_rtti_filter/rtti_filters.pas b/wst/trunk/wst_rtti_filter/rtti_filters.pas
index 0242fba3b..221608541 100644
--- a/wst/trunk/wst_rtti_filter/rtti_filters.pas
+++ b/wst/trunk/wst_rtti_filter/rtti_filters.pas
@@ -419,8 +419,12 @@ var
         raise ERttiFilterException.CreateFmt('Unexpected symbol : "%s".',[s]);
       MoveNext();
     end;
-    prsr.CheckToken(toSymbol);
-    AFltrCrtr.AddCondition(propName,fltrOp,prsr.TokenString(),lastCntr);
+    if (prsr.Token = toInteger) then begin
+      AFltrCrtr.AddCondition(propName,fltrOp,prsr.TokenInt,lastCntr)
+    end else begin
+      prsr.CheckToken(toSymbol);
+      AFltrCrtr.AddCondition(propName,fltrOp,prsr.TokenString(),lastCntr);
+    end;
   end;
 
 var