XShapeQueryExtents

function XShapeQueryExtents(

  display: PDisplay;

  window: TWindow;

  bounding_shaped: PBool;

  x_bounding: Pcint;

  y_bounding: Pcint;

  w_bounding: Pcuint;

  h_bounding: Pcuint;

  clip_shaped: PBool;

  x_clip: Pcint;

  y_clip: Pcint;

  w_clip: Pcuint;

  h_clip: Pcuint

):TStatus;