pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Support recurring events in GanttView.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8543 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-12 16:40:15 +00:00
parent 7630af7726
commit 8f81cf7a6d
4 changed files with 271 additions and 93 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/tvplanit/source/vpconst.pas
View File

@ -63,6 +63,7 @@ const
NO_DATE = 9999999;
FOREVER_DATE = 999999;
SecondsInDay = 86400; { Number of seconds in a day }
SecondsInHour = 3600; { Number of seconds in an hour }
SecondsInMinute = 60; { Number of seconds in a minute }
@ -72,6 +73,8 @@ const
OneSecond = 1.0 / SecondsInDay;
OneMinute = 1.0 / MinutesInDay;
OneHour = 1.0 / HoursInDay;
TIME_EPS = 0.1 * OneSecond; // Epsilon for comparing times
MaxDateLen = 40; { maximum length of date picture strings }
MaxMonthName = 15; { maximum length for month names }
MaxDayName = 15; { maximum length for day names }