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

LCL: New method ForceFilter for FilterEdit. Issue #25258, patch from Cyrax.

Browse Source 
git-svn-id: trunk@43482 -
This commit is contained in:
juha 2013-11-26 22:12:08 +00:00
parent 863c0b7125
commit b99a80c49f
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/editbtn.pas
View File

@ -365,6 +365,7 @@ type
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure InvalidateFilter;
function ForceFilter(AFilter : String = '') : String;
procedure StoreSelection; virtual; abstract;
procedure RestoreSelection; virtual; abstract;
public
@ -1834,6 +1835,13 @@ begin
IdleConnected:=true;
end;
function TCustomControlFilterEdit.ForceFilter(AFilter: String): String;
begin
Result := FFilter;
FFilter := AFilter;
ApplyFilter(True);
end;
function TCustomControlFilterEdit.GetDefaultGlyphName: String;
begin
Result := ResBtnListFilter;