paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 23:57:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: add stored function for FilterEdit TextHint. Issue #28956

Browse Source 
git-svn-id: trunk@50231 -
This commit is contained in:
ondrej 2015-11-05 12:38:05 +00:00
parent 1b015d1034
commit 6d5708e02c
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/editbtn.pas
View File

@ -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 := '';