From de666e671c806ca59e17cc642bd6956a6eea76f5 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 21 Aug 2022 15:05:00 +0000
Subject: [PATCH] tvplanit: Fix advance alarm time of imported ical events.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8407 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpdata.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/components/tvplanit/source/vpdata.pas b/components/tvplanit/source/vpdata.pas
index 627cd72ec..3067caa93 100644
--- a/components/tvplanit/source/vpdata.pas
+++ b/components/tvplanit/source/vpdata.pas
@@ -1434,9 +1434,9 @@ begin
     Result.Alarm.Audio := (FDingPath <> '') and FileExists(FDingPath);
     Result.Alarm.AudioSrc := FDingPath;
     case FAlarmAdvType of
-      atMinutes: Result.Alarm.Trigger := FAlarmAdv * OneMinute;
-      atHours: Result.Alarm.Trigger := FAlarmAdv * OneHour;
-      atDays: Result.Alarm.Trigger := FAlarmAdv;
+      atMinutes: Result.Alarm.Trigger := -FAlarmAdv * OneMinute;
+      atHours: Result.Alarm.Trigger := -FAlarmAdv * OneHour;
+      atDays: Result.Alarm.Trigger := -FAlarmAdv;
     end;
     Result.Alarm.RepeatCount := 1;
   end;