forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

added option to customize bracket pair match

This commit is contained in:
Basile Burg 2015-02-24 07:20:42 +01:00
parent 953240ce03
commit 8478e3f040
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/ce_editoroptions.pas
View File

@ -31,6 +31,7 @@ type
fSelCol: TSynSelectedColor; fSelCol: TSynSelectedColor;
fFoldedColor: TSynSelectedColor; fFoldedColor: TSynSelectedColor;
fMouseLinkColor: TSynSelectedColor; fMouseLinkColor: TSynSelectedColor;
fBracketMatchColor: TSynSelectedColor;
fFont: TFont; fFont: TFont;
// //
fTabWidth: Integer; fTabWidth: Integer;
@ -48,9 +49,11 @@ type
procedure setSelCol(aValue: TSynSelectedColor); procedure setSelCol(aValue: TSynSelectedColor);
procedure setFoldedColor(aValue: TSynSelectedColor); procedure setFoldedColor(aValue: TSynSelectedColor);
procedure setMouseLinkColor(aValue: TSynSelectedColor); procedure setMouseLinkColor(aValue: TSynSelectedColor);
procedure setBracketMatchColor(aValue: TSynSelectedColor);
procedure setD2Syn(aValue: TPersistent); procedure setD2Syn(aValue: TPersistent);
procedure setTxtSyn(aValue: TPersistent); procedure setTxtSyn(aValue: TPersistent);
published published
property bracketMatchColor: TSynSelectedColor read fBracketMatchColor write setBracketMatchColor;
property mouseLinkColor: TSynSelectedColor read fMouseLinkColor write setMouseLinkColor; property mouseLinkColor: TSynSelectedColor read fMouseLinkColor write setMouseLinkColor;
property selectedColor: TSynSelectedColor read fSelCol write setSelCol; property selectedColor: TSynSelectedColor read fSelCol write setSelCol;
property foldedColor: TSynSelectedColor read fFoldedColor write setFoldedColor; property foldedColor: TSynSelectedColor read fFoldedColor write setFoldedColor;
@ -128,6 +131,7 @@ begin
fSelCol := TSynSelectedColor.Create; fSelCol := TSynSelectedColor.Create;
fFoldedColor := TSynSelectedColor.Create; fFoldedColor := TSynSelectedColor.Create;
fMouseLinkColor := TSynSelectedColor.Create; fMouseLinkColor := TSynSelectedColor.Create;
fBracketMatchColor := TSynSelectedColor.Create;
// //
// note: default values come from TSynEditFoldedView ctor. // note: default values come from TSynEditFoldedView ctor.
fFoldedColor.Background := clNone; fFoldedColor.Background := clNone;
@ -139,6 +143,9 @@ begin
fMouseLinkColor.Foreground := clNone; fMouseLinkColor.Foreground := clNone;
fMouseLinkColor.Background := clNone; fMouseLinkColor.Background := clNone;
// //
fBracketMatchColor.Foreground:= clRed;
fBracketMatchColor.Background:= clNone;
//
rightEdge := 80; rightEdge := 80;
tabulationWidth := 4; tabulationWidth := 4;
blockIdentation := 4; blockIdentation := 4;
@ -161,6 +168,7 @@ begin
fSelCol.Free; fSelCol.Free;
fFoldedColor.Free; fFoldedColor.Free;
fMouseLinkColor.Free; fMouseLinkColor.Free;
fBracketMatchColor.Free;
inherited; inherited;
end; end;
@ -176,6 +184,7 @@ begin
fSelCol.Assign(srcopt.fSelCol); fSelCol.Assign(srcopt.fSelCol);
fFoldedColor.Assign(srcopt.fFoldedColor); fFoldedColor.Assign(srcopt.fFoldedColor);
fMouseLinkColor.Assign(srcopt.fMouseLinkColor); fMouseLinkColor.Assign(srcopt.fMouseLinkColor);
fBracketMatchColor.Assign(srcopt.fBracketMatchColor);
fD2Syn.Assign(srcopt.fD2Syn); fD2Syn.Assign(srcopt.fD2Syn);
fTxtSyn.Assign(srcopt.fTxtSyn); fTxtSyn.Assign(srcopt.fTxtSyn);
background := srcopt.background; background := srcopt.background;
@ -212,6 +221,11 @@ begin
fMouseLinkColor.Assign(aValue); fMouseLinkColor.Assign(aValue);
end; end;
procedure TCEEditorOptionsBase.setBracketMatchColor(aValue: TSynSelectedColor);
begin
fBracketMatchColor.Assign(aValue);
end;
procedure TCEEditorOptionsBase.setD2Syn(aValue: TPersistent); procedure TCEEditorOptionsBase.setD2Syn(aValue: TPersistent);
begin begin
D2Syn.Assign(aValue); D2Syn.Assign(aValue);
@ -330,6 +344,7 @@ begin
anEditor.SelectedColor.Assign(fSelCol); anEditor.SelectedColor.Assign(fSelCol);
anEditor.FoldedCodeColor.Assign(fFoldedColor); anEditor.FoldedCodeColor.Assign(fFoldedColor);
anEditor.MouseLinkColor.Assign(fMouseLinkColor); anEditor.MouseLinkColor.Assign(fMouseLinkColor);
anEditor.BracketMatchColor.Assign(fBracketMatchColor);
anEditor.TabWidth := tabulationWidth; anEditor.TabWidth := tabulationWidth;
anEditor.BlockIndent := blockIdentation; anEditor.BlockIndent := blockIdentation;
anEditor.ExtraLineSpacing := lineSpacing; anEditor.ExtraLineSpacing := lineSpacing;