paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 13:37:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL, enter edit state when pasting on dbedit from Christian, issue #11845

Browse Source 
git-svn-id: trunk@16077 -
This commit is contained in:
jesus 2008-08-15 17:48:12 +00:00
parent 89bce227fa
commit 97487d610f
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/dbctrls.pp
View File

@ -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;

14
lcl/include/dbedit.inc
View File

@ -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