paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-27 12:53:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Fix fOnAfterFilter event's name in FilterEdit

Browse Source 
git-svn-id: trunk@41104 -
This commit is contained in:
juha 2013-05-10 07:55:43 +00:00
parent 24f0786690
commit 04702d4ac1
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/editbtn.pas
View File

@ -342,7 +342,7 @@ type
fIsFirstSetFormActivate: Boolean;
fJustActivated: Boolean;
fParentForm: TForm;
fAfterFilter: TNotifyEvent;
fOnAfterFilter: TNotifyEvent;
procedure SetFilter(const AValue: string);
procedure SetIdleConnected(const AValue: Boolean);
procedure OnIdle(Sender: TObject; var Done: Boolean);
@ -379,7 +379,7 @@ type
property SortData: Boolean read fSortData write fSortData;
property SelectedPart: TObject read fSelectedPart write fSelectedPart;
published
property AfterFilter: TNotifyEvent read fAfterFilter write fAfterFilter;
property OnAfterFilter: TNotifyEvent read fOnAfterFilter write fOnAfterFilter;
property OnFilterItem: TFilterItemEvent read fOnFilterItem write fOnFilterItem;
property OnCheckItem: TCheckItemEvent read fOnCheckItem write fOnCheckItem;
property UseFormActivate: Boolean read fUseFormActivate write SetUseFormActivate default False;
@ -1685,8 +1685,8 @@ begin
if fNeedUpdate then
ApplyFilter(true);
IdleConnected:=false;
if Assigned(fAfterFilter) then
fAfterFilter(Self);
if Assigned(fOnAfterFilter) then
fOnAfterFilter(Self);
end;
procedure TCustomControlFilterEdit.SetUseFormActivate(AValue: Boolean);