Source position: msepickwidget.pas line 31
type paintxorpiceventty = procedure(
const sender: tcustompickwidget;
const picker: tobjectpicker;
const canvas: tcanvas
) of object;