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

LCL: grids: AutoFillColumns, loop should count down to 0 as sometimes it deletes columns

Browse Source
This commit is contained in:
Jesus Reyes A 2021-08-23 23:54:30 -05:00
parent 239be664c0
commit f530072937
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/grids.pas
View File

@ -2303,7 +2303,7 @@ begin
SetLength(widths, ColCount); SetLength(widths, ColCount);
availableSize := ClientWidth - GetBorderWidth; availableSize := ClientWidth - GetBorderWidth;
for i:=0 to ColCount-1 do for i:=ColCount-1 downto 0 do
with widths[i] do begin with widths[i] do begin
aIndex := i; aIndex := i;
GetAutoFillColumnInfo(i, aMin, aMax, aPriority); GetAutoFillColumnInfo(i, aMin, aMax, aPriority);