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

tvplanit: Improved handling of all-day events in ical files.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9088 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-12-16 23:10:30 +00:00
parent e10ac1b73e
commit 4e6e861a43
4 changed files with 40 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/tvplanit/source/vpimportpreview_icalevent.pas
View File

@ -100,8 +100,12 @@ var
begin
startTime := AEvent.StartTime[false];
endTime := AEvent.EndTime[false];
sStartTime := FormatDateTime(FTimeFormat, startTime);
sEndTime := FormatDateTime(FTimeFormat, endTime - OneSecond);
if endTime = NO_DATE then
sEndTime := ''
else
sEndTime := FormatDateTime(FTimeFormat, endTime - OneSecond);
if AEvent.IsAllDayEvent then
begin
if endTime = NO_DATE then nDays := 1 else nDays := round(endTime - startTime);
@ -109,6 +113,7 @@ begin
Result := Format('%s (%s)', [sStartTime, RSAllDay])
else
Result := Format('%s - %s (%s)', [sStartTime, sEndTime, RSAllDay]);
Result := Result + ' (all day)';
end else
Result :=
RSStartTimeLbl + ' ' + sStartTime + LineEnding +