TJppColorListBoxBeforePaintItem

type TJppColorListBoxBeforePaintItem = procedure(

  const Index: Integer;

  const Rect: TRect;

  const State: TOwnerDrawState;

  const ItemData: TJppColorListBoxItemData;

  var PaintHandled: Boolean

) of object;