paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 18:39:47 +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); procedure TMainIDEBar.AllowCompilation(aAllow: Boolean);
// Enables or disables IDE GUI controls associated with compiling and building. // 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 begin
// Run menu // Run menu
itmRunMenuRunWithoutDebugging.Enabled:=aAllow; itmRunMenuRunWithoutDebugging.Enabled := aAllow;
itmRunMenuRunWithDebugging.Enabled:=aAllow; itmRunMenuRunWithDebugging .Enabled := aAllow;
itmRunMenuRun.Enabled:=aAllow; itmRunMenuRun .Enabled := aAllow;
itmRunMenuCompile.Enabled:=aAllow; itmRunMenuCompile .Enabled := aAllow;
itmRunMenuBuild.Enabled:=aAllow; itmRunMenuBuild .Enabled := aAllow;
itmRunMenuBuildManyModes.Enabled:=aAllow; itmRunMenuBuildManyModes .Enabled := aAllow;
itmRunMenuQuickCompile.Enabled:=aAllow; itmRunMenuQuickCompile .Enabled := aAllow;
itmRunMenuCleanUpAndBuild.Enabled:=aAllow; itmRunMenuCleanUpAndBuild .Enabled := aAllow;
itmRunMenuAbortBuild.Enabled:=not aAllow; itmRunMenuAbortBuild .Enabled := not aAllow;
// Package menu // Package menu
itmPkgEditInstallPkgs.Enabled:=aAllow; itmPkgEditInstallPkgs .Enabled := aAllow;
// Tools menu // Tools menu
itmToolRescanFPCSrcDir.Enabled:=aAllow; itmToolRescanFPCSrcDir .Enabled := aAllow;
itmToolBuildLazarus.Enabled:=aAllow; itmToolBuildLazarus .Enabled := aAllow;
//itmToolConfigureBuildLazarus.Enabled:=aAllow; //itmToolConfigureBuildLazarus .Enabled := aAllow; // this dialog itself disables build buttons
// IDE CoolBar // IDE CoolBar
IDECommandList.FindIDECommand(ecProjectChangeBuildMode).Enabled := aAllow; IDECommandList.FindIDECommand(ecProjectChangeBuildMode).Enabled := aAllow;
end; end;