TXCrossingEvent

type TXCrossingEvent = record

  _type: cint;

  serial: culong;

  send_event: TBool;

  display: PDisplay;

  window: TWindow;

  root: TWindow;

  subwindow: TWindow;

  time: TTime;

  x: cint;

  y: cint;

  x_root: cint;

  y_root: cint;

  mode: cint;

  detail: cint;

  same_screen: TBool;

  focus: TBool;

  state: cuint;

end;