paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-11 23:08: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

27
components/lazcontrols/listfilteredit.pas
View File

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