paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 09:38:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Do not save new empty project before rebuilding Lazarus. Issue #40269.

Browse Source
This commit is contained in:
Juha 2023-05-20 11:37:55 +03:00
parent 42d6b6ea4e
commit 7cf0ba34a7
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/main.pp
View File

@ -3363,7 +3363,7 @@ end;
procedure TMainIDE.mnuSaveAllClicked(Sender: TObject);
begin
DoSaveAll([sfCheckAmbiguousFiles]);
DoSaveAll([sfCheckAmbiguousFiles,sfSaveNonProjectFiles]);
end;
procedure TMainIDE.mnuExportHtml(Sender: TObject);
@ -3550,7 +3550,7 @@ begin
end;
ecOpen: mnuOpenClicked(Self);
ecOpenUnit: DoUseUnitDlg(udOpenUnit);
ecSaveAll: DoSaveAll([sfCheckAmbiguousFiles]);
ecSaveAll: DoSaveAll([sfCheckAmbiguousFiles,sfSaveNonProjectFiles]);
ecQuit: mnuQuitClicked(Self);
ecRun:
begin
@ -5775,7 +5775,7 @@ begin
exit(mrAbort);
end;
if CurResult<>mrOk then Result:=mrCancel;
CurResult:=DoSaveProject(Flags+[sfSaveNonProjectFiles]);
CurResult:=DoSaveProject(Flags);
if CurResult<>mrOK then begin
if ConsoleVerbosity>0 then
debugln(['Error: (lazarus) [TMainIDE.DoSaveAll] DoSaveProject failed']);

2
ide/sourceeditor.pp
View File

@ -10846,7 +10846,7 @@ function TSourceEditorManager.MacroFuncSaveAll(const s: string;
const Data: PtrInt; var Abort: boolean): string;
begin
Result:='';
Abort:=LazarusIDE.DoSaveAll([sfCheckAmbiguousFiles])<>mrOk;
Abort:=LazarusIDE.DoSaveAll([sfCheckAmbiguousFiles,sfSaveNonProjectFiles])<>mrOk;
end;
procedure TSourceEditorManager.InitMacros(AMacroList: TTransferMacroListIntf);

2
ide/sourcefilemanager.pas
View File

@ -4267,7 +4267,7 @@ begin
mrYes: SaveEditorFile(Ed, [sfCheckAmbiguousFiles]);
mrNo: ; // don't save
mrAll: begin
MainIDE.DoSaveAll([]);
MainIDE.DoSaveAll([sfSaveNonProjectFiles]);
break;
end;
mrIgnore: break; // don't save anymore