TXShapeEvent

type TXShapeEvent = record

  _type: cint;

  serial: culong;

  send_event: TBool;

  display: PDisplay;

  window: TWindow;

  kind: cint;

  x: cint;

  y: cint;

  width: cunsigned;

  height: cunsigned;

  time: TTime;

  shaped: TBool;

end;