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: Disable "Compile many modes" command of "Run" menu during build. Issue #41198

Browse Source
This commit is contained in:
n7800 2024-10-21 19:36:41 +05:00 committed by Juha
parent 04759c056d
commit 48c8d4455b
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/main.pp
View File

@ -4230,8 +4230,10 @@ begin
if not UpdateProjectCommandsStamp.Changed(AUnitInfo) then
Exit;
IDECommandList.FindIDECommand(ecAddCurUnitToProj).Enabled:=Assigned(AUnitInfo) and not AUnitInfo.IsPartOfProject;
IDECommandList.FindIDECommand(ecBuildManyModes).Enabled:=(Project1<>nil) and (Project1.BuildModes.Count>1);
IDECommandList.FindIDECommand(ecAddCurUnitToProj).Enabled :=
Assigned(AUnitInfo) and not AUnitInfo.IsPartOfProject;
IDECommandList.FindIDECommand(ecBuildManyModes).Enabled :=
Assigned(Project1) and (Project1.BuildModes.Count>1) and (ToolStatus <> itBuilder);
// project change build mode
ACmd := IDECommandList.FindIDECommand(ecProjectChangeBuildMode);

1
ide/mainbar.pas
View File

@ -863,6 +863,7 @@ begin
itmRunMenuRun.Enabled:=aAllow;
itmRunMenuCompile.Enabled:=aAllow;
itmRunMenuBuild.Enabled:=aAllow;
itmRunMenuBuildManyModes.Enabled:=aAllow;
itmRunMenuQuickCompile.Enabled:=aAllow;
itmRunMenuCleanUpAndBuild.Enabled:=aAllow;
itmRunMenuAbortBuild.Enabled:=not aAllow;