From 142dc723bf252c507f5a1e4b9df59b2d6a45827d Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Sat, 14 Feb 2009 18:47:31 +0000
Subject: [PATCH] LCL, removes an obsolete hack for an old bug in
 TField.CanModify, from Joost, issue #13169

git-svn-id: trunk@18686 -
---
 lcl/dbctrls.pp | 16 +---------------
 1 file changed, 1 insertion(+), 15 deletions(-)

diff --git a/lcl/dbctrls.pp b/lcl/dbctrls.pp
index 07966ea37e..34f9c6cc59 100644
--- a/lcl/dbctrls.pp
+++ b/lcl/dbctrls.pp
@@ -63,7 +63,6 @@ Type
     FOnFocusRequest: TNotifyEvent;
     FOnLayoutChange: TNotifyEvent;
 
-    function FieldCanModify: Boolean;
     function GetCanModify: Boolean;
 
     // set current field
@@ -1316,19 +1315,6 @@ end;
 
 
 {TFieldDataLink  Private Methods}
-
-{hack around broken Field method by using this instead}
-function TFieldDataLink.FieldCanModify: Boolean;
-begin
-  Result:=Not FField.ReadOnly;
-  If Result then
-    begin
-    Result:=Assigned(FField.DataSet);
-    If Result then
-      Result:=FField.DataSet.CanModify;
-    end;
-end;
-
 {
   If the field exists and can be modified, then
   we CanModify as long as this hasn't been set
@@ -1336,7 +1322,7 @@ end;
 }
 function TFieldDataLink.GetCanModify: Boolean;
 begin
-  if Assigned(FField) and (FieldCanModify) then
+  if Assigned(FField) and (FField.CanModify) then
      Result := not ReadOnly
   else
     Result := False;