From 426a0e8392ecbfe15335a9f5dc84a56adbf4756c Mon Sep 17 00:00:00 2001 From: martin Date: Mon, 18 Nov 2019 22:43:05 +0000 Subject: [PATCH] IDE: Code-Templates, do not create lazarus.dci unless it is modified. git-svn-id: trunk@62272 - --- ide/editoroptions.pp | 19 ------------------- 1 file changed, 19 deletions(-) diff --git a/ide/editoroptions.pp b/ide/editoroptions.pp index 1c07fb1f6d..443034e0f8 100644 --- a/ide/editoroptions.pp +++ b/ide/editoroptions.pp @@ -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;