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

LCL: fixed TCustomListView.GetNextItem.Patch by errno.issue #26033

Browse Source 
git-svn-id: trunk@44997 -
This commit is contained in:
zeljko 2014-05-10 19:36:40 +00:00
parent fc63515eb0
commit 4adef036b3
1 changed files with 31 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
lcl/include/customlistview.inc
View File

@ -1214,14 +1214,10 @@ var
function GetItemStatesInternal(AItem: TListItem): TListItemStates;
begin
Result := [];
if AItem.GetState(Ord(lisCut)) then
;
if AItem.GetState(Ord(lisDropTarget)) then
;
if AItem.GetState(Ord(lisSelected)) then
;
if AItem.GetState(Ord(lisFocused)) then
;
if AItem.GetState(Ord(lisCut)) then ;
if AItem.GetState(Ord(lisDropTarget)) then ;
if AItem.GetState(Ord(lisSelected)) then ;
if AItem.GetState(Ord(lisFocused)) then ;
Result := AItem.FStates;
end;
@ -1232,32 +1228,44 @@ begin
AIndex := StartItem.Index;
ACount := Items.Count;
case Direction of
sdAbove: if (AIndex -1) >= 0 then Result := Items[AIndex - 1];
sdBelow: if (Aindex + 1) < ACount then Result := Items[AIndex + 1];
sdAbove:
while AIndex>0 do
begin
dec(AIndex);
if States <= GetItemStatesInternal(Items[AIndex]) then
begin
Result := Items[AIndex];
exit;
end;
end;
sdBelow:
while AIndex < ACount-1 do
begin
inc(AIndex);
if States <= GetItemStatesInternal(Items[AIndex]) then
begin
Result := Items[AIndex];
exit;
end;
end;
sdAll:
while True do
begin
inc(AIndex);
if AIndex = StartItem.Index then
if AIndex = StartItem.Index then Exit;
if AIndex > ACount-1 then
begin
Result := nil;
Exit;
end;
if AIndex >= ACount then
AIndex := -1;
if (AIndex >= 0) and (AIndex < ACount) then
continue;
end;
if States <= GetItemStatesInternal(Items[AIndex]) then
begin
Result := Items[AIndex];
if GetItemStatesInternal(Result) - States = [] then
Exit;
exit;
end;
end;
end;
if Result = nil then
exit;
if (GetItemStatesInternal(Result) * States = []) then
Result := nil;
end
end;
end;
procedure TCustomListView.ClearSelection;