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

added assignation of additional published props

This commit is contained in:
Basile Burg 2015-02-22 09:39:51 +01:00
parent fd0b98ea7c
commit adc4a55b28
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/ce_d2syn.pas
View File

@ -143,6 +143,7 @@ type
public public
constructor create(aOwner: TComponent); override; constructor create(aOwner: TComponent); override;
destructor destroy; override; destructor destroy; override;
procedure Assign(Source: TPersistent); override;
procedure GetTokenEx(out TokenStart: PChar; out TokenLength: integer); override; procedure GetTokenEx(out TokenStart: PChar; out TokenLength: integer); override;
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes; override; function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes; override;
procedure setLine(const NewValue: String; LineNumber: Integer); override; procedure setLine(const NewValue: String; LineNumber: Integer); override;
@ -337,6 +338,18 @@ begin
inherited; inherited;
end; end;
procedure TSynD2Syn.Assign(Source: TPersistent);
var
srcsyn: TSynD2Syn;
begin
inherited;
if Source is TSynD2Syn then
begin
srcsyn := TSynD2Syn(Source);
FoldKinds := srcsyn.FoldKinds;
end;
end;
function TSynD2Syn.GetRangeClass: TSynCustomHighlighterRangeClass; function TSynD2Syn.GetRangeClass: TSynCustomHighlighterRangeClass;
begin begin
result := TSynD2SynRange; result := TSynD2SynRange;