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

start #59 - HL presets

This commit is contained in:
Basile Burg 2016-06-16 01:56:12 +02:00
parent 79b7b851ee
commit a6ca4aac42
4 changed files with 370 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lazproj/coedit.lpi
View File

@ -138,7 +138,7 @@
<PackageName Value="LCL"/>
</Item6>
</RequiredPackages>
<Units Count="50">
<Units Count="51">
<Unit0>
<Filename Value="coedit.lpr"/>
<IsPartOfProject Value="True"/>
@ -400,6 +400,10 @@
<Filename Value="..\src\ce_projutils.pas"/>
<IsPartOfProject Value="True"/>
</Unit49>
<Unit50>
<Filename Value="..\src\ce_d2synpresets.pas"/>
<IsPartOfProject Value="True"/>
</Unit50>
</Units>
</ProjectOptions>
<CompilerOptions>

10
lazproj/coedit.lpr
View File

@ -7,11 +7,11 @@ uses
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, Forms, lazcontrols, runtimetypeinfocontrols, anchordockpkg,
ce_sharedres, ce_observer, ce_libman, ce_symstring, ce_tools, ce_dcd,
ce_main, ce_writableComponent, ce_staticmacro, ce_inspectors,
ce_editoroptions, ce_dockoptions, ce_shortcutseditor, ce_mru, ce_processes,
ce_dubproject, ce_dialogs, ce_dubprojeditor, ce_controls, ce_dfmt,
ce_lcldragdrop, ce_stringrange, ce_dlangmaps, ce_projgroup, ce_projutils;
ce_sharedres, ce_observer, ce_libman, ce_symstring, ce_tools, ce_dcd, ce_main,
ce_writableComponent, ce_staticmacro, ce_inspectors, ce_editoroptions,
ce_dockoptions, ce_shortcutseditor, ce_mru, ce_processes, ce_dubproject,
ce_dialogs, ce_dubprojeditor, ce_controls, ce_dfmt, ce_lcldragdrop,
ce_stringrange, ce_dlangmaps, ce_projgroup, ce_projutils, ce_d2synpresets;
{$R *.res}

356
src/ce_d2synpresets.pas Normal file
View File

