diff --git a/components/synedit/synedithighlighter.pp b/components/synedit/synedithighlighter.pp index 8b8cf450b8..2682c90158 100644 --- a/components/synedit/synedithighlighter.pp +++ b/components/synedit/synedithighlighter.pp @@ -92,7 +92,6 @@ type private fBackground: TColor; fBackgroundDefault: TColor; //mh 2000-10-08 - FFeature: TSynHighlighterAttrFeatures; FFeatures: TSynHighlighterAttrFeatures; fForeground: TColor; fForegroundDefault: TColor; //mh 2000-10-08 @@ -144,7 +143,7 @@ type property Name: string read fName; property StoredName: string read FStoredName write FStoredName; property OnChange: TNotifyEvent read fOnChange write fOnChange; - property Features: TSynHighlighterAttrFeatures read FFeatures write FFeature; + property Features: TSynHighlighterAttrFeatures read FFeatures write FFeatures; published property Background: TColor read fBackground write SetBackground stored GetBackgroundColorStored; //mh 2000-10-08 @@ -520,6 +519,7 @@ begin bChanged := TRUE; end; {$ENDIF} + FFeatures := src.FFeatures; if bChanged then Changed; end else diff --git a/components/synedit/synhighlighterpas.pp b/components/synedit/synhighlighterpas.pp index 4617736798..fa8355f46e 100644 --- a/components/synedit/synhighlighterpas.pp +++ b/components/synedit/synhighlighterpas.pp @@ -2053,8 +2053,8 @@ begin fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol); AddAttribute(fSymbolAttri); FCaseLabelAttri := TSynHighlighterAttributes.Create(SYNS_AttrCaseLabel, SYNS_XML_AttrCaseLabel); - AddAttribute(FCaseLabelAttri); FCaseLabelAttri.Features := FCaseLabelAttri.Features + [hafStyleMask]; + AddAttribute(FCaseLabelAttri); FCurCaseLabelAttri := TSynHighlighterAttributes.Create(SYNS_AttrCaseLabel, SYNS_XML_AttrCaseLabel); {$IFDEF SYN_LAZARUS} fDirectiveAttri := TSynHighlighterAttributes.Create(SYNS_AttrDirective, SYNS_XML_AttrDirective);