mirror of https://gitlab.com/basile.b/dexed.git
added assignation of additional published props
This commit is contained in:
parent
fd0b98ea7c
commit
adc4a55b28
|
@ -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;
|
||||
|
|
Loading…
Reference in New Issue