paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-02 19:24:46 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: comments

Browse Source 
git-svn-id: trunk@45278 -
This commit is contained in:
mattias 2014-06-01 09:05:05 +00:00
parent 1fc6cfbc6a
commit 634628e1dc
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
ide/imexportcompileropts.pas
View File

@ -170,16 +170,18 @@ function GetXMLPathForCompilerOptions(XMLConfig: TXMLConfig): string;
var
FileVersion: Integer;
begin
if XMLConfig.GetValue('SearchPaths/CompilerPath/Value','')<>'' then
Result:=''
else if XMLConfig.GetValue(
'CompilerOptions/SearchPaths/CompilerPath/Value','')<>''
then
Result:='CompilerOptions/'
else if XMLConfig.GetValue(
'Package/CompilerOptions/SearchPaths/CompilerPath/Value','')<>''
then
Result:='Package/CompilerOptions/'
if XMLConfig.GetValue('SearchPaths/CompilerPath/Value','')<>'' then begin
// old lpi file
Result:='';
end else if XMLConfig.GetValue('CompilerOptions/SearchPaths/CompilerPath/Value','')<>''
then begin
// current lpi file
Result:='CompilerOptions/';
end else if XMLConfig.GetValue('Package/CompilerOptions/SearchPaths/CompilerPath/Value','')<>''
then begin
// current lpk file
Result:='Package/CompilerOptions/';
end
else begin
// default: depending on file type
Result:='CompilerOptions/';