paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-26 21:09:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: fix typo

Browse Source 
git-svn-id: trunk@25437 -
This commit is contained in:
martin 2010-05-15 16:16:49 +00:00
parent 11f782cac2
commit 50fec1b33a
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/synedithighlighter.pp
View File

@ -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

2
components/synedit/synhighlighterpas.pp
View File

@ -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);