paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-24 14:48:30 +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 OnIdle(Sender: TObject; var {%H-}Done: Boolean);
procedure SetIdleConnected(const AValue: boolean); procedure SetIdleConnected(const AValue: boolean);
procedure AddSrcPathOfFile(SrcPaths: TFilenameToStringTree; Filename: string); 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 AddPackageSrcPaths(Target: TIDECompileTarget; SrcPaths, LPKFiles: TFilenameToStringTree);
procedure AddPackageNameSrcPaths(PkgName, PreferredFile, DefaultFile: string; SrcPaths, LPKFiles: TFilenameToStringTree); procedure AddPackageNameSrcPaths(PkgName, PreferredFile, DefaultFile: string; SrcPaths, LPKFiles: TFilenameToStringTree);
procedure AddLPKSrcPaths(LPKFilename: string; SrcPaths, LPKFiles: TFilenameToStringTree); procedure AddLPKSrcPaths(LPKFilename: string; SrcPaths, LPKFiles: TFilenameToStringTree);
@ -841,8 +841,8 @@ procedure TIDEProjectGroupManager.AddLPKSrcPaths(LPKFilename: string; SrcPaths,
LPKFiles: TFilenameToStringTree); LPKFiles: TFilenameToStringTree);
var var
xml: TXMLConfig; xml: TXMLConfig;
Path, SubPath, CurFilename, PkgName, PreferredFilename, Path, SubPath, CurFilename,
DefaultFilename, Paths, BaseDir: String; Paths: String;
Cnt, i, p: Integer; Cnt, i, p: Integer;
Pkg: TIDEPackage; Pkg: TIDEPackage;
LegacyList: Boolean; LegacyList: Boolean;
@ -877,7 +877,7 @@ begin
try try
if xml=nil then exit; if xml=nil then exit;
AddSrcPathOfFile(SrcPaths,LPKFilename); AddSrcPathOfFile(SrcPaths,LPKFilename);
BaseDir:=ExtractFilePath(LPKFilename); //BaseDir:=ExtractFilePath(LPKFilename);
// list of files // list of files
Path:='Files/'; Path:='Files/';
LegacyList:=xml.IsLegacyList(Path); LegacyList:=xml.IsLegacyList(Path);