From a8de18756636fefa685049af15d50b264928411e Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Tue, 19 May 2009 04:34:35 +0000
Subject: [PATCH] LCL, fix pasting text into dbedit is lost after post, issue
 #12970

git-svn-id: trunk@20036 -
---
 lcl/dbctrls.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lcl/dbctrls.pp b/lcl/dbctrls.pp
index 9c695b97b7..013131e7e8 100644
--- a/lcl/dbctrls.pp
+++ b/lcl/dbctrls.pp
@@ -1473,7 +1473,8 @@ begin
   if (FEditing <> RealEditState) then
   begin
     FEditing := RealEditState;
-    IsModified := False;
+    if not FEditing then
+      IsModified := False;
     if Assigned(FOnEditingChange) then
       FOnEditingChange(Self);
   end;