paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 10:00:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fixes bug #19531 - Cannot select the last day of month in Carbon

Browse Source 
git-svn-id: trunk@31956 -
This commit is contained in:
sekelsenmat 2011-08-12 07:03:06 +00:00
parent a7f666c100
commit d7b4da9529
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/carbon/carboncalendarview.pas
View File

@ -766,7 +766,7 @@ begin
if sz = sizeof( CFGregorianDate ) then
begin
CFGregorianDatePtr(ptr)^ := inData.date;
if (inData.selDay>0) and (inData.selDay<inData.daysInMonth) then
if (inData.selDay>0) and (inData.selDay<=inData.daysInMonth) then
CFGregorianDatePtr(ptr)^.day := inData.selDay;
end
else