actioninfotoshapeinfo

procedure actioninfotoshapeinfo(

  var actioninfo: actioninfoty;

  var shapeinfo: shapeinfoty

); overload;

procedure actioninfotoshapeinfo(

  const sender: twidget;

  var actioninfo: actioninfoty;

  var shapeinfo: shapeinfoty;

  const aoptions: buttonoptionsty

);