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

ValEdit: Fix crash in InsertRow if Strings.Count = 0.

Browse Source 
Issue #0025144.

git-svn-id: trunk@43109 -
This commit is contained in:
bart 2013-10-05 20:30:04 +00:00
parent 9b3994023a
commit 00ac786d09
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/valedit.pas
View File

@ -819,7 +819,12 @@ begin
Strings.BeginUpdate;
try
if Append then
NewInd := Row - FixedRows + 1 //append after current row
begin
if (Strings.Count = 0) then //empty grid
NewInd := 0
else
NewInd := Row - FixedRows + 1 //append after current row
end
else
NewInd := Row - FixedRows; //insert it at current row
Strings.InsertItem(NewInd, Line, Nil);