paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 06:19:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

Opkman: Fixed a small bug + a refresh problem.

Browse Source 
git-svn-id: trunk@53796 -
This commit is contained in:
balazs 2016-12-29 10:10:21 +00:00
parent 625d8bbd2e
commit ccc4cf64a7
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -361,6 +361,7 @@ object CreateRepositoryPackagefr: TCreateRepositoryPackagefr
Width = 75
Anchors = [akTop, akRight]
Caption = 'Cancel'
Enabled = False
ModalResult = 2
OnClick = bCancelClick
TabOrder = 4
@ -380,6 +381,7 @@ object CreateRepositoryPackagefr: TCreateRepositoryPackagefr
Width = 75
Anchors = [akTop, akRight]
Caption = 'Options'
Enabled = False
OnClick = bOptionsClick
TabOrder = 2
end
@ -390,6 +392,7 @@ object CreateRepositoryPackagefr: TCreateRepositoryPackagefr
Width = 75
Anchors = [akTop, akRight]
Caption = 'Help'
Enabled = False
OnClick = bHelpClick
TabOrder = 5
end

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

@ -528,8 +528,10 @@ begin
SDD.Title := rsCreateRepositoryPackageFrm_SDDTitleDst;
SDD.InitialDir := Options.LastPackagedirDst;
EnableDisableControls(False);
if SDD.Execute then
begin
ShowHideControls(1);
fPackageZipper := TPackageZipper.Create;
fPackageZipper.OnZipError := @DoOnZippError;
fPackageZipper.OnZipCompleted := @DoOnZipCompleted;
@ -539,10 +541,10 @@ begin
FPackageName := StringReplace(FPackageName, ' ', '', [rfReplaceAll]);
FPackageFile := FDestDir + FPackageName + '.zip';
pnMessage.Caption := rsCreateRepositoryPackageFrm_Message4;
ShowHideControls(1);
EnableDisableControls(False);
fPackageZipper.StartZip(FPackageDir, FPackageFile);
end;
end
else
EnableDisableControls(True);
end;
procedure TCreateRepositoryPackagefr.bHelpClick(Sender: TObject);
@ -817,7 +819,7 @@ begin
begin
RootData := FVSTPackages.GetNodeData(RootNode);
UpdatePackage.UpdatePackageData.Name := RootData^.FName;
UpdatePackage.UpdatePackageData.DownloadZipURL := '';
UpdatePackage.UpdatePackageData.DownloadZipURL := RootData^.FDownloadURL;
if RootData^.FDisplayName <> '' then
FileName := FDestDir + 'update_' + RootData^.FDisplayName + '.json'
else