paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 02:19:32 +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; Pkg: TLazPackage;
AProject: TProject; AProject: TProject;
NeedBuildAll: boolean; NeedBuildAll: boolean;
PGNeedBuild: TModalResult; NeedBuild: TModalResult;
begin begin
NewTargets:=GetTargets(TargetComboBox.Text); NewTargets:=GetTargets(TargetComboBox.Text);
try try
@ -279,15 +279,23 @@ begin
// no check available // no check available
end end
else if Item.Target is TProject then begin 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 end
else if Item.Target is TLazPackage then begin else if Item.Target is TLazPackage then begin
Pkg:=TLazPackage(Item.Target); Pkg:=TLazPackage(Item.Target);
Item.Note:=''; Item.Note:='';
PGNeedBuild:=PackageGraph.CheckIfPackageNeedsCompilation( NeedBuild:=PackageGraph.CheckIfPackageNeedsCompilation(
Pkg,SkipDesignTimePackages,NeedBuildAll,Item.Note); Pkg,SkipDesignTimePackages,NeedBuildAll,Item.Note);
if PGNeedBuild=mrYes then begin if NeedBuild=mrYes then begin
if NeedBuildAll then if NeedBuildAll then
Item.NeedBuild:=inbClean Item.NeedBuild:=inbClean
else else