From ec69a17b12d29dd7664e66f7ac72c401a85c50e1 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Thu, 29 Dec 2016 22:06:10 +0000
Subject: [PATCH] Opkman: Show hourglass curson while a package is generated,
 to indicate a user that something is happening.

git-svn-id: trunk@53801 -
---
 .../frames/opkman_createrepositorypackagefr.pas                | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/components/onlinepackagemanager/frames/opkman_createrepositorypackagefr.pas b/components/onlinepackagemanager/frames/opkman_createrepositorypackagefr.pas
index d089c856bc..62be6e7e64 100644
--- a/components/onlinepackagemanager/frames/opkman_createrepositorypackagefr.pas
+++ b/components/onlinepackagemanager/frames/opkman_createrepositorypackagefr.pas
@@ -531,6 +531,7 @@ begin
   EnableDisableControls(False);
   if SDD.Execute then
   begin
+    Screen.Cursor := crHourGlass;
     ShowHideControls(1);
     fPackageZipper := TPackageZipper.Create;
     fPackageZipper.OnZipError := @DoOnZippError;
@@ -542,6 +543,8 @@ begin
     FPackageFile := FDestDir + FPackageName + '.zip';
     pnMessage.Caption := rsCreateRepositoryPackageFrm_Message4;
     fPackageZipper.StartZip(FPackageDir, FPackageFile);
+    fPackageZipper.WaitFor;
+    Screen.Cursor := crDefault;
   end
   else
     EnableDisableControls(True);