Source position: drivers.inc line 272
type TEvent = packed record |
What: Sw_Word; |
case Sw_Word of |
evNothing: ( |
); |
evMouse: ( |
Buttons: Byte; |
Double: Boolean; |
Where: TPoint; |
); |
evKeyDown: ( |
case Sw_Integer of |
0: ( |
KeyCode: Word; |
); |
1: ( |
CharCode: Char; |
ScanCode: Byte; |
UnicodeChar: WideChar; |
KeyShift: Byte; |
); |
); |
evMessage: ( |
Command: Sw_Word; |
Id: Sw_Word; |
Data: Real; |
case Sw_Word of |
0: ( |
InfoPtr: Pointer; |
); |
1: ( |
InfoLong: LongInt; |
); |
2: ( |
InfoWord: Word; |
); |
3: ( |
InfoInt: SmallInt; |
); |
4: ( |
InfoByte: Byte; |
); |
5: ( |
InfoChar: Char; |
); |
); |
end; |