paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 11:38:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

project groups: call lazbuild for not loaded projects

Browse Source 
git-svn-id: trunk@50403 -
This commit is contained in:
mattias 2015-11-18 22:08:53 +00:00
parent 8680254642
commit 3487708764
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/projectgroups/projectgroup.pp
View File

@ -13,10 +13,10 @@ interface
uses
Classes, SysUtils, contnrs, Laz2_XMLCfg, Controls, Forms, Dialogs, LCLProc,
LazFileUtils, LazFileCache, LazConfigStorage, PackageIntf, ProjectIntf,
MenuIntf, LazIDEIntf, IDEDialogs, CompOptsIntf, BaseIDEIntf, IDECommands,
IDEExternToolIntf, MacroIntf, ProjectGroupIntf, ProjectGroupStrConst,
FileProcs, CodeToolManager, CodeCache;
LazFileUtils, LazFileCache, LazConfigStorage, FileUtil, PackageIntf,
ProjectIntf, MenuIntf, LazIDEIntf, IDEDialogs, CompOptsIntf, BaseIDEIntf,
IDECommands, IDEExternToolIntf, MacroIntf, ProjectGroupIntf,
ProjectGroupStrConst, FileProcs, CodeToolManager, CodeCache;
const
PGOptionsFileName = 'projectgroupsoptions.xml';
@ -233,11 +233,13 @@ end;
function GetLazBuildFilename: string;
begin
// first check the lazbuild executable in the lazarus directory
Result:='$(LazarusDir)'+PathDelim+'$MakeExe(lazbuild)';
IDEMacros.SubstituteMacros(Result);
if FileExistsCached(Result) then
exit;
Result:=''; // ToDo
// then search in PATH
Result:=FindDefaultExecutablePath('lazbuild'+ExeExt);
end;
{ TIDEProjectGroupOptions }
@ -1065,7 +1067,13 @@ begin
aTitle:='Compile Project '+ExtractFileNameOnly(Filename);
aCompileHint:='Project Group: '+Parent.Filename+LineEnding;
LazBuildFilename:='';
LazBuildFilename:=GetLazBuildFilename;
if LazBuildFilename='' then begin
IDEMessageDialog('lazbuild not found','The lazbuild'+ExeExt+' was not found.'
,mtError,[mbOk]);
exit(arFailed);
end;
WorkingDir:=ExtractFilePath(Filename);
Params:=TStringList.Create;
if AAction=taCompileClean then