瀏覽代碼

CompForm: Dropping a file should prompt to save all files.

Jordan Russell 5 年之前
父節點
當前提交
420073e8ce
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      Projects/CompForm.pas

+ 1 - 1
Projects/CompForm.pas

@@ -3044,7 +3044,7 @@ end;
 procedure TCompileForm.MainMemoDropFiles(Sender: TObject; X, Y: Integer;
 procedure TCompileForm.MainMemoDropFiles(Sender: TObject; X, Y: Integer;
   AFiles: TStrings);
   AFiles: TStrings);
 begin
 begin
-  if (AFiles.Count > 0) and ConfirmCloseFile(True, True) then
+  if (AFiles.Count > 0) and ConfirmCloseFile(True, False) then
     OpenFile(FMainMemo, AFiles[0], True);
     OpenFile(FMainMemo, AFiles[0], True);
 end;
 end;