From aa6e70e006e18c6ddafead96af6e6f759e589dbb Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 18 Jun 2018 21:54:25 +0000
Subject: [PATCH] tvplanit: Fix import of .ics files with recurring events to
 database-related datastores.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6511 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpdayview.pas  | 1 +
 components/tvplanit/source/vpweekview.pas | 1 +
 2 files changed, 2 insertions(+)

diff --git a/components/tvplanit/source/vpdayview.pas b/components/tvplanit/source/vpdayview.pas
index 2df6be4d8..a9abc95e7 100644
--- a/components/tvplanit/source/vpdayview.pas
+++ b/components/tvplanit/source/vpdayview.pas
@@ -1337,6 +1337,7 @@ begin
               continue;
             id := DataStore.GetNextID(EventsTableName);
             FActiveEvent := Datastore.Resource.Schedule.AddEvent(id, starttime, endtime);
+            FActiveEvent.Changed := true;
             FActiveEvent.LoadFromICalendar(TVpICalEvent(ical[i]));
             Datastore.PostEvents;
             Datastore.NotifyDependents;
diff --git a/components/tvplanit/source/vpweekview.pas b/components/tvplanit/source/vpweekview.pas
index b53e9a705..10a86737f 100644
--- a/components/tvplanit/source/vpweekview.pas
+++ b/components/tvplanit/source/vpweekview.pas
@@ -1276,6 +1276,7 @@ begin
               continue;
             id := DataStore.GetNextID(EventsTableName);
             FActiveEvent := Datastore.Resource.Schedule.AddEvent(id, starttime, endtime);
+            FActiveEvent.Changed := true;
             FActiveEvent.LoadFromICalendar(TVpICalEvent(ical[i]));
             Datastore.PostEvents;
             Datastore.NotifyDependents;