|
@@ -166,10 +166,6 @@ type
|
|
end;
|
|
end;
|
|
|
|
|
|
{$IFNDEF PS_NOINT64}
|
|
{$IFNDEF PS_NOINT64}
|
|
- TDownloadFile = class
|
|
|
|
- Url, BaseName, RequiredSHA256OfFile: String;
|
|
|
|
- end;
|
|
|
|
-
|
|
|
|
TDownloadWizardPage = class(TOutputProgressWizardPage)
|
|
TDownloadWizardPage = class(TOutputProgressWizardPage)
|
|
private
|
|
private
|
|
FFiles: TObjectList;
|
|
FFiles: TObjectList;
|
|
@@ -890,6 +886,11 @@ end;
|
|
|
|
|
|
{--- OutputDownload ---}
|
|
{--- OutputDownload ---}
|
|
|
|
|
|
|
|
+type
|
|
|
|
+ TDownloadFile = class
|
|
|
|
+ Url, BaseName, RequiredSHA256OfFile: String;
|
|
|
|
+ end;
|
|
|
|
+
|
|
procedure TDownloadWizardPage.AbortButtonClick(Sender: TObject);
|
|
procedure TDownloadWizardPage.AbortButtonClick(Sender: TObject);
|
|
begin
|
|
begin
|
|
FNeedToAbortDownload := LoggedMsgBox('Are you sure you want to stop the download?', '', mbConfirmation, MB_YESNO, True, ID_YES) = IDYES;
|
|
FNeedToAbortDownload := LoggedMsgBox('Are you sure you want to stop the download?', '', mbConfirmation, MB_YESNO, True, ID_YES) = IDYES;
|
|
@@ -927,6 +928,7 @@ end;
|
|
constructor TDownloadWizardPage.Create(AOwner: TComponent);
|
|
constructor TDownloadWizardPage.Create(AOwner: TComponent);
|
|
begin
|
|
begin
|
|
inherited;
|
|
inherited;
|
|
|
|
+ FUseMarqueeStyle := True;
|
|
FFiles := TObjectList.Create;
|
|
FFiles := TObjectList.Create;
|
|
end;
|
|
end;
|
|
|
|
|
|
@@ -942,8 +944,6 @@ begin
|
|
|
|
|
|
FMsg1Label.Caption := 'Downloading additional files...';
|
|
FMsg1Label.Caption := 'Downloading additional files...';
|
|
|
|
|
|
- FUseMarqueeStyle := True;
|
|
|
|
-
|
|
|
|
FAbortButton := TNewButton.Create(Self);
|
|
FAbortButton := TNewButton.Create(Self);
|
|
with FAbortButton do begin
|
|
with FAbortButton do begin
|
|
Caption := '&Stop download';
|
|
Caption := '&Stop download';
|