瀏覽代碼

Rename for clarity.

Martijn Laan 5 年之前
父節點
當前提交
ae3689217c
共有 3 個文件被更改,包括 4 次插入4 次删除
  1. 1 1
      Projects/Install.pas
  2. 1 1
      Projects/Main.pas
  3. 2 2
      Projects/Wizard.pas

+ 1 - 1
Projects/Install.pas

@@ -3489,7 +3489,7 @@ begin
     end;
   end;
 
-  if not Abort and DownloadTemporaryFileAllowProcessMessages then
+  if not Abort and DownloadTemporaryFileProcessMessages then
     Application.ProcessMessages;
 
   if Abort then

+ 1 - 1
Projects/Main.pas

@@ -179,7 +179,7 @@ var
   DisableCodeConsts: Integer;
   SetupExitCode: Integer;
   CreatedIcon: Boolean;
-  RestartInitiatedByThisProcess, DownloadTemporaryFileAllowProcessMessages: Boolean;
+  RestartInitiatedByThisProcess, DownloadTemporaryFileProcessMessages: Boolean;
 {$IFDEF IS_D12}
   TaskbarButtonHidden: Boolean;
 {$ENDIF}

+ 2 - 2
Projects/Wizard.pas

@@ -1885,12 +1885,12 @@ begin
     end;
     WizardForm.Update;
     try
-      DownloadTemporaryFileAllowProcessMessages := True;
+      DownloadTemporaryFileProcessMessages := True;
       CodeNeedsRestart := False;
       Result := CodeRunner.RunStringFunctions('PrepareToInstall', [@CodeNeedsRestart], bcNonEmpty, True, '');
       PrepareToInstallNeedsRestart := (Result <> '') and CodeNeedsRestart;
     finally
-      DownloadTemporaryFileAllowProcessMessages := False;
+      DownloadTemporaryFileProcessMessages := False;
       UpdateCurPageButtonState;
     end;
     Application.BringToFront;