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

editor options, added option for line number frequency, closes #6

This commit is contained in:
Basile Burg 2015-12-14 05:49:04 +01:00
parent 83193a4d03
commit dfbb0211a3
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/ce_editoroptions.pas
View File

@ -39,7 +39,8 @@ type
fIdentifierMarkup: TSynSelectedColor; fIdentifierMarkup: TSynSelectedColor;
fFont: TFont; fFont: TFont;
// //
fCurrLineColor: TColor;
fLineNumEvery: Integer;
fDDocDelay: Integer; fDDocDelay: Integer;
fAutoDotDelay: Integer; fAutoDotDelay: Integer;
fTabWidth: Integer; fTabWidth: Integer;
@ -69,6 +70,7 @@ type
procedure setDDocDelay(value: Integer); procedure setDDocDelay(value: Integer);
procedure setAutoDotDelay(value: Integer); procedure setAutoDotDelay(value: Integer);
procedure setCompletionMenuLines(value: byte); procedure setCompletionMenuLines(value: byte);
procedure setLineNumEvery(value: integer);
published published
property currentLine: TSynSelectedColor read fCurrLineAttribs write setCurrLineAttribs; property currentLine: TSynSelectedColor read fCurrLineAttribs write setCurrLineAttribs;
property completionMenuCaseCare: boolean read fCompletionMenuCaseCare write fCompletionMenuCaseCare; property completionMenuCaseCare: boolean read fCompletionMenuCaseCare write fCompletionMenuCaseCare;
@ -96,6 +98,7 @@ type
property highlighterDlang: TPersistent read fD2Syn write setD2Syn; property highlighterDlang: TPersistent read fD2Syn write setD2Syn;
property highlighterGeneric: TPersistent read fTxtSyn write setTxtSyn; property highlighterGeneric: TPersistent read fTxtSyn write setTxtSyn;
property shortcuts: TCollection read fShortCuts write setShortcuts; property shortcuts: TCollection read fShortCuts write setShortcuts;
property lineNumberEvery: integer read fLineNumEvery write setLineNumEvery default 5;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -193,6 +196,7 @@ begin
fCompletionMenuWidth:= 160; fCompletionMenuWidth:= 160;
fCompletionMenuLines:= 15; fCompletionMenuLines:= 15;
// //
fLineNumEvery := 5;
rightEdge := 80; rightEdge := 80;
tabulationWidth := 4; tabulationWidth := 4;
blockIdentation := 4; blockIdentation := 4;
@ -262,6 +266,7 @@ begin
fD2Syn.Assign(srcopt.fD2Syn); fD2Syn.Assign(srcopt.fD2Syn);
fTxtSyn.Assign(srcopt.fTxtSyn); fTxtSyn.Assign(srcopt.fTxtSyn);
background := srcopt.background; background := srcopt.background;
lineNumberEvery := srcopt.lineNumberEvery;
tabulationWidth := srcopt.tabulationWidth; tabulationWidth := srcopt.tabulationWidth;
blockIdentation := srcopt.blockIdentation; blockIdentation := srcopt.blockIdentation;
@ -299,6 +304,13 @@ begin
fCompletionMenuLines := value; fCompletionMenuLines := value;
end; end;
procedure TCEEditorOptionsBase.setLineNumEvery(value: integer);
begin
if value < 1 then value := 1
else if value > 10 then value := 10;
fLineNumEvery := value;
end;
procedure TCEEditorOptionsBase.setShortcuts(value: TCollection); procedure TCEEditorOptionsBase.setShortcuts(value: TCollection);
begin begin
fShortCuts.Assign(value); fShortCuts.Assign(value);
@ -580,6 +592,8 @@ begin
anEditor.completionMenu.LinesInWindow := fCompletionMenuLines; anEditor.completionMenu.LinesInWindow := fCompletionMenuLines;
anEditor.completionMenu.CaseSensitive := fCompletionMenuCaseCare; anEditor.completionMenu.CaseSensitive := fCompletionMenuCaseCare;
anEditor.Gutter.LineNumberPart.ShowOnlyLineNumbersMultiplesOf:=fLineNumEvery;
anEditor.SelectedColor.Assign(fSelAttribs); anEditor.SelectedColor.Assign(fSelAttribs);
anEditor.FoldedCodeColor.Assign(fFoldedColor); anEditor.FoldedCodeColor.Assign(fFoldedColor);
anEditor.MouseLinkColor.Assign(fMouseLinkAttribs); anEditor.MouseLinkColor.Assign(fMouseLinkAttribs);