diff --git a/JCFSettings.cfg b/JCFSettings.cfg index 0f0bfe9712..06e8250095 100644 --- a/JCFSettings.cfg +++ b/JCFSettings.cfg @@ -1,7 +1,7 @@ - 2.43 - 40159.6964775694 + 2.44 + 40160.959233287 format settings for use with Lazarus False @@ -32,6 +32,8 @@ True False True + False + False True diff --git a/components/jcf2/Settings/JcfSettings.pas b/components/jcf2/Settings/JcfSettings.pas index 3d3ecac6d2..fd3b14a6a9 100644 --- a/components/jcf2/Settings/JcfSettings.pas +++ b/components/jcf2/Settings/JcfSettings.pas @@ -85,6 +85,7 @@ type destructor Destroy; override; class function GetGroupCaption: String; override; class function GetInstance: TAbstractIDEOptions; override; + procedure DoAfterWrite; override; procedure Read; procedure ReadFromFile(const psFileName: string; const pbMustExist: boolean); @@ -250,6 +251,16 @@ begin Result := FormatSettings; end; +procedure TFormatSettings.DoAfterWrite; +begin + { settings are now in need of saving } + Dirty := True; + { check consistency of settings } + MakeConsistent; + { save to file } + Write; +end; + const CODEFORMAT_SETTINGS_SECTION = 'JediCodeFormatSettings';