From 0e48d1843ca53c3cf5948089ccea69fd74a5700d Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 21 May 2013 17:01:09 +0000
Subject: [PATCH] RxDBGrid:fix AV on calc collumn width. Patch from ssadragon

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2739 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/rxdbgrid.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/components/rx/rxdbgrid.pas b/components/rx/rxdbgrid.pas
index 18fad90c4..62373d7b2 100644
--- a/components/rx/rxdbgrid.pas
+++ b/components/rx/rxdbgrid.pas
@@ -3719,7 +3719,10 @@ begin
       begin
         for I := 0 to AColList.Count - 1 do
         begin
-          S := TRxColumn(AColList[i]).Field.DisplayText;
+          if Assigned(TRxColumn(AColList[i]).Field) then
+            S := TRxColumn(AColList[i]).Field.DisplayText
+          else
+            S:='';
           with TRxColumn(AColList[i]) do
             if (KeyList.Count > 0) and (PickList.Count > 0) then
             begin