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

IDE: Formatting. Merge request !363 by n7800.

Browse Source
This commit is contained in:
Juha 2024-11-01 09:43:32 +02:00
parent 699e1650a1
commit e7184a12f0
1 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
ide/mainbar.pas
View File

@ -855,24 +855,25 @@ end;
procedure TMainIDEBar.AllowCompilation(aAllow: Boolean);
// Enables or disables IDE GUI controls associated with compiling and building.
// Does it interfere with DebugBoss.UpdateButtonsAndMenuItems? Maybe should be refactored and combined.
// ToDo: Perhaps it is worth combining with TDebugManager.UpdateButtonsAndMenuItems and TMainIDE.UpdateProjectCommands?
begin
// Run menu
itmRunMenuRunWithoutDebugging.Enabled:=aAllow;
itmRunMenuRunWithDebugging.Enabled:=aAllow;
itmRunMenuRun.Enabled:=aAllow;
itmRunMenuCompile.Enabled:=aAllow;
itmRunMenuBuild.Enabled:=aAllow;
itmRunMenuBuildManyModes.Enabled:=aAllow;
itmRunMenuQuickCompile.Enabled:=aAllow;
itmRunMenuCleanUpAndBuild.Enabled:=aAllow;
itmRunMenuAbortBuild.Enabled:=not aAllow;
itmRunMenuRunWithoutDebugging.Enabled := aAllow;
itmRunMenuRunWithDebugging .Enabled := aAllow;
itmRunMenuRun .Enabled := aAllow;
itmRunMenuCompile .Enabled := aAllow;
itmRunMenuBuild .Enabled := aAllow;
itmRunMenuBuildManyModes .Enabled := aAllow;
itmRunMenuQuickCompile .Enabled := aAllow;
itmRunMenuCleanUpAndBuild .Enabled := aAllow;
itmRunMenuAbortBuild .Enabled := not aAllow;
// Package menu
itmPkgEditInstallPkgs.Enabled:=aAllow;
itmPkgEditInstallPkgs .Enabled := aAllow;
// Tools menu
itmToolRescanFPCSrcDir.Enabled:=aAllow;
itmToolBuildLazarus.Enabled:=aAllow;
//itmToolConfigureBuildLazarus.Enabled:=aAllow;
itmToolRescanFPCSrcDir .Enabled := aAllow;
itmToolBuildLazarus .Enabled := aAllow;
//itmToolConfigureBuildLazarus .Enabled := aAllow; // this dialog itself disables build buttons
// IDE CoolBar
IDECommandList.FindIDECommand(ecProjectChangeBuildMode).Enabled := aAllow;
end;