CalcButtonLayout

procedure CalcButtonLayout(

  Canvas: TCanvas;

  pngimage: TPngImage;

  const Client: TRect;

  Pressed: Boolean;

  Down: Boolean;

  const Caption: string;

  Layout: TButtonLayout;

  Margin: Integer;

  Spacing: Integer;

  var GlyphPos: TPoint;

  var TextPos: TPoint;

  BiDiFlags: LongInt

);