packages/libogcfpc/src/ogc/usbmouse.inc


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


{$IFDEF OGC_INTERFACE}
{$ifdef HW_RVL}


type
  mouse_event = record
    button : cuint8;
    rx : cint;
    ry : cint;
  end;
  Pmouse_event = ^mouse_event;


function MOUSE_Init: cint32; cdecl; external;

function MOUSE_Deinit: cint32; cdecl; external;


function MOUSE_GetEvent(event: Pmouse_event): cint32; cdecl; external;

function MOUSE_FlushEvents: cint32; cdecl; external;

function MOUSE_IsConnected: cbool; cdecl; external;


{$endif HW_RVL}
{$ENDIF}