hedgewars/SDLh.pas
branch0.9.24
changeset 13545 8b89bdb3c3dd
parent 12846 e5c461729fe3
child 13547 214dde864805
equal deleted inserted replaced
13544:b69732d0cce5 13545:8b89bdb3c3dd
   551     PSDL_GLContext= Pointer;
   551     PSDL_GLContext= Pointer;
   552     TSDL_TouchId  = Int64;
   552     TSDL_TouchId  = Int64;
   553     TSDL_FingerId = Int64;
   553     TSDL_FingerId = Int64;
   554     TSDL_Keycode = LongInt;
   554     TSDL_Keycode = LongInt;
   555     TSDL_Scancode = LongInt;
   555     TSDL_Scancode = LongInt;
       
   556     TSDL_JoystickID = LongInt;
   556 
   557 
   557     TSDL_eventaction = (SDL_ADDEVENT, SDL_PEEPEVENT, SDL_GETEVENT);
   558     TSDL_eventaction = (SDL_ADDEVENT, SDL_PEEPEVENT, SDL_GETEVENT);
   558 
   559 
   559     PSDL_Rect = ^TSDL_Rect;
   560     PSDL_Rect = ^TSDL_Rect;
   560     TSDL_Rect = record
   561     TSDL_Rect = record
   763         end;
   764         end;
   764 
   765 
   765     TSDL_ControllerAxisEvent = record
   766     TSDL_ControllerAxisEvent = record
   766         type_: LongWord;
   767         type_: LongWord;
   767         timestamp: LongWord;
   768         timestamp: LongWord;
   768         which: LongInt;
   769         which: TSDL_JoystickID;
   769         axis, padding1, padding2, padding3: Byte;
   770         axis, padding1, padding2, padding3: Byte;
   770         value: SmallInt;
   771         value: SmallInt;
   771         padding4: Word;
   772         padding4: Word;
   772         end;
   773         end;
   773 
   774 
   774     TSDL_ControllerButtonEvent = record
   775     TSDL_ControllerButtonEvent = record
   775         type_: LongWord;
   776         type_: LongWord;
   776         timestamp: LongWord;
   777         timestamp: LongWord;
       
   778         which: TSDL_JoystickID;
       
   779         button, states, padding1, padding2: Byte;
       
   780         end;
       
   781 
       
   782     TSDL_ControllerDeviceEvent = record
       
   783         type_: LongWord;
       
   784         timestamp: LongWord;
   777         which: LongInt;
   785         which: LongInt;
   778         button, states, padding1, padding2: Byte;
       
   779         end;
       
   780 
       
   781     TSDL_ControllerDeviceEvent = record
       
   782         type_: LongWord;
       
   783         timestamp: LongWord;
       
   784         which: SmallInt;
       
   785         end;
   786         end;
   786 
   787 
   787     TSDL_JoyDeviceEvent = TSDL_ControllerDeviceEvent;
   788     TSDL_JoyDeviceEvent = TSDL_ControllerDeviceEvent;
   788 
   789 
   789     TSDL_CommonEvent = record
   790     TSDL_CommonEvent = record
   827         end;
   828         end;
   828 
   829 
   829     TSDL_JoyAxisEvent = record
   830     TSDL_JoyAxisEvent = record
   830         type_: LongWord;
   831         type_: LongWord;
   831         timestamp: LongWord;
   832         timestamp: LongWord;
   832         which: LongWord;
   833         which: TSDL_JoystickID;
   833         axis: Byte;
   834         axis: Byte;
   834         padding1, padding2, padding3: Byte;
   835         padding1, padding2, padding3: Byte;
   835         value: LongInt;
   836         value: SmallInt;
   836         padding4: Word;
   837         padding4: Word;
   837         end;
   838         end;
   838 
   839 
   839     TSDL_JoyBallEvent = record
   840     TSDL_JoyBallEvent = record
   840         type_: LongWord;
   841         type_: LongWord;
   841         timestamp: LongWord;
   842         timestamp: LongWord;
   842         which: LongWord;
   843         which: TSDL_JoystickID;
   843         ball: Byte;
   844         ball: Byte;
   844         padding1, padding2, padding3: Byte;
   845         padding1, padding2, padding3: Byte;
   845         xrel, yrel: SmallInt;
   846         xrel, yrel: SmallInt;
   846         end;
   847         end;
   847 
   848 
   848     TSDL_JoyHatEvent = record
   849     TSDL_JoyHatEvent = record
   849         type_: LongWord;
   850         type_: LongWord;
   850         timestamp: LongWord;
   851         timestamp: LongWord;
   851         which: LongWord;
   852         which: TSDL_JoystickID;
   852         hat: Byte;
   853         hat: Byte;
   853         value: Byte;
   854         value: Byte;
   854         padding1, padding2: Byte;
   855         padding1, padding2: Byte;
   855         end;
   856         end;
   856 
   857 
   857     TSDL_JoyButtonEvent = record
   858     TSDL_JoyButtonEvent = record
   858         type_: LongWord;
   859         type_: LongWord;
   859         timestamp: LongWord;
   860         timestamp: LongWord;
   860         which: Byte;
   861         which: TSDL_JoystickID;
   861         button: Byte;
   862         button: Byte;
   862         state: Byte;
   863         state: Byte;
   863         padding1: Byte;
   864         padding1: Byte;
       
   865         padding2: Byte;
   864         end;
   866         end;
   865 
   867 
   866     TSDL_QuitEvent = record
   868     TSDL_QuitEvent = record
   867         type_: LongWord;
   869         type_: LongWord;
   868         timestamp: LongWord;
   870         timestamp: LongWord;