From 6d5708e02ca5628d08b127611b7bcf08f1ab93eb Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Thu, 5 Nov 2015 12:38:05 +0000
Subject: [PATCH] LCL: add stored function for FilterEdit TextHint. Issue
 #28956

git-svn-id: trunk@50231 -
---
 lcl/editbtn.pas | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lcl/editbtn.pas b/lcl/editbtn.pas
index 09e05baa4f..77d0bd0046 100644
--- a/lcl/editbtn.pas
+++ b/lcl/editbtn.pas
@@ -435,6 +435,7 @@ type
     procedure SetUseFormActivate(AValue: Boolean);
     procedure FormActivate(Sender: TObject); // Connects to owning form.
     procedure FormDeactivate(Sender: TObject);
+    function IsTextHintStored: Boolean;
   protected
     fNeedUpdate: Boolean;
     fIsFirstUpdate: Boolean;
@@ -535,7 +536,7 @@ type
     property OnStartDrag;
     property OnUTF8KeyPress;
     property Text;
-    property TextHint;
+    property TextHint stored IsTextHintStored;
     property TextHintFontColor;
     property TextHintFontStyle;
   end;
@@ -2233,6 +2234,11 @@ begin
   IdleConnected:=true;
 end;
 
+function TCustomControlFilterEdit.IsTextHintStored: Boolean;
+begin
+  Result := TextHint <> rsFilter;
+end;
+
 procedure TCustomControlFilterEdit.ResetFilter;
 begin
   Filter := '';