From 631d86fa8600569c726b0513fec7a613af6ec2cd Mon Sep 17 00:00:00 2001 From: ondrej Date: Tue, 19 Jun 2018 17:17:32 +0000 Subject: [PATCH] LCL: execute OnButtonClick after Text/Filter has been applied git-svn-id: trunk@58338 - --- lcl/editbtn.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lcl/editbtn.pas b/lcl/editbtn.pas index 7cd81b2ec7..46f68b5fcd 100644 --- a/lcl/editbtn.pas +++ b/lcl/editbtn.pas @@ -239,7 +239,7 @@ type procedure DestroyWnd; override; procedure EditKeyDown(var Key: Word; Shift: TShiftState); override; procedure EditChange; override; - procedure ButtonClick; override; + procedure BuddyClick; override; procedure SortAndFilter; virtual; abstract; procedure ApplyFilter(Immediately: Boolean = False); procedure ApplyFilterCore; virtual; abstract; @@ -1221,7 +1221,7 @@ begin inherited; end; -procedure TCustomControlFilterEdit.ButtonClick; +procedure TCustomControlFilterEdit.BuddyClick; begin Text:=''; Filter:='';