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