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

LCL: FilterEdit, search on ASync instead of IDLE. E.g. in the IDE, while compilation runs, filter edits are otherwise not reacting.

Browse Source
This commit is contained in:
Martin 2023-05-29 13:20:27 +02:00
parent 046c226625
commit 3855efa430
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/editbtn.pas
View File

@ -236,7 +236,7 @@ type
procedure SetFilterOptions(AValue: TFilterStringOptions);
procedure SetSortData(AValue: Boolean);
procedure SetIdleConnected(const AValue: Boolean);
procedure OnIdle(Sender: TObject; var Done: Boolean);
procedure OnAsync(Data: PtrInt);
function IsTextHintStored: Boolean;
protected
fNeedUpdate: Boolean;
@ -1162,6 +1162,7 @@ end;
destructor TCustomControlFilterEdit.Destroy;
begin
IdleConnected := False;
inherited Destroy;
end;
@ -1241,7 +1242,7 @@ begin
Result := DoDefaultFilterItem(ACaption, ItemData);
end;
procedure TCustomControlFilterEdit.OnIdle(Sender: TObject; var Done: Boolean);
procedure TCustomControlFilterEdit.OnAsync(Data: PtrInt);
begin
if fNeedUpdate then
ApplyFilter(true);
@ -1255,9 +1256,9 @@ begin
if fIdleConnected=AValue then exit;
fIdleConnected:=AValue;
if fIdleConnected then
Application.AddOnIdleHandler(@OnIdle)
Application.QueueAsyncCall(@OnAsync, 0)
else
Application.RemoveOnIdleHandler(@OnIdle);
Application.RemoveAsyncCalls(Self);
end;
procedure TCustomControlFilterEdit.EditKeyDown(var Key: Word; Shift: TShiftState);