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

LCL/StringGrid: Fix crash when Columns are exchanged and column indices are specified in reverse order.

Browse Source 
(cherry picked from commit 478e5101d9)
This commit is contained in:
wp_xyz 2022-04-06 00:14:48 +02:00 committed by Maxim Ganetsky
parent 1c8d13354d
commit bc8d0d2ae5
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/grids.pas
View File

@ -13120,8 +13120,15 @@ begin
if HasIndex(Index) then
if HasIndex(WithIndex) then begin
BeginUpdate;
Items[WithIndex].Index := Index;
Items[Index+1].Index := WithIndex;
if Index < WithIndex then
begin
Items[WithIndex].Index := Index;
Items[Index+1].Index := WithIndex;
end else
begin
Items[Index].Index := WithIndex;
Items[WithIndex+1].Index := Index;
end;
EndUpdate;
end else
raise Exception.Create('WithIndex out of range')