Source position: synedit.pp line 372
type TSynMouseLinkEvent = procedure(
Sender: TObject;
X: Integer;
Y: Integer;
var AllowMouseLink: Boolean
) of object;