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

LCL: TListViewItems: do not call ws ItemExchange() or ItemMove() if OwnerData = True.

Browse Source 
git-svn-id: trunk@31368 -
This commit is contained in:
zeljko 2011-06-24 21:04:30 +00:00
parent a0933e1606
commit fe54d8652c
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/listitems.inc
View File

@ -154,12 +154,11 @@ begin
raise Exception.CreateFmt(rsListIndexExceedsBounds, [AIndex1]);
if (AIndex2 < 0) or (AIndex2 >= FItems.Count) then
raise Exception.CreateFmt(rsListIndexExceedsBounds, [AIndex2]);
AItem := Item[AIndex1];
FItems.Exchange(AIndex1, AIndex2);
FCacheIndex := AIndex1;
FCacheItem := AItem;
if WSUpdateAllowed then
if not Owner.OwnerData and WSUpdateAllowed then
begin
TWSCustomListViewClass(FOwner.WidgetSetClass).ItemExchange(FOwner, AItem,
AIndex1, AIndex2);
@ -180,7 +179,7 @@ begin
FItems.Move(AFromIndex, AToIndex);
FCacheIndex := AToIndex;
FCacheItem := AItem;
if WSUpdateAllowed then
if not Owner.OwnerData and WSUpdateAllowed then
begin
TWSCustomListViewClass(FOwner.WidgetSetClass).ItemMove(FOwner, AItem,
AFromIndex, AToIndex);