paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 22:19:18 +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 // An abstract base class for edit controls which filter data in
// visual controls like TListView and TTreeView. // visual controls like TListView and TTreeView.
TCustomControlFilterEdit = class(TCustomEditButton) TCustomControlFilterEdit = class(TCustomEditButton)
procedure OnIdle(Sender: TObject; var Done: Boolean);
private private
fFilter: string; fFilter: string;
fIdleConnected: Boolean; fIdleConnected: Boolean;
fSortData: Boolean; // Data needs to be sorted. fSortData: Boolean; // Data needs to be sorted.
procedure SetFilter(const AValue: string); procedure SetFilter(const AValue: string);
procedure SetIdleConnected(const AValue: Boolean); procedure SetIdleConnected(const AValue: Boolean);
procedure OnIdle(Sender: TObject; var Done: Boolean);
protected protected
fNeedUpdate: Boolean; fNeedUpdate: Boolean;
fIsFirstUpdate: Boolean; fIsFirstUpdate: Boolean;
@ -946,7 +946,7 @@ begin
RestoreSelection; RestoreSelection;
end end
else begin else begin
if csDestroying in ComponentState then exit; if [csDestroying,csDesigning]*ComponentState<>[] then exit;
InvalidateFilter; InvalidateFilter;
end; end;
end; end;