From a80ea80db170c4be970c99b5d3f1afcc9902acd9 Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Fri, 17 Jun 2016 17:02:30 +0200 Subject: [PATCH] forces HL presets props to be written + activate reload from file --- src/ce_d2synpresets.pas | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/src/ce_d2synpresets.pas b/src/ce_d2synpresets.pas index 778248c6..184ecd84 100644 --- a/src/ce_d2synpresets.pas +++ b/src/ce_d2synpresets.pas @@ -45,15 +45,15 @@ type procedure setD2syn(value: TPersistent); function getHl: TSynD2Syn; published - property name: string read fName write fName; - property highlighter: TPersistent read fd2syn write setD2Syn; - property background: TColor read fBackground write fBackground default clWhite; - property bracketMatch: TSynSelectedColor read fBracketMatchAttribs write setBracketMatchColor; - property currentLine: TSynSelectedColor read fCurrLineAttribs write setCurrLineAttribs; - property folding: TSynSelectedColor read fFoldedColor write setFoldedColor; - property identifierMatch: TSynSelectedColor read fIdentifierMarkup write setIdentifierMarkup; - property mouseLink: TSynSelectedColor read fMouseLinkAttribs write setMouseLinkColor; - property selection: TSynSelectedColor read fSelAttribs write setSelCol; + property name: string read fName write fName stored true; + property highlighter: TPersistent read fd2syn write setD2Syn stored true; + property background: TColor read fBackground write fBackground stored true; + property bracketMatch: TSynSelectedColor read fBracketMatchAttribs write setBracketMatchColor stored true; + property currentLine: TSynSelectedColor read fCurrLineAttribs write setCurrLineAttribs stored true; + property folding: TSynSelectedColor read fFoldedColor write setFoldedColor stored true; + property identifierMatch: TSynSelectedColor read fIdentifierMarkup write setIdentifierMarkup stored true; + property mouseLink: TSynSelectedColor read fMouseLinkAttribs write setMouseLinkColor stored true; + property selection: TSynSelectedColor read fSelAttribs write setSelCol stored true; public constructor Create(ACollection: TCollection); override; destructor destroy; override; @@ -259,9 +259,9 @@ begin fBackup:= TCED2SynPreset.Create(nil); fPresets:= TCED2SynPresets.Create(self); fname := getCoeditDocPath + optfname; - //if fname.fileExists then - //fPresets.loadFromFile(fname) - //else + if fname.fileExists then + fPresets.loadFromFile(fname) + else begin with fPresets.addPreset do begin