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

LCL: Improve TDBDateEdit interference with other Data Aware Controls. Issue #27702, patch from LacaK.

Browse Source 
git-svn-id: trunk@61681 -
This commit is contained in:
juha 2019-08-11 08:18:56 +00:00
parent cc0a2ae11b
commit 0d80f7f8e9
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/dbdateedit.inc
View File

@ -12,10 +12,8 @@
procedure TDBDateEdit.DataChange(Sender: TObject); procedure TDBDateEdit.DataChange(Sender: TObject);
begin begin
if FDataLink.Field <> nil then begin if FDataLink.Field <> nil then
Self.Date := FDataLink.Field.AsDateTime; Self.Date := FDataLink.Field.AsDateTime
if Focused and AutoSelect then SelectAll;
end
else else
Text := ''; Text := '';
end; end;