OnCalcHilite has this type -
TATSynEditCalcHiliteEvent = procedure(Sender: TObject; var AParts: TATLineParts;
ALineIndex, ACharIndex, ALineLen: integer; var AColorAfterEol: TColor) of object;
In the handler of this event, you must fill
- AParts (array of parts, one part per one LANGUAGE TOKEN, e.g. one symbol, one keyword, one string const, one comment. And fill all other parts with zero.),
- AColorAfterEol (color which is used after line end for empty area).
you get
- ALineIndex is index of line
- ACharIndex is index of char for part of wrapped line (if line is wrapped)