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

LCL: fix the bug in TListItems.Exchange()

Browse Source 
CacheIndex has been changed from AIndex1 to AIndex2
This commit is contained in:
rich2014 2024-09-07 14:56:13 +08:00
parent d5ed1772b9
commit 72f42b17e1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/listitems.inc
View File

@ -160,7 +160,7 @@ begin
Include(Owner.FFlags, lffItemsMoving);
try
FItems.Exchange(AIndex1, AIndex2);
FCacheIndex := AIndex1;
FCacheIndex := AIndex2;
FCacheItem := AItem;
if not Owner.OwnerData and WSUpdateAllowed then
begin