paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-10 13:58:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Code-Templates, do not create lazarus.dci unless it is modified.

Browse Source 
git-svn-id: trunk@62272 -
This commit is contained in:
martin 2019-11-18 22:43:05 +00:00
parent c018dfafb9
commit 426a0e8392
1 changed files with 0 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
ide/editoroptions.pp
View File

@ -4612,8 +4612,6 @@ end;
constructor TEditorOptions.Create;
var
ConfFileName: String;
fs: TFileStreamUTF8;
res: TResourceStream;
begin
inherited Create;
InitLocale;
@ -4643,23 +4641,6 @@ begin
fCodeTemplateFileNameRaw :=
TrimFilename(AppendPathDelim(GetPrimaryConfigPath)+DefaultCodeTemplatesFilename);
CopySecondaryConfigFile(DefaultCodeTemplatesFilename);
if not FileExistsUTF8(CodeTemplateFileNameExpand) then
begin
res := TResourceStream.Create(HInstance, PChar('lazarus_dci_file'), PChar(RT_RCDATA));
try
InvalidateFileStateCache;
fs := TFileStreamUTF8.Create(CodeTemplateFileNameExpand, fmCreate);
try
fs.CopyFrom(res, res.Size);
finally
fs.Free;
end;
except
DebugLn('WARNING: unable to write code template file "',
CodeTemplateFileNameExpand, '"');
end;
res.Free;
end;
FMultiWinEditAccessOrder := TEditorOptionsEditAccessOrderList.Create;
FMultiWinEditAccessOrder.InitDefaults;