IDE: added macro $Project(InfoFile) for the lpi filename, bug #11399

git-svn-id: trunk@15287 -
This commit is contained in:
mattias 2008-06-02 08:49:46 +00:00
parent 1ea890ac9e
commit 6f639c52bd

View File

@ -1036,6 +1036,8 @@ begin
Result:=Project1.CompilerOptions.GetIncludePath(false)
else if SysUtils.CompareText(Param,'UnitPath')=0 then
Result:=Project1.CompilerOptions.GetUnitPath(false)
else if SysUtils.CompareText(Param,'InfoFile')=0 then
Result:=Project1.ProjectInfoFile
else begin
Result:='<Invalid parameter for macro Project:'+Param+'>';
debugln('WARNING: TMainIDE.MacroFuncProject: ',Result);