@ -0,0 +1,356 @@
unit ce_d2synpresets;
{$I ce_defines.inc}
interface
uses
Classes, SysUtils, SynEditMiscClasses, Graphics, Controls, StdCtrls, ExtCtrls,
SynEditHighlighter, SynEditTypes,
ce_interfaces, ce_common, ce_writableComponent, ce_d2syn, ce_observer,
ce_editoroptions;
type
TAttribHelper = class helper for TSynHighlighterAttributes
procedure define(
fore: TColor;
Stl: TFontStyles = [];
bck: TColor = clNone;
frCol: TColor = clNone;
frStyle: TSynLineStyle = slsSolid;
frEdges: TSynFrameEdges = sfeNone;
stlMsk: TFontStyles = []);
end;
(**
* persistent class used to store a highlighter preset.
*)
TCED2SynPreset = class(TCollectionItem)
private
fBackground: TColor;
fBracketMatchAttribs: TSynSelectedColor;
fCurrLineAttribs: TSynSelectedColor;
fFoldedColor: TSynSelectedColor;
fIdentifierMarkup: TSynSelectedColor;
fMouseLinkAttribs: TSynSelectedColor;
fSelAttribs: TSynSelectedColor;
fd2syn: TSynD2Syn;
fName: string;
procedure setBracketMatchColor(value: TSynSelectedColor);
procedure setCurrLineAttribs(value: TSynSelectedColor);
procedure setFoldedColor(value: TSynSelectedColor);
procedure setIdentifierMarkup(value: TSynSelectedColor);
procedure setMouseLinkColor(value: TSynSelectedColor);
procedure setSelCol(value: TSynSelectedColor);
procedure setD2syn(value: TSynD2Syn);
published
property name: string read fName write fName;
property highlighter: TSynD2Syn read fd2syn write setD2Syn;
property background: TColor read fBackground write fBackground default clWhite;
property bracketMatch: TSynSelectedColor read fBracketMatchAttribs write setBracketMatchColor;
property currentLine: TSynSelectedColor read fCurrLineAttribs write setCurrLineAttribs;
property folding: TSynSelectedColor read fFoldedColor write setFoldedColor;
property identifierMatch: TSynSelectedColor read fIdentifierMarkup write setIdentifierMarkup;
property mouseLink: TSynSelectedColor read fMouseLinkAttribs write setMouseLinkColor;
property selection: TSynSelectedColor read fSelAttribs write setSelCol;
public
constructor Create(ACollection: TCollection); override;
destructor destroy; override;
procedure assignToOptions;
procedure assignFromOptions;
end;
TCED2SynPresets = class(TWritableLfmTextComponent)
private
fCollection: TCollection;
procedure setCollection(value: TCollection);
function getPreset(index: integer): TCED2SynPreset;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function addPreset: TCED2SynPreset;
property preset[index: integer]: TCED2SynPreset read getPreset ; default;
end;
(**
* UI for loading highlighter presets in the options editor.
*)
TCED2SynPresetsLoaderForm = class(TWinControl, ICEEditableOptions)
private
fPresets: TCED2SynPresets;
flstBox: TListBox;
fBackup: TCED2SynPreset;
function optionedWantCategory(): string;
function optionedWantEditorKind: TOptionEditorKind;
function optionedWantContainer: TPersistent;
procedure optionedEvent(anEvent: TOptionEditorEvent);
function optionedOptionsModified: boolean;
procedure lstBoxChange(sender: TObject);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
implementation
const
optfname = 'highlighterPresets.txt';
var
presetsLoaderForm: TCED2SynPresetsLoaderForm;
{$REGION TCED2SynPreset -------------------------------------------------------}
constructor TCED2SynPreset.create(ACollection: TCollection);
begin
inherited Create(ACOllection);
fBracketMatchAttribs:= TSynSelectedColor.Create;
fCurrLineAttribs:= TSynSelectedColor.Create;
fFoldedColor:= TSynSelectedColor.Create;
fIdentifierMarkup:= TSynSelectedColor.Create;
fMouseLinkAttribs:= TSynSelectedColor.Create;
fSelAttribs:= TSynSelectedColor.Create;
fd2syn := TSynD2Syn.create(nil);
end;
destructor TCED2SynPreset.destroy;
begin
fBracketMatchAttribs.free;
fCurrLineAttribs.free;
fFoldedColor.free;
fIdentifierMarkup.free;
fMouseLinkAttribs.free;
fSelAttribs.free;
fd2syn.Free;
inherited;
end;
procedure TCED2SynPreset.setD2syn(value: TSynD2Syn);
begin
fd2syn.Assign(value);
end;
procedure TCED2SynPreset.setBracketMatchColor(value: TSynSelectedColor);
begin
fBracketMatchAttribs.Assign(value);
end;
procedure TCED2SynPreset.setCurrLineAttribs(value: TSynSelectedColor);
begin
fCurrLineAttribs.Assign(value);
end;
procedure TCED2SynPreset.setFoldedColor(value: TSynSelectedColor);
begin
fFoldedColor.Assign(value);
end;
procedure TCED2SynPreset.setIdentifierMarkup(value: TSynSelectedColor);
begin
fIdentifierMarkup.Assign(value);
end;
procedure TCED2SynPreset.setMouseLinkColor(value: TSynSelectedColor);
begin
fMouseLinkAttribs.Assign(value);
end;
procedure TCED2SynPreset.setSelCol(value: TSynSelectedColor);
begin
fSelAttribs.Assign(value);
end;
procedure TCED2SynPreset.assignToOptions;
begin
EditorOptions.background:=background;
EditorOptions.highlighterDlang.Assign(highlighter);
EditorOptions.bracketMatch.Assign(bracketMatch);
EditorOptions.currentLine.Assign(currentLine);
EditorOptions.folding.Assign(folding);
EditorOptions.identifierMatch.Assign(identifierMatch);
EditorOptions.mouseLink.Assign(mouseLink);
EditorOptions.selection.Assign(selection);
EditorOptions.applyChangesFromSelf;
end;
procedure TCED2SynPreset.assignFromOptions;
begin
background:=EditorOptions.background;
highlighter.Assign(EditorOptions.highlighterDlang);
bracketMatch.Assign(EditorOptions.bracketMatch);
currentLine.Assign(EditorOptions.currentLine);
folding.Assign(EditorOptions.folding);
identifierMatch.Assign(EditorOptions.identifierMatch);
mouseLink.Assign(EditorOptions.mouseLink);
selection.Assign(EditorOptions.selection);
end;
{$ENDREGION}
{$REGION TCED2SynPresets ------------------------------------------------------}
constructor TCED2SynPresets.Create(AOwner: TComponent);
begin
inherited;
fCollection := TCollection.Create(TCED2SynPreset);
end;
destructor TCED2SynPresets.Destroy;
begin
fCollection.Free;
inherited;
end;
procedure TCED2SynPresets.setCollection(value: TCollection);
begin
fCollection.Assign(value);
end;
function TCED2SynPresets.addPreset: TCED2SynPreset;
begin
exit(TCED2SynPreset(fCollection.Add));
end;
function TCED2SynPresets.getPreset(index: integer): TCED2SynPreset;
begin
exit(TCED2SynPreset(fCollection.Items[index]));
end;
{$ENDREGION}
{$REGION TCED2SynPresetsLoaderForm --------------------------------------------}
procedure TAttribHelper.define(fore: TColor;Stl: TFontStyles = [];
bck: TColor = clNone; frCol: TColor = clNone; frStyle: TSynLineStyle = slsSolid;
frEdges: TSynFrameEdges = sfeNone; stlMsk: TFontStyles = []);
begin
Background:=bck;
Foreground:=fore;
FrameColor:=frCol;
FrameStyle:=frStyle;
FrameEdges:=frEdges;
Style:=stl;
StyleMask:=stlMsk;
end;
constructor TCED2SynPresetsLoaderForm.Create(AOwner: TComponent);
var
fname: string;
i: integer;
begin
inherited;
fBackup:= TCED2SynPreset.Create(nil);
fPresets:= TCED2SynPresets.Create(self);
fname := getCoeditDocPath + optfname;
if fname.fileExists then
fPresets.loadFromFile(fname)
else begin
// Default
with fPresets.addPreset do
begin
fName :='bright';
fBackground := clWhite;
fd2syn.whites.define(clNone);
fd2syn.numbers.define($000079F2);
fd2syn.symbols.define(clMaroon);
fd2syn.identifiers.define(clBlack);
fd2syn.comments.define(clGreen,[fsItalic]);
fd2syn.strings.define(clBlue);
fd2syn.keywords.define(clNavy,[fsBold]);
fd2syn.ddoc.define(clTeal);
fd2syn.inlineAsm.define(clGray,[fsBold]);
fd2syn.special.define(clNavy,[fsBold]);
fd2syn.errors.define(clBlack,[],clNone,clRed,slsWaved,sfeBottom,[]);
fd2syn.attributes.define(clNavy,[fsBold]);
end;
with fPresets.addPreset do
begin
fName :='dark';
fBackground := $00404040;
fd2syn.whites.define(clNone);
fd2syn.numbers.define($000079F2,[fsBold]);
fd2syn.symbols.define(clMaroon);
fd2syn.identifiers.define($00F0EFE1);
fd2syn.comments.define($00C7C7C7,[fsItalic]);
fd2syn.strings.define($ECD284);
fd2syn.keywords.define($0097C793,[fsBold]);
fd2syn.ddoc.define(clTeal);
fd2syn.inlineAsm.define($00CB84EC,[fsBold]);
fd2syn.special.define($0097C793,[fsBold]);
fd2syn.errors.define($00F0EFE1,[],clNone,clRed,slsWaved,sfeBottom,[]);
fd2syn.attributes.define($0097C793,[fsBold]);
end;
with fPresets.addPreset do
begin
fBackground := clWhite;
fName :='Mars bright';
end;
with fPresets.addPreset do
begin
fBackground :=clWhite;
fName :='Mars dark';
end;
with fPresets.addPreset do
begin
fBackground :=clWhite;
fName :='Mustard';
end;
end;
//
flstBox := TListBox.Create(self);
flstBox.Align:= alClient;
flstBox.BorderSpacing.Around:= 4;
flstBox.Parent := self;
flstbox.OnClick:=@lstBoxChange;
for i:= 0 to fPresets.fCollection.Count-1 do
flstBox.AddItem(fPresets[i].name, fPresets[i]);
//
EntitiesConnector.addObserver(self);
end;
destructor TCED2SynPresetsLoaderForm.Destroy;
begin
//fPresets.saveToFile(getCoeditDocPath + optfname);
fBackup.Free;
EntitiesConnector.removeObserver(self);
inherited;
end;
function TCED2SynPresetsLoaderForm.optionedWantCategory(): string;
begin
exit('Highlighter presets');
end;
function TCED2SynPresetsLoaderForm.optionedWantEditorKind: TOptionEditorKind;
begin
exit(oekControl);
end;
function TCED2SynPresetsLoaderForm.optionedWantContainer: TPersistent;
begin
exit(self);
end;
procedure TCED2SynPresetsLoaderForm.optionedEvent(anEvent: TOptionEditorEvent);
begin
case anEvent of
oeeAccept: fBackup.assignFromOptions;
oeeCancel: fBackup.assignToOptions;
oeeSelectCat: fBackup.assignFromOptions;
end;
end;
function TCED2SynPresetsLoaderForm.optionedOptionsModified: boolean;
begin
exit(false);
end;
procedure TCED2SynPresetsLoaderForm.lstBoxChange(sender: TObject);
begin
if flstBox.ItemIndex = -1 then
exit;
fPresets[flstBox.ItemIndex].assignToOptions;
end;
{$ENDREGION}
initialization
presetsLoaderForm:= TCED2SynPresetsLoaderForm.Create(nil);
finalization
presetsLoaderForm.Free;
end.

8
src/ce_editoroptions.pas
View File

@ -142,23 +142,23 @@ type
procedure scedSendItem(const category, identifier: string; aShortcut: TShortcut);
procedure scedSendDone;
//
procedure applyChangesFromSelf;
procedure applyChangeToEditor(anEditor: TCESynMemo);
protected
procedure afterLoad; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure applyChangesFromSelf;
end;
var
EditorOptions: TCEEditorOptions;
implementation
const
edoptFname = 'editor.txt';
var
EditorOptions: TCEEditorOptions;
{$REGION Standard Comp/Obj -----------------------------------------------------}
constructor TCEEditorOptionsBase.Create(AOwner: TComponent);
var