Source position: menus.pp line 115
type TMenuDrawItemEvent = procedure(
Sender: TObject;
ACanvas: TCanvas;
ARect: TRect;
AState: TOwnerDrawState
) of object;