TgpInput

type TgpInput = record

  MethodID: LongWord;

GM_GOACTIVE or GM_HANDLEINPUT

  gpi_GInfo: PGadgetInfo;

gadget context

  gpi_IEvent: PInputEvent;

Pointer to the InputEvent that caused the method to be invoked.

  gpi_Termination: PLongInt;

Pointer to a variable that is to be set by the gadget class, if GMR_VERIFY is returned. The lower 16 bits of this value are returned in the Code field of the IntuiMessage passed back to the application

  gpi_Mouse: record

This struct defines the current mouse position, relative to the gadgets' bounding box.

    x: SmallInt;

    y: SmallInt;

  end;

  gpi_TabletData: PTabletData;

Pointer to TabletData structure or nil, if this input event did not originate from a tablet.

end;