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

IDE: fpc info: show include paths and unit scopes

Browse Source 
git-svn-id: trunk@57840 -
This commit is contained in:
mattias 2018-05-08 08:32:13 +00:00
parent 1189d43fa2
commit 4ed3446f8f
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/idefpcinfo.pas
View File

@ -338,7 +338,15 @@ begin
if CfgCache.Undefines<>nil then begin if CfgCache.Undefines<>nil then begin
sl.Add(CfgCache.Undefines.AsText); sl.Add(CfgCache.Undefines.AsText);
end; end;
sl.Add('UnitPaths:'); sl.Add('Include Paths:');
if CfgCache.IncludePaths<>nil then begin
sl.AddStrings(CfgCache.IncludePaths);
end;
sl.Add('Unit Scopes:');
if CfgCache.UnitScopes<>nil then begin
sl.AddStrings(CfgCache.UnitScopes);
end;
sl.Add('Unit Paths:');
if CfgCache.UnitPaths<>nil then begin if CfgCache.UnitPaths<>nil then begin
sl.AddStrings(CfgCache.UnitPaths); sl.AddStrings(CfgCache.UnitPaths);
end; end;