From 97487d610f93a9eed451e78232572068ba5c3b9b Mon Sep 17 00:00:00 2001 From: jesus Date: Fri, 15 Aug 2008 17:48:12 +0000 Subject: [PATCH] LCL, enter edit state when pasting on dbedit from Christian, issue #11845 git-svn-id: trunk@16077 - --- lcl/dbctrls.pp | 2 ++ lcl/include/dbedit.inc | 14 ++++++++++++++ 2 files changed, 16 insertions(+) diff --git a/lcl/dbctrls.pp b/lcl/dbctrls.pp index 1962907605..1efbe08388 100644 --- a/lcl/dbctrls.pp +++ b/lcl/dbctrls.pp @@ -154,6 +154,8 @@ Type procedure EditingDone; override; procedure WMSetFocus(var Message: TLMSetFocus); message LM_SETFOCUS; procedure WMKillFocus(var Message: TLMKillFocus); message LM_KILLFOCUS; + procedure LMPasteFromClip(var Message: TLMessage); message LM_PASTE; + procedure LMCutToClip(var Message: TLMessage); message LM_CUT; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; diff --git a/lcl/include/dbedit.inc b/lcl/include/dbedit.inc index dd056e57ec..2acaa4adfc 100644 --- a/lcl/include/dbedit.inc +++ b/lcl/include/dbedit.inc @@ -262,6 +262,20 @@ begin FUpdatingRecord := False; end; +procedure TDBEdit.LMPasteFromClip(var Message: TLMessage); +begin + if not IsReadOnly then + FDatalink.Edit; + inherited LMPasteFromClip(Message); +end; + +procedure TDBEdit.LMCutToClip(var Message: TLMessage); +begin + if not IsReadOnly then + FDatalink.Edit; + inherited LMCutToClip(Message); +end; + { Public Methods } constructor TDBEdit.Create(AOwner: TComponent); begin