paintintegerglypheventty

type paintintegerglypheventty = procedure(

  const sender: tcustomintegergraphdataedit;

  const acanvas: tcanvas;

  const avalue: Integer;

  const arow: Integer

) of object;