From f45d42129327288771f43133ae6ee77d5dd8b115 Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@lazarus-ide.org>
Date: Sun, 23 Oct 2011 01:12:45 +0000
Subject: [PATCH] lcl: put TDBEdit in edit state at entry for widgetsets that
 does not implement clipboard action. Bug #20394

git-svn-id: trunk@33035 -
---
 lcl/dbctrls.pp         | 3 +++
 lcl/include/dbedit.inc | 6 +++++-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/lcl/dbctrls.pp b/lcl/dbctrls.pp
index a776003f34..246809b57e 100644
--- a/lcl/dbctrls.pp
+++ b/lcl/dbctrls.pp
@@ -1289,6 +1289,9 @@ procedure Register;
 
 implementation
 
+uses
+  InterfaceBase;
+
 var
   FieldClasses: TFpList;
 
diff --git a/lcl/include/dbedit.inc b/lcl/include/dbedit.inc
index e1108e8f83..7ef5f2b8ac 100644
--- a/lcl/include/dbedit.inc
+++ b/lcl/include/dbedit.inc
@@ -208,7 +208,11 @@ end;
 procedure TDBEdit.WMSetFocus(var Message: TLMSetFocus);
 begin
   inherited WMSetFocus(Message);
-  FDataLink.Reset;
+  // some widgetsets do not notify clipboard actions properly. Put at edit state at entry
+  if WidgetSet.GetLCLCapability(lcReceivesLMClearCutCopyPasteReliably) = LCL_CAPABILITY_YES then
+    FDataLink.Reset
+  else
+    FDataLink.Edit;
 end;
 
 procedure TDBEdit.WMKillFocus(var Message: TLMKillFocus);