Difference between revisions of "Input.device"
Jump to navigation
Jump to search
(Added page + cradle) |
(→The unit: Added) |
||
Line 49: | Line 49: | ||
== The unit == | == The unit == | ||
− | + | <source lang="pascal"> | |
+ | unit aros_device_input; | ||
− | + | {$MODE OBJFPC}{$H+} | |
+ | |||
+ | interface | ||
+ | |||
+ | Uses | ||
+ | Exec; | ||
+ | |||
+ | Const | ||
+ | IND_ADDHANDLER = (CMD_NONSTD + 0); | ||
+ | IND_REMHANDLER = (CMD_NONSTD + 1); | ||
+ | IND_WRITEEVENT = (CMD_NONSTD + 2); | ||
+ | IND_SETTHRESH = (CMD_NONSTD + 3); | ||
+ | IND_SETPERIOD = (CMD_NONSTD + 4); | ||
+ | IND_SETMPORT = (CMD_NONSTD + 5); | ||
+ | IND_SETMTYPE = (CMD_NONSTD + 6); | ||
+ | IND_SETMTRIG = (CMD_NONSTD + 7); | ||
+ | |||
+ | IND_ADDEVENT = (CMD_NONSTD + 15); //* V50! */ | ||
+ | |||
+ | Type | ||
+ | //* The following is AROS-specific, experimental and subject to change */ | ||
+ | TInputDevice = record | ||
+ | id_Device : TDevice; | ||
+ | id_Flags : ULONG; | ||
+ | end; | ||
+ | |||
+ | Const | ||
+ | IDF_SWAP_BUTTONS = $0001; | ||
+ | |||
+ | |||
+ | // qualifiers are located in unit inputevent (e.g. IEQUALIFIERB_LSHIFT) | ||
+ | |||
+ | |||
+ | Var | ||
+ | InputBase : pLibrary = nil; | ||
+ | |||
+ | |||
+ | Function PeekQualifier(): UWORD; syscall InputBase 7; | ||
+ | |||
+ | |||
+ | Implementation | ||
+ | |||
+ | end. | ||
</source> | </source> | ||
Revision as of 22:59, 21 March 2015
Short explanatory description not available.
Description
There's no description available.
Usage
There is no usage information available.
Examples
Example: ( insert example title )
There's no example available.
Example: ( insert example title )
There's no example available.
Example: ( insert example title )
There's no example available.
The unit
unit aros_device_input;
{$MODE OBJFPC}{$H+}
interface
Uses
Exec;
Const
IND_ADDHANDLER = (CMD_NONSTD + 0);
IND_REMHANDLER = (CMD_NONSTD + 1);
IND_WRITEEVENT = (CMD_NONSTD + 2);
IND_SETTHRESH = (CMD_NONSTD + 3);
IND_SETPERIOD = (CMD_NONSTD + 4);
IND_SETMPORT = (CMD_NONSTD + 5);
IND_SETMTYPE = (CMD_NONSTD + 6);
IND_SETMTRIG = (CMD_NONSTD + 7);
IND_ADDEVENT = (CMD_NONSTD + 15); //* V50! */
Type
//* The following is AROS-specific, experimental and subject to change */
TInputDevice = record
id_Device : TDevice;
id_Flags : ULONG;
end;
Const
IDF_SWAP_BUTTONS = $0001;
// qualifiers are located in unit inputevent (e.g. IEQUALIFIERB_LSHIFT)
Var
InputBase : pLibrary = nil;
Function PeekQualifier(): UWORD; syscall InputBase 7;
Implementation
end.
Unit documentation
Currently there's no Free Pascal specific documentation available for this unit. Please consult the original SDK.