소스 검색

Minor cleanup.

Martijn Laan 5 년 전
부모
커밋
4289148fe8
1개의 변경된 파일6개의 추가작업 그리고 6개의 파일을 삭제
  1. 6 6
      Projects/ScriptDlg.pas

+ 6 - 6
Projects/ScriptDlg.pas

@@ -166,10 +166,6 @@ type
   end;
 
 {$IFNDEF PS_NOINT64}
-  TDownloadFile = class
-    Url, BaseName, RequiredSHA256OfFile: String;
-  end;
-
   TDownloadWizardPage = class(TOutputProgressWizardPage)
     private
       FFiles: TObjectList;
@@ -890,6 +886,11 @@ end;
 
 {--- OutputDownload ---}
 
+type
+  TDownloadFile = class
+    Url, BaseName, RequiredSHA256OfFile: String;
+  end;
+
 procedure TDownloadWizardPage.AbortButtonClick(Sender: TObject);
 begin
   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);
 begin
   inherited;
+  FUseMarqueeStyle := True;
   FFiles := TObjectList.Create;
 end;
 
@@ -942,8 +944,6 @@ begin
 
   FMsg1Label.Caption := 'Downloading additional files...';
 
-  FUseMarqueeStyle := True;
-
   FAbortButton := TNewButton.Create(Self);
   with FAbortButton do begin
     Caption := '&Stop download';