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

fix, d2syn hl range, copy, region count not copied

This commit is contained in:
Basile Burg 2015-03-22 01:09:47 +01:00
parent c928ea57cb
commit fafb6c151f
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/ce_d2syn.pas
View File

@ -58,13 +58,13 @@ type
TTokenKind = (tkCommt, tkIdent, tkKeywd, tkStrng, tkBlank, tkSymbl, tkNumbr, tkCurrI, tkDDocs);
TRangeKind = (rkNone, rkString1, rkString2, rkTokString, rkBlockCom1, rkBlockCom2, rkBlockDoc1, rkBlockDoc2, rkAsm);
TRangeKind = (rkString1, rkString2, rkTokString, rkBlockCom1, rkBlockCom2, rkBlockDoc1, rkBlockDoc2, rkAsm);
// a terminal range kind, cannot be combined with another range kind.
TPrimaryRange = (prString1, prString2, prBlockCom1, prBlockCom2, prBlockDoc1, prBlockDoc2);
TPrimaryRange = (prNone, prString1, prString2, prBlockCom1, prBlockCom2, prBlockDoc1, prBlockDoc2);
// can be combined to a primary range
TSecondaryRange = (srTokenString, srActiveVersion, srInactiveVersion, srAssembly);
TSecondaryRange = (srNone, srTokenString, srActiveVersion, srInactiveVersion, srAssembly);
// used by the secondary ranges to transform the standard token attributes.
TAttributeTransform = (taFontStyle, taFontColor, taBackColor);
@ -251,16 +251,21 @@ begin
tokenStringBracketsCount := 0;
rangeKinds := [];
rString := false;
//
primaryRange := prNone;
secondaryRange := srNone;
end;
procedure TSynD2SynRange.copyFrom(aSource: TSynD2SynRange);
begin
nestedCommentsCount := aSource.nestedCommentsCount;
namedRegionCount := aSource.namedRegionCount;
tokenStringBracketsCount := aSource.tokenStringBracketsCount;
rangeKinds := aSource.rangeKinds;
rString := aSource.rString;
//
primaryRange := aSource.primaryRange;
secondaryRange := aSource.secondaryRange;
rString := aSource.rString;
end;
constructor TSynD2Syn.create(aOwner: TComponent);