TOnUpdateItem

type TOnUpdateItem = procedure(

  Item: zglTListItem;

  clntRect: zglTRect;

  dt: Double;

  oX: single;

  oY: single;

  oW: single;

  oH: single;

  var CatchClick: Boolean

) of object;