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

editor, add option to set the gutter transparent

This commit is contained in:
Basile Burg 2017-06-26 07:54:15 +02:00
parent 8d03f8e53e
commit 46041acb64
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
2 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ce_editoroptions.pas
View File

@ -68,6 +68,7 @@ type
fAutoCallCompletion: boolean; fAutoCallCompletion: boolean;
fCloseCompletionCharsWithSpace: AnsiString; fCloseCompletionCharsWithSpace: AnsiString;
fCloseCompletionChars: AnsiString; fCloseCompletionChars: AnsiString;
fTransparentGutter: boolean;
// //
procedure setPhobosDocRoot(value: TCEPathname); procedure setPhobosDocRoot(value: TCEPathname);
procedure setFont(value: TFont); procedure setFont(value: TFont);
@ -124,6 +125,7 @@ type
property shortcuts: TCollection read fShortCuts write setShortcuts; property shortcuts: TCollection read fShortCuts write setShortcuts;
property smartDdocNewline: boolean read fSmartDdocNewline write fSmartDdocNewline; property smartDdocNewline: boolean read fSmartDdocNewline write fSmartDdocNewline;
property tabulationWidth: Integer read fTabWidth write fTabWidth default 4; property tabulationWidth: Integer read fTabWidth write fTabWidth default 4;
property transparentGutter: boolean read fTransparentGutter write fTransparentGutter default false;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -295,6 +297,7 @@ begin
begin begin
srcopt := TCEEditorOptionsBase(source); srcopt := TCEEditorOptionsBase(source);
// //
fTransparentGutter:=srcopt.fTransparentGutter;
fAlwaysAdvancedFeatures:=srcopt.fAlwaysAdvancedFeatures; fAlwaysAdvancedFeatures:=srcopt.fAlwaysAdvancedFeatures;
fResetFontSize:=srcopt.fResetFontSize; fResetFontSize:=srcopt.fResetFontSize;
fAutoCloseCurlyBrace := srcopt.fAutoCloseCurlyBrace; fAutoCloseCurlyBrace := srcopt.fAutoCloseCurlyBrace;
@ -697,6 +700,7 @@ begin
anEditor.insertPlusDdoc:= fInsertPlusDdoc; anEditor.insertPlusDdoc:= fInsertPlusDdoc;
anEditor.autoCallCompletion:= fAutoCallCompletion; anEditor.autoCallCompletion:= fAutoCallCompletion;
anEditor.completionMenuAutoClose:=fCompletionMenuAutoClose; anEditor.completionMenuAutoClose:=fCompletionMenuAutoClose;
anEditor.transparentGutter:=fTransparentGutter;
cs := []; cs := [];
for c in fCloseCompletionCharsWithSpace do for c in fCloseCompletionCharsWithSpace do

26
src/ce_synmemo.pas
View File

@ -186,6 +186,8 @@ type
fCloseCompletionCharsWithSpace: TSysCharSet; fCloseCompletionCharsWithSpace: TSysCharSet;
fCloseCompletionChars: TSysCharSet; fCloseCompletionChars: TSysCharSet;
fCompletionMenuAutoClose: boolean; fCompletionMenuAutoClose: boolean;
fTransparentGutter: boolean;
procedure setGutterTransparent(value: boolean);
procedure decCallTipsLvl; procedure decCallTipsLvl;
procedure setMatchOpts(value: TIdentifierMatchOptions); procedure setMatchOpts(value: TIdentifierMatchOptions);
function getMouseBytePosition: Integer; function getMouseBytePosition: Integer;
@ -298,6 +300,7 @@ type
property isTemporary: boolean read getIfTemp; property isTemporary: boolean read getIfTemp;
property TextView; property TextView;
// //
property transparentGutter: boolean read fTransparentGutter write setGutterTransparent;
property isProjectDescription: boolean read fIsProjectDescription write fIsProjectDescription; property isProjectDescription: boolean read fIsProjectDescription write fIsProjectDescription;
property alwaysAdvancedFeatures: boolean read fAlwaysAdvancedFeatures write fAlwaysAdvancedFeatures; property alwaysAdvancedFeatures: boolean read fAlwaysAdvancedFeatures write fAlwaysAdvancedFeatures;
property phobosDocRoot: string read fPhobosDocRoot write fPhobosDocRoot; property phobosDocRoot: string read fPhobosDocRoot write fPhobosDocRoot;
@ -834,6 +837,29 @@ begin
inherited; inherited;
end; end;
procedure TCESynMemo.setGutterTransparent(value: boolean);
begin
fTransparentGutter:=value;
if fTransparentGutter then
begin
Gutter.LineNumberPart.MarkupInfo.Background:= Color;
Gutter.SeparatorPart.MarkupInfo.Background:= Color;
Gutter.MarksPart.MarkupInfo.Background:= Color;
Gutter.ChangesPart.MarkupInfo.Background:= Color;
Gutter.CodeFoldPart.MarkupInfo.Background:= Color;
Gutter.Color:=Color;
end
else
begin
Gutter.LineNumberPart.MarkupInfo.Background:= clBtnFace;
Gutter.SeparatorPart.MarkupInfo.Background:= clBtnFace;
Gutter.MarksPart.MarkupInfo.Background:= clBtnFace;
Gutter.ChangesPart.MarkupInfo.Background:= clBtnFace;
Gutter.CodeFoldPart.MarkupInfo.Background:= clBtnFace;
Gutter.Color:=clBtnFace;
end;
end;
procedure TCESynMemo.setDefaultFontSize(value: Integer); procedure TCESynMemo.setDefaultFontSize(value: Integer);
var var
old: Integer; old: Integer;