mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-25 13:35:56 +02:00
implemented saving global defines
git-svn-id: trunk@4102 -
This commit is contained in:
parent
f4cb3c508e
commit
636f619d27
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user