paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 19:39:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: formatting

Browse Source 
git-svn-id: trunk@37954 -
This commit is contained in:
juha 2012-07-15 19:44:40 +00:00
parent 0be8b02a9f
commit 8ac37f9f1e
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/customlistview.inc
View File

@ -874,9 +874,8 @@ var
AItemIndex: Integer;
begin
if FSortType = stNone then exit;
if FListItems.Count < 2 then Exit;
if lffPreparingSorting in FFlags then
exit;
if FListItems.Count < 2 then exit;
if lffPreparingSorting in FFlags then exit;
if HandleAllocated then
begin
@ -891,13 +890,9 @@ begin
begin
FSavedSelection.Add(Selected);
if MultiSelect then
begin
for i := 0 to Items.Count-1 do
begin
if Items[i].Selected and (Items[i] <> Selected) then
FSavedSelection.Add(Items[i]);
end;
end;
end;
Items.FCacheIndex := -1;