paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 09:19:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@53801 -
This commit is contained in:
juha 2016-12-29 22:06:10 +00:00
parent 159b8b4873
commit ec69a17b12
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/onlinepackagemanager/frames/opkman_createrepositorypackagefr.pas
View File

@ -531,6 +531,7 @@ begin
EnableDisableControls(False); EnableDisableControls(False);
if SDD.Execute then if SDD.Execute then
begin begin
Screen.Cursor := crHourGlass;
ShowHideControls(1); ShowHideControls(1);
fPackageZipper := TPackageZipper.Create; fPackageZipper := TPackageZipper.Create;
fPackageZipper.OnZipError := @DoOnZippError; fPackageZipper.OnZipError := @DoOnZippError;
@ -542,6 +543,8 @@ begin
FPackageFile := FDestDir + FPackageName + '.zip'; FPackageFile := FDestDir + FPackageName + '.zip';
pnMessage.Caption := rsCreateRepositoryPackageFrm_Message4; pnMessage.Caption := rsCreateRepositoryPackageFrm_Message4;
fPackageZipper.StartZip(FPackageDir, FPackageFile); fPackageZipper.StartZip(FPackageDir, FPackageFile);
fPackageZipper.WaitFor;
Screen.Cursor := crDefault;
end end
else else
EnableDisableControls(True); EnableDisableControls(True);