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

lcl: fix clipboard paste in DBEdit. Part of 20326

Browse Source 
git-svn-id: trunk@32462 -
This commit is contained in:
blikblum 2011-09-22 22:54:57 +00:00
parent 414a4a4d6e
commit ce952d5a7a
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/dbedit.inc
View File

@ -255,7 +255,15 @@ end;
procedure TDBEdit.LMPasteFromClip(var Message: TLMessage); procedure TDBEdit.LMPasteFromClip(var Message: TLMessage);
begin begin
if not IsReadOnly then if not IsReadOnly then
begin
//LCL changes the Text before LM_PASTE is called and not after like Delphi. Issue 20330
//When Edit is called the Text property is reset to the previous value
//Add a workaround while bug is not fixed
FDataLink.OnDataChange := nil;
FDatalink.Edit; FDatalink.Edit;
FDataLink.Modified;
FDataLink.OnDataChange := @DataChange;
end;
inherited LMPasteFromClip(Message); inherited LMPasteFromClip(Message);
end; end;