paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 21:40:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Opkman: Improve showing an HuorGlass cursor while generating a package.

Browse Source 
git-svn-id: trunk@53803 -
This commit is contained in:
juha 2016-12-30 10:08:01 +00:00
parent 6b6c806caa
commit e691e3d897
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -543,8 +543,6 @@ begin
FPackageFile := FDestDir + FPackageName + '.zip';
pnMessage.Caption := rsCreateRepositoryPackageFrm_Message4;
fPackageZipper.StartZip(FPackageDir, FPackageFile);
fPackageZipper.WaitFor;
Screen.Cursor := crDefault;
end
else
EnableDisableControls(True);
@ -759,6 +757,7 @@ end;
procedure TCreateRepositoryPackagefr.DoOnZippError(Sender: TObject;
AZipFile: String; const AErrMsg: String);
begin
Screen.Cursor := crDefault;
MessageDlgEx(rsCreateRepositoryPackageFrm_Error1 + ' "' + AZipFile + '". ' + rsProgressFrm_Error1 + sLineBreak +
AErrMsg, mtError, [mbOk], TForm(Self.Parent));
ShowHideControls(2);
@ -881,7 +880,7 @@ begin
CanClose := False;
pnMessage.Caption := rsCreateRepositoryPackageFrm_Message5;
pnMessage.Invalidate;
Sleep(2000);
Screen.Cursor := crDefault;
SerializablePackages := TSerializablePackages.Create;
try
RootNode := FVSTPackages.GetFirst;
@ -967,6 +966,5 @@ begin
end;
end.