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

LCL: Try to derive Time from the text in the control in TTimeEdit.GetTime, if DirectInput is True. Issue #0031227.

Browse Source 
git-svn-id: trunk@53944 -
This commit is contained in:
bart 2017-01-14 17:14:48 +00:00
parent 1fb630f063
commit 8af43e0c0b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/editbtn.pas
View File

@ -2074,6 +2074,8 @@ end;
function TTimeEdit.GetTime: TDateTime; function TTimeEdit.GetTime: TDateTime;
begin begin
if DirectInput then
TryParseInput(Text, FTime);
Result := FTime; Result := FTime;
if IsEmptyTime then begin if IsEmptyTime then begin
if FDefaultNow then if FDefaultNow then