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

IDE: Save also Macro editors with "Save All" command. Issue #40268, draft by Domingo Galmés.

Browse Source
This commit is contained in:
Juha 2023-05-18 10:02:23 +03:00
parent 867938ca00
commit 1a9142c9e2
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/main.pp
View File

@ -5775,7 +5775,7 @@ begin
exit(mrAbort); exit(mrAbort);
end; end;
if CurResult<>mrOk then Result:=mrCancel; if CurResult<>mrOk then Result:=mrCancel;
CurResult:=DoSaveProject(Flags); CurResult:=DoSaveProject(Flags+[sfSaveNonProjectFiles]);
if CurResult<>mrOK then begin if CurResult<>mrOK then begin
if ConsoleVerbosity>0 then if ConsoleVerbosity>0 then
debugln(['Error: (lazarus) [TMainIDE.DoSaveAll] DoSaveProject failed']); debugln(['Error: (lazarus) [TMainIDE.DoSaveAll] DoSaveProject failed']);

2
ide/sourcefilemanager.pas
View File

@ -4062,7 +4062,7 @@ begin
if AnUnitInfo.IsVirtual then begin if AnUnitInfo.IsVirtual then begin
if (sfSaveToTestDir in Flags) then if (sfSaveToTestDir in Flags) then
Include(SaveFileFlags,sfSaveToTestDir) Include(SaveFileFlags,sfSaveToTestDir)
else else if not (sfSaveNonProjectFiles in Flags) then
continue; continue;
end; end;
end; end;