Source position: msepickwidget.pas line 23
type getcursorshapeeventty = procedure(
const sender: tcustompickwidget;
const picker: tobjectpicker;
var shape: cursorshapety;
var found: Boolean
) of object;