Răsfoiți Sursa

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

Jordan Russell 5 ani în urmă
părinte
comite
420073e8ce
1 a modificat fișierele cu 1 adăugiri și 1 ștergeri
  1. 1 1
      Projects/CompForm.pas

+ 1 - 1
Projects/CompForm.pas

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