Source position: menus.pp line 117
type TMenuMeasureItemEvent = procedure(
Sender: TObject;
ACanvas: TCanvas;
var AWidth: Integer;
var AHeight: Integer
) of object;