paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-15 19:22:41 +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);
// Define templates
FGlobalDefineTemplates.SaveToXMLConfig(XMLConfig,'CodeToolsGlobalDefines/',
true,false,true,false);
if FGlobalDefineTemplates<>nil then
FGlobalDefineTemplates.SaveToXMLConfig(XMLConfig,
'CodeToolsGlobalDefines/',true,false,true,false);
// CodeCreation
XMLConfig.SetDeleteValue(
@ -518,7 +519,7 @@ begin
XMLConfig.Free;
except
on E: Exception do begin
writeln('[TCodeToolsOptions.Load] error writing "',FFilename,'": ',E.Message);
writeln('[TCodeToolsOptions.Save] error writing "',FFilename,'": ',E.Message);
end;
end;
end;