From d4b0c88e8393074ef6c8260b5c1b96afdf465c66 Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Wed, 9 May 2007 16:39:56 +0000
Subject: [PATCH] LCL: dbgrid, fixed FieldName/DisplayFormat typo

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

diff --git a/lcl/dbgrids.pas b/lcl/dbgrids.pas
index 370c9c9a04..99f12900b0 100644
--- a/lcl/dbgrids.pas
+++ b/lcl/dbgrids.pas
@@ -3160,7 +3160,7 @@ begin
     try
       inherited Assign(Source);
       FieldName := TColumn(Source).FieldName;
-      DisplayFormat := TColumn(Source).FieldName;
+      DisplayFormat := TColumn(Source).DisplayFormat;
       ValueChecked := TColumn(Source).ValueChecked;
       ValueUnchecked := TColumn(Source).ValueUnchecked;
     finally