paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-16 01:19:30 +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; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
procedure InvalidateFilter; procedure InvalidateFilter;
function ForceFilter(AFilter : String = '') : String;
procedure StoreSelection; virtual; abstract; procedure StoreSelection; virtual; abstract;
procedure RestoreSelection; virtual; abstract; procedure RestoreSelection; virtual; abstract;
public public
@ -1834,6 +1835,13 @@ begin
IdleConnected:=true; IdleConnected:=true;
end; end;
function TCustomControlFilterEdit.ForceFilter(AFilter: String): String;
begin
Result := FFilter;
FFilter := AFilter;
ApplyFilter(True);
end;
function TCustomControlFilterEdit.GetDefaultGlyphName: String; function TCustomControlFilterEdit.GetDefaultGlyphName: String;
begin begin
Result := ResBtnListFilter; Result := ResBtnListFilter;