TgpInput

type TgpInput = record

  MethodID: LongWord;

  gpi_GInfo: PGadgetInfo;

  gpi_IEvent: PInputEvent;

  gpi_Termination: Pointer;

  gpi_Mouse: record

    x: SmallInt;

    y: SmallInt;

    pad_align: record

    end;

  end;

  gpi_TabletData: PTabletData;

  pad_align: record

  end;

end;