ExcludeShapeFromBaseRect

procedure ExcludeShapeFromBaseRect(

  var BaseRect: TRect;

  ShapeWidth: Integer;

  ShapeHeight: Integer;

  HAlign: TKHAlign;

  VAlign: TKVAlign;

  HPadding: Integer;

  VPadding: Integer;

  StretchMode: TKStretchMode;

  out Bounds: TRect;

  out Interior: TRect

);