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

LazControls: lisfilteredit, reverted 35516 #aa06f3d9c9 to 35442 since we changed behaviour of ShowModal.

Browse Source 
git-svn-id: trunk@35526 -
This commit is contained in:
zeljko 2012-02-21 09:33:14 +00:00
parent 218a877daf
commit 59696974ad
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/lazcontrols/listfilteredit.pas
View File

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