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

IDE: info need build: project

Browse Source 
git-svn-id: trunk@36655 -
This commit is contained in:
mattias 2012-04-07 12:15:04 +00:00
parent f1d673e4f9
commit 4e8e6440dc
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ide/ideinfoneedbuild.pas
View File

@ -230,7 +230,7 @@ var
Pkg: TLazPackage;
AProject: TProject;
NeedBuildAll: boolean;
PGNeedBuild: TModalResult;
NeedBuild: TModalResult;
begin
NewTargets:=GetTargets(TargetComboBox.Text);
try
@ -279,15 +279,23 @@ begin
// no check available
end
else if Item.Target is TProject then begin
// ToDo
AProject:=TProject(Item.Target);
Item.Note:='';
NeedBuild:=MainBuildBoss.DoCheckIfProjectNeedsCompilation(AProject,
NeedBuildAll,Item.Note);
if NeedBuild=mrYes then begin
if NeedBuildAll then
Item.NeedBuild:=inbClean
else
Item.NeedBuild:=inbNormal;
end;
end
else if Item.Target is TLazPackage then begin
Pkg:=TLazPackage(Item.Target);
Item.Note:='';
PGNeedBuild:=PackageGraph.CheckIfPackageNeedsCompilation(
NeedBuild:=PackageGraph.CheckIfPackageNeedsCompilation(
Pkg,SkipDesignTimePackages,NeedBuildAll,Item.Note);
if PGNeedBuild=mrYes then begin
if NeedBuild=mrYes then begin
if NeedBuildAll then
Item.NeedBuild:=inbClean
else