Source position: msegraphics.pas line 149
type fontchangedeventty = procedure(
sender: tfont;
changed: canvasstatesty
) of object;