paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-04 02:16:06 +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
This commit is contained in:
wp_xyz 2022-04-06 00:14:48 +02:00
parent dcc2d5d0d5
commit 478e5101d9
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/grids.pas
View File

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