paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 10:20:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, fix exception on adding first custom column (regresion introduced in r24057 #22775e7a58), issue #16021

Browse Source 
git-svn-id: trunk@24070 -
This commit is contained in:
jesus 2010-03-17 17:56:27 +00:00
parent 0f10f9bfc1
commit d83ee6522b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/grids.pas
View File

@ -10035,7 +10035,10 @@ var
i: Integer; i: Integer;
begin begin
{$ifdef NewCols} {$ifdef NewCols}
result := Index; if Index>Count-1 then
result := -1
else
result := Index;
{$else} {$else}
result := -1; result := -1;
if Index>=0 then if Index>=0 then