Opkman: Show hourglass curson while a package is generated, to indicate a user that something is happening.

git-svn-id: trunk@53801 -
This commit is contained in:
juha 2016-12-29 22:06:10 +00:00
parent 159b8b4873
commit ec69a17b12

View File

@ -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);