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

projectgroup: clean up

Browse Source 
git-svn-id: trunk@62792 -
This commit is contained in:
mattias 2020-03-22 09:39:08 +00:00
parent f950017dde
commit 0d54b95a55
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/projectgroups/projectgroup.pp
View File

@ -221,7 +221,7 @@ type
procedure OnIdle(Sender: TObject; var {%H-}Done: Boolean);
procedure SetIdleConnected(const AValue: boolean);
procedure AddSrcPathOfFile(SrcPaths: TFilenameToStringTree; Filename: string);
procedure AddProjectSrcPaths(Target: TIDECompileTarget; SrcPaths, LPKFiles: TFilenameToStringTree);
procedure AddProjectSrcPaths(Target: TIDECompileTarget; SrcPaths, {%H-}LPKFiles: TFilenameToStringTree);
procedure AddPackageSrcPaths(Target: TIDECompileTarget; SrcPaths, LPKFiles: TFilenameToStringTree);
procedure AddPackageNameSrcPaths(PkgName, PreferredFile, DefaultFile: string; SrcPaths, LPKFiles: TFilenameToStringTree);
procedure AddLPKSrcPaths(LPKFilename: string; SrcPaths, LPKFiles: TFilenameToStringTree);
@ -841,8 +841,8 @@ procedure TIDEProjectGroupManager.AddLPKSrcPaths(LPKFilename: string; SrcPaths,
LPKFiles: TFilenameToStringTree);
var
xml: TXMLConfig;
Path, SubPath, CurFilename, PkgName, PreferredFilename,
DefaultFilename, Paths, BaseDir: String;
Path, SubPath, CurFilename,
Paths: String;
Cnt, i, p: Integer;
Pkg: TIDEPackage;
LegacyList: Boolean;
@ -877,7 +877,7 @@ begin
try
if xml=nil then exit;
AddSrcPathOfFile(SrcPaths,LPKFilename);
BaseDir:=ExtractFilePath(LPKFilename);
//BaseDir:=ExtractFilePath(LPKFilename);
// list of files
Path:='Files/';
LegacyList:=xml.IsLegacyList(Path);