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

IDE: add color setting for visualized special chars (whitespace)

Browse Source 
git-svn-id: trunk@32369 -
This commit is contained in:
martin 2011-09-16 16:23:19 +00:00
parent e5ce00364c
commit 783bdfd9d0
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/editoroptions.pp
View File

@ -44,6 +44,7 @@ uses
SynGutter, SynGutterBase, SynGutterCodeFolding, SynGutterLineNumber,
SynGutterChanges, SynCompletion,
SynEditMarkupBracket, SynEditMarkupHighAll, SynEditMarkupWordGroup,
SynEditMarkupSpecialChar,
SourceSynEditor,
// SynEdit Highlighters
SynEditHighlighter, SynEditHighlighterFoldBase,
@ -89,7 +90,7 @@ type
ahaWordGroup, ahaTemplateEditCur, ahaTemplateEditSync,
ahaTemplateEditOther, ahaSyncroEditCur, ahaSyncroEditSync,
ahaSyncroEditOther, ahaSyncroEditArea, ahaGutterSeparator,
ahaGutter, ahaRightMargin);
ahaGutter, ahaRightMargin, ahaSpecialVisibleChars);
TAhaGroupName = (agnDefault, agnLanguage, agnText, agnLine, agnGutter, agnTemplateMode, agnSyncronMode);
@ -116,7 +117,8 @@ const
'SyncronEdit Other Cells', 'SyncronEdit Range',
'', // scaGutterSeparator => uses RTTI only
'', // ahaGutter
'' // ahaRightMargin
'', // ahaRightMargin
'' // ahaSpecialVisibleChars
);
ahaGroupMap: array[TAdditionalHilightAttribute] of TAhaGroupName = (
@ -148,7 +150,8 @@ const
{ ahaSyncroEditArea } agnSyncronMode,
{ ahaGutterSeparator } agnGutter,
{ ahaGutter } agnGutter,
{ ahaRightMargin} agnGutter
{ ahaRightMargin} agnGutter,
{ ahaSpecialVisibleChars } agnText
);
ahaSupportedFeatures: array[TAdditionalHilightAttribute] of TSynHighlighterAttrFeatures =
(
@ -180,7 +183,8 @@ const
{ ahaSyncroEditArea } [hafBackColor, hafForeColor, hafFrameColor, hafFrameStyle, hafFrameEdges, hafStyle, hafStyleMask],
{ ahaGutterSeparator } [hafBackColor, hafForeColor],
{ ahaGutter } [hafBackColor],
{ ahaRightMargin} [hafForeColor]
{ ahaRightMargin} [hafForeColor],
{ ahaSpecialVisibleChars }[hafBackColor, hafForeColor, hafFrameColor, hafFrameStyle, hafFrameEdges, hafStyle, hafStyleMask]
);
@ -1590,6 +1594,7 @@ begin
AdditionalHighlightAttributes[ahaGutterSeparator] := dlgAddHiAttrGutterSeparator;
AdditionalHighlightAttributes[ahaGutter] := dlgGutter;
AdditionalHighlightAttributes[ahaRightMargin] := dlgRightMargin;
AdditionalHighlightAttributes[ahaSpecialVisibleChars] := dlgAddHiSpecialVisibleChars;
AdditionalHighlightGroupNames[agnDefault] := dlgAddHiAttrGroupDefault;
AdditionalHighlightGroupNames[agnText] := dlgAddHiAttrGroupText;
@ -4657,10 +4662,12 @@ begin
SetMarkupColor(ahaLineHighlight, aSynEdit.LineHighlightColor);
SetMarkupColorByClass(ahaHighlightWord, TSynEditMarkupHighlightAllCaret);
SetMarkupColorByClass(ahaWordGroup, TSynEditMarkupWordGroup);
SetMarkupColorByClass(ahaSpecialVisibleChars, TSynEditMarkupSpecialChar);
SetGutterColorByClass(ahaLineNumber, TSynGutterLineNumber);
SetGutterColorByClass(ahaModifiedLine, TSynGutterChanges);
SetGutterColorByClass(ahaCodeFoldingTree, TSynGutterCodeFolding);
SetGutterColorByClass(ahaGutterSeparator, TSynGutterSeparator);
i := aSynEdit.PluginCount - 1;
while (i >= 0) and not(aSynEdit.Plugin[i] is TSynPluginTemplateEdit) do
dec(i);

1
ide/lazarusidestrconsts.pas
View File

@ -1612,6 +1612,7 @@ resourcestring
dlgAddHiAttrSyncroEditOther = 'Other Cells';
dlgAddHiAttrSyncroEditArea = 'Selected Area';
dlgAddHiAttrGutterSeparator = 'Gutter Separator';
dlgAddHiSpecialVisibleChars = 'Visualized Special Chars';
dlgAddHiAttrGroupDefault = 'Global';
dlgAddHiAttrGroupText = 'Text';