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

IDE: allow opening the Configure Build Lazarus dialog during build process.

Browse Source 
git-svn-id: trunk@44063 -
This commit is contained in:
juha 2014-02-13 23:22:32 +00:00
parent 0fa7fa8be8
commit 6e4452893c
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/main.pp
View File

@ -3706,7 +3706,7 @@ end;
procedure TMainIDE.AllowCompilation(aAllow: Boolean); procedure TMainIDE.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.
// Q: Does it interfere with DebugBoss.UpdateButtonsAndMenuItems? Maybe should be refactored and combined. // Does it interfere with DebugBoss.UpdateButtonsAndMenuItems? Maybe should be refactored and combined.
begin begin
if MainIDEBar=Nil then Exit; if MainIDEBar=Nil then Exit;
with MainIDEBar do begin with MainIDEBar do begin
@ -3720,8 +3720,7 @@ begin
itmPkgEditInstallPkgs.Enabled:=aAllow; itmPkgEditInstallPkgs.Enabled:=aAllow;
itmToolRescanFPCSrcDir.Enabled:=aAllow; itmToolRescanFPCSrcDir.Enabled:=aAllow;
itmToolBuildLazarus.Enabled:=aAllow; itmToolBuildLazarus.Enabled:=aAllow;
itmToolConfigureBuildLazarus.Enabled:=aAllow; //itmToolConfigureBuildLazarus.Enabled:=aAllow;
// ToDo: Enable / disable all external tools
end; end;
end; end;
@ -3745,8 +3744,7 @@ begin
itDebugger: itDebugger:
begin begin
if (rfInteractive in AFlags) if (rfInteractive in AFlags)
and (IDEQuestionDialog(lisStopDebugging, and (IDEQuestionDialog(lisStopDebugging, lisStopTheDebugging, mtConfirmation,
lisStopTheDebugging, mtConfirmation,
[mrYes, lisStop, mrCancel, lisContinue]) <> mrYes) [mrYes, lisStop, mrCancel, lisContinue]) <> mrYes)
then exit; then exit;
if (DebugBoss.DoStopProject = mrOK) and (ToolStatus = itDebugger) and (rfCloseOnDone in AFlags) then if (DebugBoss.DoStopProject = mrOK) and (ToolStatus = itDebugger) and (rfCloseOnDone in AFlags) then
@ -4560,7 +4558,7 @@ var
LazSrcDirTemplate: TDefineTemplate; LazSrcDirTemplate: TDefineTemplate;
DlgResult: TModalResult; DlgResult: TModalResult;
begin begin
if ToolStatus<>itNone then exit; //if ToolStatus<>itNone then exit;
if fBuilder=Nil then if fBuilder=Nil then
fBuilder:=TLazarusBuilder.Create; // Will be freed in the very end. fBuilder:=TLazarusBuilder.Create; // Will be freed in the very end.
MainBuildBoss.SetBuildTargetIDE; MainBuildBoss.SetBuildTargetIDE;