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

IDE: Restore original BuildMode after "Compile many modes" is interrupted. Issue #38410.

Browse Source 
git-svn-id: trunk@64629 -
This commit is contained in:
juha 2021-02-20 20:40:48 +00:00
parent b2aa58981c
commit 1ab25d41ae
1 changed files with 34 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
ide/buildmodesmanager.pas
View File

@ -333,7 +333,7 @@ var
begin
Result := False;
ModeCnt := 0;
if PrepareForCompileWithMsg <> mrOk then exit;
if PrepareForCompileWithMsg <> mrOk then Exit;
BMList := TBuildModesCheckList.Create(lisCompileFollowingModes);
ModeList := TList.Create;
try
@ -351,31 +351,38 @@ begin
else
ModeList.Add(md);
end;
// Build first the active mode so we don't have to switch many times.
if BuildActiveMode then
begin
LastMode := (ModeList.Count=0);
if not BuildOneMode(LastMode) then Exit;
end
else if ModeList.Count=0 then
begin
IDEMessageDialog(lisExit, lisPleaseSelectAtLeastOneBuildMode,
mtInformation, [mbOK]);
Exit(False);
try
// Build first the active mode so we don't have to switch many times.
if BuildActiveMode then
begin
DebugLn('BuildManyModes: Active Mode');
LastMode := (ModeList.Count=0);
if not BuildOneMode(LastMode) then Exit;
end
else if ModeList.Count=0 then
begin
IDEMessageDialog(lisExit, lisPleaseSelectAtLeastOneBuildMode,
mtInformation, [mbOK]);
Exit;
end;
// Build rest of the modes.
DebugLn('BuildManyModes: Rest of the Modes');
for i := 0 to ModeList.Count-1 do
begin
LastMode := (i=(ModeList.Count-1));
Project1.ActiveBuildMode := TProjectBuildMode(ModeList[i]);
if not BuildOneMode(LastMode) then Exit;
end;
Result:=True;
finally
// Switch back to original mode.
DebugLn('BuildManyModes: Switch back to ActiveMode');
Project1.ActiveBuildMode := ActiveMode;
LazarusIDE.DoSaveProject([]);
if Result then
IDEMessageDialog(lisSuccess, Format(lisSelectedModesWereCompiled, [ModeCnt]),
mtInformation, [mbOK]);
end;
// Build rest of the modes.
for i := 0 to ModeList.Count-1 do
begin
LastMode := (i=(ModeList.Count-1));
Project1.ActiveBuildMode := TProjectBuildMode(ModeList[i]);
if not BuildOneMode(LastMode) then Exit;
end;
// Switch back to original mode.
Project1.ActiveBuildMode := ActiveMode;
LazarusIDE.DoSaveProject([]);
IDEMessageDialog(lisSuccess, Format(lisSelectedModesWereCompiled, [ModeCnt]),
mtInformation, [mbOK]);
Result:=True;
finally
ModeList.Free;
BMList.Free;
@ -860,6 +867,8 @@ begin
if ManyBMs.IndexOf(BM) >= 0 then
FListForm.CheckListBox1.Checked[i]:=True;
end;
if ManyBMs.Count=0 then // No persistent selections -> select all by default.
SelectAll;
end;
destructor TBuildModesCheckList.Destroy;