paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-14 22:32:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

project groups: open project group: loadtargets

Browse Source 
git-svn-id: trunk@50366 -
This commit is contained in:
mattias 2015-11-17 14:33:21 +00:00
parent f63ee69ad4
commit dc42c8f4d9
1 changed files with 18 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/projectgroups/projectgroup.pp
View File

@ -443,8 +443,10 @@ begin
TargetFileName:=TrimFilename(SetDirSeparators(TargetFileName));
if not FilenameIsAbsolute(TargetFileName) then
TargetFileName:=BaseDir+TargetFileName;
If (TargetFileName<>'') and FileExistsCached(TargetFileName) then
Target:=AddTarget(TargetFileName)
If (TargetFileName<>'') and FileExistsCached(TargetFileName) then begin
Target:=AddTarget(TargetFileName);
(Target as TIDECompileTarget).LoadTarget;
end
else if (pgloRemoveInvalid in Options) then
begin
Target:=AddTarget(TargetFileName);
@ -455,7 +457,7 @@ begin
else if (pgloErrorInvalid in options) then
Result:=False
else
Case IDEQuestionDialog(lisErrTargetDoesNotExist,
case IDEQuestionDialog(lisErrTargetDoesNotExist,
Format(lisErrNoSuchFile,[TargetFileName]),mtWarning,
[mrYes,lisRemoveTarget,
mrNo,lisAbortLoadingProjectGroup,
@ -671,7 +673,7 @@ var
begin
UnloadTarget;
debugln(['TIDECompileTarget.LoadProject ',Filename]);
//debugln(['TIDECompileTarget.LoadProject ',Filename]);
FFiles:=TStringList.Create;
FRequiredPackages:=TObjectList.Create(True);
@ -709,7 +711,6 @@ begin
// load list of files from lpi
Path:='ProjectOptions/Units/';
Cnt:=xml.GetValue(Path+'Count',0);
debugln(['TIDECompileTarget.LoadProject ',Cnt]);
for i:=0 to Cnt-1 do begin
SubPath:=Path+'Unit'+IntToStr(i)+'/';
if xml.GetValue(SubPath+'IsPartOfProject/Value','')<>'True' then