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

add preset Marse bright + fix combo items not updated when preset name changed

This commit is contained in:
Basile Burg 2016-06-22 06:31:58 +02:00
parent 495fb610b0
commit 07943f511b
1 changed files with 34 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
src/ce_d2synpresets.pas
View File

@ -298,6 +298,7 @@ begin
identifierMatch.Foreground:= clNone; identifierMatch.Foreground:= clNone;
identifierMatch.Background:= clSilver; identifierMatch.Background:= clSilver;
identifierMatch.BackAlpha:=70; identifierMatch.BackAlpha:=70;
identifierMatch.BackPriority:= 10;
// //
selection.Background:= $CCCCCC; selection.Background:= $CCCCCC;
selection.Foreground:= clNone; selection.Foreground:= clNone;
@ -339,6 +340,7 @@ begin
folding.Background := 7303023; folding.Background := 7303023;
folding.Foreground := clYellow; folding.Foreground := clYellow;
identifierMatch.Background := 7697781; identifierMatch.Background := 7697781;
identifierMatch.BackPriority:= 10;
identifierMatch.Foreground := clNone; identifierMatch.Foreground := clNone;
selection.Background := 10132122; selection.Background := 10132122;
selection.Foreground := clNone; selection.Foreground := clNone;
@ -374,10 +376,39 @@ begin
folding.Foreground := clYellow; folding.Foreground := clYellow;
folding.FrameColor := clYellow; folding.FrameColor := clYellow;
identifierMatch.Background := 10278890; identifierMatch.Background := 10278890;
identifierMatch.BackPriority:= 10;
identifierMatch.Foreground := clNone; identifierMatch.Foreground := clNone;
selection.Background := 8448232; selection.Background := 8448232;
selection.Foreground := clNone; selection.Foreground := clNone;
end; end;
with fPresets.addPreset do
begin
name := 'Mars bright';
getHl.numbers.Foreground := 7763655;
getHl.comments.Foreground := clMedGray;
getHl.strings.Foreground := 3750276;
getHl.keywords.Foreground := 2631874;
getHl.ddoc.Foreground := 7105644;
getHl.special.Foreground := 2631874;
getHl.attributes.Foreground := 2631874;
background := 16448250;
bracketMatch.Background := 9276865;
bracketMatch.Foreground := clNone;
currentLine.Background := 13421772;
currentLine.Foreground := clNone;
folding.Background := clNone;
folding.Foreground := clNone;
folding.FrameColor := clBlack;
identifierMatch.Background := 14145500;
identifierMatch.Foreground := clNone;
identifierMatch.BackPriority := 10;
mouseLink.Background := clNone;
mouseLink.Foreground := clNone;
mouseLink.FrameColor := clRed;
mouseLink.FrameEdges := sfeBottom;
selection.Background := 12837345;
selection.Foreground := clNone;
end;
end; end;
// TODO-cd2synpresets: add more presets // TODO-cd2synpresets: add more presets
// //
@ -410,12 +441,12 @@ begin
pnl.BevelOuter:= bvNone; pnl.BevelOuter:= bvNone;
pnl.BevelInner:= bvNone; pnl.BevelInner:= bvNone;
pnl.Align:=alTop; pnl.Align:=alTop;
pnl.BorderSpacing.Around:= 4; pnl.BorderSpacing.Around:= 2;
pnl.Height:=30; pnl.Height:=30;
// //
fList := TComboBox.Create(self); fList := TComboBox.Create(self);
fList.Align:= alClient; fList.Align:= alClient;
fList.BorderSpacing.Around:= 4; fList.BorderSpacing.Around:= 2;
fList.Parent := pnl; fList.Parent := pnl;
fList.ReadOnly:=true; fList.ReadOnly:=true;
fList.OnSelect:= @lstBoxSelChange; fList.OnSelect:= @lstBoxSelChange;
@ -557,6 +588,7 @@ begin
fEditor.FoldedCodeColor := p.folding; fEditor.FoldedCodeColor := p.folding;
fEditor.MouseLinkColor := p.mouseLink; fEditor.MouseLinkColor := p.mouseLink;
fEditor.BracketMatchColor := p.bracketMatch; fEditor.BracketMatchColor := p.bracketMatch;
fList.Items[fList.ItemIndex] := fPresets[fList.ItemIndex].name;
end; end;
{$ENDREGION} {$ENDREGION}