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

datetimectrls: fixed decodetime

Browse Source 
git-svn-id: trunk@47637 -
This commit is contained in:
mattias 2015-02-07 12:14:19 +00:00
parent 2f1968a3cf
commit 1ace74c1d3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/datetimectrls/datetimepicker.pas
View File

@ -1341,7 +1341,7 @@ begin
MiliSec := 0;
end;
end else
DecodeTime(FDateTime, Result.Hour, Result.Minute, Result.Second, Result.MiliSec);
DecodeTime(Frac(FDateTime), Result.Hour, Result.Minute, Result.Second, Result.MiliSec);
end;
function TCustomDateTimePicker.GetYYYYMMDD(const TodayIfNull: Boolean;
@ -2729,7 +2729,7 @@ begin
else
FTextPart[FDayPos] := IntToStr(W[1]);
DecodeTime(FDateTime, WT[dtpHour], WT[dtpMinute], WT[dtpSecond], WT[dtpMiliSec]);
DecodeTime(Frac(FDateTime), WT[dtpHour], WT[dtpMinute], WT[dtpSecond], WT[dtpMiliSec]);
if dtpAMPM in FEffectiveHideDateTimeParts then
FTimeText[dtpAMPM] := ''