From 4596ff2bef9d5dd080394cc55d069e35c4e2f324 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 10 Aug 2022 21:37:32 +0000
Subject: [PATCH] tvplanit: No wait-cursor while ical import preview is shown.

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

diff --git a/components/tvplanit/source/vpdayview.pas b/components/tvplanit/source/vpdayview.pas
index 3714535e9..a5ae3d3fd 100644
--- a/components/tvplanit/source/vpdayview.pas
+++ b/components/tvplanit/source/vpdayview.pas
@@ -1351,14 +1351,8 @@ begin
     dlg.FileName := '';
     dlg.Options := dlg.Options + [ofAllowMultiSelect, ofFileMustExist];
     if dlg.Execute then begin
-      Screen.Cursor := crHourGlass;
-      try
-        Application.ProcessMessages;
-        for fn in dlg.Files do
-          ImportICalFile(fn, dlg.Files.Count = 1);
-      finally
-        Screen.Cursor := crDefault;
-      end;
+      for fn in dlg.Files do
+        ImportICalFile(fn, dlg.Files.Count = 1);
     end;
   finally
     dlg.Free;
diff --git a/components/tvplanit/source/vpweekview.pas b/components/tvplanit/source/vpweekview.pas
index 1e901fd29..0c6045a3a 100644
--- a/components/tvplanit/source/vpweekview.pas
+++ b/components/tvplanit/source/vpweekview.pas
@@ -1331,14 +1331,8 @@ begin
     dlg.FileName := '';
     dlg.Options := dlg.Options + [ofAllowMultiSelect, ofFileMustExist];
     if dlg.Execute then begin
-      Screen.Cursor := crHourGlass;
-      try
-        Application.ProcessMessages;
-        for fn in dlg.Files do
-          ImportICalFile(fn, dlg.Files.Count = 1);
-      finally
-        Screen.Cursor := crDefault;
-      end;
+      for fn in dlg.Files do
+        ImportICalFile(fn, dlg.Files.Count = 1);
     end;
   finally
     dlg.Free;