paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 22:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: call inherited method in TDBEdit.LMPasteFromClip only if Field.CanModify (no effect for now, but as soon the issue #20330 if fixed, will get the correct behavior)

Browse Source 
git-svn-id: trunk@32480 -
This commit is contained in:
blikblum 2011-09-23 23:42:04 +00:00
parent 4abcef4f08
commit 4dc5517533
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/dbedit.inc
View File

@ -244,8 +244,8 @@ begin
FDatalink.Edit;
FDataLink.Modified;
FDataLink.OnDataChange := @DataChange;
inherited LMPasteFromClip(Message);
end;
inherited LMPasteFromClip(Message);
end;
procedure TDBEdit.LMCutToClip(var Message: TLMessage);