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

LCL: Make fix for Issue #0031227 a bit more safe (don't rely on implementation details of TryParseInput).

Browse Source 
git-svn-id: trunk@53947 -
This commit is contained in:
bart 2017-01-15 12:27:08 +00:00
parent a81c96ca0d
commit dccf31997b
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/editbtn.pas
View File

@ -2073,9 +2073,11 @@ end;
{ TTimeEdit }
function TTimeEdit.GetTime: TDateTime;
var
TmpResult: TDateTime;
begin
if DirectInput then
TryParseInput(Text, FTime);
if DirectInput and TryParseInput(Text, TmpResult) then
FTime := TmpResult;
Result := FTime;
if IsEmptyTime then begin
if FDefaultNow then