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

IDE: Prevent running a library project. Disable also other Run menu items when they can't be used. Fixes #17974

Browse Source 
git-svn-id: trunk@28346 -
This commit is contained in:
juha 2010-11-19 12:16:26 +00:00
parent 2c5a3921bf
commit f4f719b5eb
2 changed files with 24 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
ide/debugmanager.pas
View File

@ -2190,40 +2190,37 @@ begin
// For 'run' and 'step' bypass 'idle', so we can set the filename later
CanRun:=false;
if Project1<>nil then
begin
if (AnUnitInfo<>nil) and (AnUnitInfo.RunFileIfActive) then
CanRun:=true
else if pfRunnable in Project1.Flags then
CanRun:=true;
end;
RunSpeedButton.Enabled := CanRun
and (DebuggerInvalid
or (dcRun in FDebugger.Commands) or (FDebugger.State = dsIdle));
CanRun:=((AnUnitInfo<>nil) and (AnUnitInfo.RunFileIfActive)) or
((Project1.CompilerOptions.ExecutableType=cetProgram)
and (pfRunnable in Project1.Flags));
RunSpeedButton.Enabled := CanRun and (DebuggerInvalid
or (dcRun in FDebugger.Commands) or (FDebugger.State = dsIdle));
itmRunMenuRun.Enabled := RunSpeedButton.Enabled;
PauseSpeedButton.Enabled := (not DebuggerInvalid)
and (dcPause in FDebugger.Commands);
PauseSpeedButton.Enabled := CanRun
and (not DebuggerInvalid) and (dcPause in FDebugger.Commands);
itmRunMenuPause.Enabled := PauseSpeedButton.Enabled;
itmRunMenuShowExecutionPoint.Enabled := (not DebuggerInvalid) and (FDebugger.State = dsPause);
StepIntoSpeedButton.Enabled := DebuggerInvalid
or (dcStepInto in FDebugger.Commands) or (FDebugger.State = dsIdle);
itmRunMenuShowExecutionPoint.Enabled := CanRun
and (not DebuggerInvalid) and (FDebugger.State = dsPause);
StepIntoSpeedButton.Enabled := CanRun and (DebuggerInvalid
or (dcStepInto in FDebugger.Commands) or (FDebugger.State = dsIdle));
itmRunMenuStepInto.Enabled := StepIntoSpeedButton.Enabled;
StepOverSpeedButton.Enabled := DebuggerInvalid or
(dcStepOver in FDebugger.Commands) or (FDebugger.State = dsIdle);
StepOverSpeedButton.Enabled := CanRun and (DebuggerInvalid or
(dcStepOver in FDebugger.Commands) or (FDebugger.State = dsIdle));
itmRunMenuStepOver.Enabled := StepOverSpeedButton.Enabled;
StepOutSpeedButton.Enabled := DebuggerInvalid or
(dcStepOut in FDebugger.Commands) or (FDebugger.State = dsIdle);
StepOutSpeedButton.Enabled := CanRun and (DebuggerInvalid or
(dcStepOut in FDebugger.Commands) or (FDebugger.State = dsIdle));
itmRunMenuStepOut.Enabled := StepOutSpeedButton.Enabled;
itmRunMenuRunToCursor.Enabled := DebuggerInvalid
or (dcRunTo in FDebugger.Commands);
itmRunMenuStop.Enabled := not DebuggerInvalid;
itmRunMenuRunToCursor.Enabled := CanRun
and (DebuggerInvalid or (dcRunTo in FDebugger.Commands));
itmRunMenuStop.Enabled := CanRun and not DebuggerInvalid;
StopSpeedButton.Enabled := itmRunMenuStop.Enabled;
itmRunMenuEvaluate.Enabled := (not DebuggerInvalid)
itmRunMenuEvaluate.Enabled := CanRun and (not DebuggerInvalid)
and (dcEvaluate in FDebugger.Commands);
SrcEditMenuEvaluateModify.Enabled := (not DebuggerInvalid)
SrcEditMenuEvaluateModify.Enabled := CanRun and (not DebuggerInvalid)
and (dcEvaluate in FDebugger.Commands);
SrcEditMenuInspect.Enabled := (not DebuggerInvalid)
SrcEditMenuInspect.Enabled := CanRun and (not DebuggerInvalid)
and (dcEvaluate in FDebugger.Commands);
itmRunMenuAddWatch.Enabled := True; // always allow to add a watch

8
ide/main.pp
View File

@ -11097,14 +11097,12 @@ begin
// Check if we can run this project
debugln('TMainIDE.DoInitProjectRun A ',dbgs(pfRunnable in Project1.Flags),' ',dbgs(Project1.MainUnitID));
if (not (pfRunnable in Project1.Flags))
or (Project1.MainUnitID < 0)
then Exit;
if not ((Project1.CompilerOptions.ExecutableType=cetProgram) and
(pfRunnable in Project1.Flags) and (Project1.MainUnitID >= 0)) then Exit;
debugln('TMainIDE.DoInitProjectRun B');
// Build project first
if DoBuildProject(crRun,[pbfOnlyIfNeeded]) <> mrOk
then Exit;
if DoBuildProject(crRun,[pbfOnlyIfNeeded]) <> mrOk then Exit;
// Check project build
ProgramFilename := MainBuildBoss.GetProjectTargetFilename(Project1);