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

tvplanit: Fix advance alarm time of imported ical events.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8407 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-08-21 15:05:00 +00:00
parent 659a480a92
commit de666e671c
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/tvplanit/source/vpdata.pas
View File

@ -1434,9 +1434,9 @@ begin
Result.Alarm.Audio := (FDingPath <> '') and FileExists(FDingPath); Result.Alarm.Audio := (FDingPath <> '') and FileExists(FDingPath);
Result.Alarm.AudioSrc := FDingPath; Result.Alarm.AudioSrc := FDingPath;
case FAlarmAdvType of case FAlarmAdvType of
atMinutes: Result.Alarm.Trigger := FAlarmAdv * OneMinute; atMinutes: Result.Alarm.Trigger := -FAlarmAdv * OneMinute;
atHours: Result.Alarm.Trigger := FAlarmAdv * OneHour; atHours: Result.Alarm.Trigger := -FAlarmAdv * OneHour;
atDays: Result.Alarm.Trigger := FAlarmAdv; atDays: Result.Alarm.Trigger := -FAlarmAdv;
end; end;
Result.Alarm.RepeatCount := 1; Result.Alarm.RepeatCount := 1;
end; end;