paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 07:49:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Packager: Set ToolStatus to "itBuilder" also when building a package.

Browse Source 
git-svn-id: trunk@62879 -
This commit is contained in:
juha 2020-04-04 09:06:18 +00:00
parent 60dbc7bd77
commit 78cf54924b
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packager/pkgmanager.pas
View File

@ -4222,6 +4222,8 @@ end;
function TPkgManager.DoCompilePackage(APackage: TIDEPackage;
Flags: TPkgCompileFlags; ShowAbort: boolean): TModalResult;
var
OldToolStatus: TLazToolStatus;
begin
Result:=mrCancel;
@ -4253,7 +4255,13 @@ begin
if Result<>mrOk then exit;
// compile
if LazarusIDE<>nil then begin
OldToolStatus:=LazarusIDE.ToolStatus;
LazarusIDE.ToolStatus:=itBuilder;
end;
Result:=PackageGraph.CompilePackage(TLazPackage(APackage),Flags,false);
if LazarusIDE<>nil then
LazarusIDE.ToolStatus:=OldToolStatus;
end;
function TPkgManager.DoCreatePackageMakefile(APackage: TLazPackage;