mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-10 20:56:14 +02:00
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:
parent
159b8b4873
commit
ec69a17b12
@ -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);
|
||||
|
Loading…
Reference in New Issue
Block a user