From ddc4c1e57cc00cb1a27d387f8ebe6d2b98a5a38d Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Fri, 26 Jan 2007 17:08:26 +0000
Subject: [PATCH] dbgrid: Additional check for valid ActiveRecord

git-svn-id: trunk@10513 -
---
 lcl/dbgrids.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/dbgrids.pas b/lcl/dbgrids.pas
index b2ea7183ab..787e63c95a 100644
--- a/lcl/dbgrids.pas
+++ b/lcl/dbgrids.pas
@@ -2536,7 +2536,7 @@ begin
       
       UpdateGridColumnSizes;
 
-      if FDatalink.Active then
+      if FDatalink.Active and (FDatalink.ActiveRecord>=0) then
         SetColRow(Col, FixedRows + FDatalink.ActiveRecord);
     end;
   finally