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

datetimectrls: fixed compilation with fpc 2.7.1

Browse Source 
git-svn-id: trunk@47246 -
This commit is contained in:
mattias 2014-12-25 10:51:02 +00:00
parent 00431d3725
commit f411da2257
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/datetimectrls/datetimepicker.pas
View File

@ -2073,7 +2073,7 @@ begin
YMD.Day := FCorrectedValue; YMD.Day := FCorrectedValue;
dtpMonth: dtpMonth:
YMD.Month := FCorrectedValue; YMD.Month := FCorrectedValue;
dtp.dtpYear: dtpYear:
if (YMD.Day = 29) and (YMD.Month = 2) then begin if (YMD.Day = 29) and (YMD.Month = 2) then begin
while not IsLeapYear(YMD.Year) do while not IsLeapYear(YMD.Year) do
Inc(YMD.Year); Inc(YMD.Year);