paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-11 22:48:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazControls: Prevent a ListBox flashing when ListFilterEdit is updated. Move BeginUpdate up. Issue #40279, patch by n7800.

Browse Source
This commit is contained in:
Juha 2023-05-23 11:32:55 +03:00
parent 62acfd9909
commit d0671c7447
1 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazcontrols/listfilteredit.pas
View File

@ -200,8 +200,9 @@ begin
clb:=Nil; clb:=Nil;
if fFilteredListbox is TCustomCheckListBox then if fFilteredListbox is TCustomCheckListBox then
clb:=TCustomCheckListBox(fFilteredListbox); clb:=TCustomCheckListBox(fFilteredListbox);
fFilteredListbox.Clear;
fFilteredListbox.Items.BeginUpdate; fFilteredListbox.Items.BeginUpdate;
try
fFilteredListbox.Clear;
for i:=0 to fSortedData.Count-1 do begin for i:=0 to fSortedData.Count-1 do begin
s:=fSortedData[i]; s:=fSortedData[i];
ListInd:=fFilteredListbox.Items.AddObject(s, fSortedData.Objects[i]); ListInd:=fFilteredListbox.Items.AddObject(s, fSortedData.Objects[i]);
@ -214,7 +215,9 @@ begin
clb.Checked[ListInd]:=fCheckedItems.Contains(s); clb.Checked[ListInd]:=fCheckedItems.Contains(s);
end; end;
end; end;
finally
fFilteredListbox.Items.EndUpdate; fFilteredListbox.Items.EndUpdate;
end;
if FSimpleSelection and (fSortedData.Count > 0) then begin if FSimpleSelection and (fSortedData.Count > 0) then begin
if (Text<>'') then begin if (Text<>'') then begin
MoveTo(0, true); MoveTo(0, true);