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

refact setter used to set the gutter color 

so that it doeds not rely on default gutter parts
This commit is contained in:
Basile Burg 2021-04-15 02:36:37 +02:00
parent 7a4f0af84b
commit b0da20f068
1 changed files with 8 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/u_synmemo.pas
View File

@ -1252,26 +1252,18 @@ begin
end; end;
procedure TDexedMemo.setGutterTransparent(value: boolean); procedure TDexedMemo.setGutterTransparent(value: boolean);
var
i: integer;
c: TColor;
begin begin
fTransparentGutter:=value; fTransparentGutter:=value;
if fTransparentGutter then if fTransparentGutter then
begin c := color
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 else
begin c := clBtnFace;
Gutter.LineNumberPart.MarkupInfo.Background:= clBtnFace; for i := 0 to Gutter.Parts.Count - 1 do
Gutter.SeparatorPart.MarkupInfo.Background:= clBtnFace; gutter.Parts.Part[i].MarkupInfo.Background := c;
Gutter.MarksPart.MarkupInfo.Background:= clBtnFace; gutter.Color:=c;
Gutter.ChangesPart.MarkupInfo.Background:= clBtnFace;
Gutter.CodeFoldPart.MarkupInfo.Background:= clBtnFace;
Gutter.Color:=clBtnFace;
end;
end; end;
procedure TDexedMemo.setDefaultFontSize(value: Integer); procedure TDexedMemo.setDefaultFontSize(value: Integer);