From cc8ab8124e23b57eb428e11a7d41bb98a39fcc98 Mon Sep 17 00:00:00 2001
From: balazs <balazs@lazarus-ide.org>
Date: Thu, 29 Jun 2017 17:02:03 +0000
Subject: [PATCH] Opkman: Show hourglass cursor on cleanup.

git-svn-id: trunk@55414 -
---
 components/onlinepackagemanager/opkman_mainfrm.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/components/onlinepackagemanager/opkman_mainfrm.pas b/components/onlinepackagemanager/opkman_mainfrm.pas
index d5804ab39f..9bb002d02e 100644
--- a/components/onlinepackagemanager/opkman_mainfrm.pas
+++ b/components/onlinepackagemanager/opkman_mainfrm.pas
@@ -946,7 +946,12 @@ var
 begin
   if MessageDlgEx(rsMainFrm_rsRepositoryCleanup0, mtInformation, [mbYes, mbNo], Self) = mrYes then
   begin
-    Cnt := SerializablePackages.Cleanup;
+    Screen.Cursor := crHourGlass;
+    try
+      Cnt := SerializablePackages.Cleanup;
+    finally
+      Screen.Cursor := crDefault;
+    end;
     MessageDlgEx(Format(rsMainFrm_rsRepositoryCleanup1, [IntToStr(Cnt)]),
       mtInformation, [mbOk], Self);
   end;