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

LCL: execute OnButtonClick after Text/Filter has been applied

Browse Source 
git-svn-id: trunk@58338 -
This commit is contained in:
ondrej 2018-06-19 17:17:32 +00:00
parent f1b3d3f742
commit 631d86fa86
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/editbtn.pas
View File

@ -239,7 +239,7 @@ type
procedure DestroyWnd; override; procedure DestroyWnd; override;
procedure EditKeyDown(var Key: Word; Shift: TShiftState); override; procedure EditKeyDown(var Key: Word; Shift: TShiftState); override;
procedure EditChange; override; procedure EditChange; override;
procedure ButtonClick; override; procedure BuddyClick; override;
procedure SortAndFilter; virtual; abstract; procedure SortAndFilter; virtual; abstract;
procedure ApplyFilter(Immediately: Boolean = False); procedure ApplyFilter(Immediately: Boolean = False);
procedure ApplyFilterCore; virtual; abstract; procedure ApplyFilterCore; virtual; abstract;
@ -1221,7 +1221,7 @@ begin
inherited; inherited;
end; end;
procedure TCustomControlFilterEdit.ButtonClick; procedure TCustomControlFilterEdit.BuddyClick;
begin begin
Text:=''; Text:='';
Filter:=''; Filter:='';