FIX: Lazarus 4.99 compatibility

This commit is contained in:
Alexander Koblov 2026-01-25 00:38:45 +03:00
commit 039946e768

View file

@ -143,7 +143,6 @@ uses
//==== TSynUniSyn ============================================================
constructor TSynUniSyn.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Info := TSynInfo.Create;
Info.History := TStringList.Create;
Info.Sample := TStringList.Create;
@ -157,6 +156,8 @@ begin
fEol := False;
fPrEol := False;
fCurrentRule := MainRules;
inherited Create(AOwner);
end;
destructor TSynUniSyn.Destroy;