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

LCL: TCustomControlFilterEdit: keep still at designtime

Browse Source 
git-svn-id: trunk@35052 -
This commit is contained in:
mattias 2012-01-31 08:36:35 +00:00
parent 5f249af015
commit f762ac3dbd
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

@ -165,13 +165,13 @@ type
// An abstract base class for edit controls which filter data in
// visual controls like TListView and TTreeView.
TCustomControlFilterEdit = class(TCustomEditButton)
procedure OnIdle(Sender: TObject; var Done: Boolean);
private
fFilter: string;
fIdleConnected: Boolean;
fSortData: Boolean; // Data needs to be sorted.
procedure SetFilter(const AValue: string);
procedure SetIdleConnected(const AValue: Boolean);
procedure OnIdle(Sender: TObject; var Done: Boolean);
protected
fNeedUpdate: Boolean;
fIsFirstUpdate: Boolean;
@ -946,7 +946,7 @@ begin
RestoreSelection;
end
else begin
if csDestroying in ComponentState then exit;
if [csDestroying,csDesigning]*ComponentState<>[] then exit;
InvalidateFilter;
end;
end;