procedure TCommandsDataModule.LoadHL;
procedure setDefAttr(SynHL: TSynCustomHighlighter);
begin
SynHL.CommentAttribute.Foreground := clTeal;
SynHL.IdentifierAttribute.Foreground := clNavy;
SynHL.KeywordAttribute.Style:=[fsBold];
SynHL.StringAttribute.Foreground := clFuchsia;
SynHL.WhitespaceAttribute.Background := clCream;
end;
var
SynHL: TSynCustomHighlighter;
begin
SynHL:=TSynPasSyn.Create(self);
setDefAttr(SynHL);
SynHL:=TSynCppSyn.Create(self);
setDefAttr(SynHL);
SynHL:=TSynSqlSyn.Create(self);
setDefAttr(SynHL);
//etc...
end;