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

implemented saving global defines

Browse Source 
git-svn-id: trunk@4102 -
This commit is contained in:
mattias 2003-04-27 21:25:23 +00:00
parent f4cb3c508e
commit 636f619d27
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/codetoolsoptions.pas
View File

@ -464,8 +464,9 @@ begin
FCursorBeyondEOL,true); FCursorBeyondEOL,true);
// Define templates // Define templates
FGlobalDefineTemplates.SaveToXMLConfig(XMLConfig,'CodeToolsGlobalDefines/', if FGlobalDefineTemplates<>nil then
true,false,true,false); FGlobalDefineTemplates.SaveToXMLConfig(XMLConfig,
'CodeToolsGlobalDefines/',true,false,true,false);
// CodeCreation // CodeCreation
XMLConfig.SetDeleteValue( XMLConfig.SetDeleteValue(
@ -518,7 +519,7 @@ begin
XMLConfig.Free; XMLConfig.Free;
except except
on E: Exception do begin on E: Exception do begin
writeln('[TCodeToolsOptions.Load] error writing "',FFilename,'": ',E.Message); writeln('[TCodeToolsOptions.Save] error writing "',FFilename,'": ',E.Message);
end; end;
end; end;
end; end;