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

LCL, dbgrid: fix exception on adding second record (regression caused by r51914 #5224c3c339), fixes issues #29802, #29813

Browse Source 
git-svn-id: trunk@51918 -
This commit is contained in:
jesus 2016-03-11 16:24:10 +00:00
parent f6c0e626c2
commit 712eae76cd
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/dbgrids.pas
View File

@ -3381,6 +3381,7 @@ end;
procedure TCustomDBGrid.UpdateActive;
var
PrevRow: Integer;
NewRow: Integer;
begin
if (csDestroying in ComponentState) or
(FDatalink=nil) or (not FDatalink.Active) or
@ -3391,7 +3392,10 @@ begin
[ClassName, Name, FDataLink.ActiveRecord, FixedRows, Row]);
{$endif}
PrevRow := Row;
Row:= FixedRows + FDataLink.ActiveRecord;
NewRow:= FixedRows + FDataLink.ActiveRecord;
if NewRow>RowCount-1 then
NewRow := RowCount-1;
Row := NewRow;
if PrevRow<>Row then
InvalidateCell(0, PrevRow);//(InvalidateRow(PrevRow);
InvalidateRow(Row);