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

LCL: Take EditMask in DBEdit into account when selectedAll. Issue #29693, patch from Bambang Pranoto.

Browse Source 
git-svn-id: trunk@51898 -
This commit is contained in:
juha 2016-03-10 11:50:27 +00:00
parent de0a7494b4
commit 0dfc266d6f
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/dbedit.inc
View File

@ -202,9 +202,14 @@ begin
exit; exit;
FFocusedDisplay := true; FFocusedDisplay := true;
if WidgetSet.GetLCLCapability(lcReceivesLMClearCutCopyPasteReliably) = LCL_CAPABILITY_YES then if WidgetSet.GetLCLCapability(lcReceivesLMClearCutCopyPasteReliably) = LCL_CAPABILITY_YES then
begin
FDataLink.Reset FDataLink.Reset
else end
else begin
RestoreMask(Self.Text);
FDataLink.Edit; FDataLink.Edit;
Self.DoEnter;
end;
end; end;
procedure TDBEdit.WMKillFocus(var Message: TLMKillFocus); procedure TDBEdit.WMKillFocus(var Message: TLMKillFocus);