DrawButton

function DrawButton(

  img: TImage32;

  const pt: TPointD;

  size: Double;

  color: TColor32 = clNone32;

  buttonShape: TButtonShape = bsRound;

  buttonAttributes: TButtonAttributes = [baShadow, ba3D, baEraseBeneath]

):TPathD;