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

ListFilterEdit: Remove a test "if fFilteredListbox.SelCount > 0" which for some reason created an error.

Browse Source 
git-svn-id: trunk@35516 -
This commit is contained in:
juha 2012-02-21 00:03:35 +00:00
parent 332f2a2a55
commit aa06f3d9c9
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/lazcontrols/listfilteredit.pas
View File

@ -187,10 +187,9 @@ var
i: Integer;
begin
fSelectionList.Clear;
if fFilteredListbox.SelCount > 0 then
for i := 0 to fFilteredListbox.Count-1 do
if fFilteredListbox.Selected[i] then
fSelectionList.Add(fFilteredListbox.Items[i]);
for i := 0 to fFilteredListbox.Count-1 do
if fFilteredListbox.Selected[i] then
fSelectionList.Add(fFilteredListbox.Items[i]);
end;
procedure TListFilterEdit.RestoreSelection;