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

View File

@ -143,6 +143,7 @@ type
public
constructor create(aOwner: TComponent); override;
destructor destroy; override;
procedure Assign(Source: TPersistent); override;
procedure GetTokenEx(out TokenStart: PChar; out TokenLength: integer); override;
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes; override;
procedure setLine(const NewValue: String; LineNumber: Integer); override;
@ -337,6 +338,18 @@ begin
inherited;
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;
begin
result := TSynD2SynRange;