hedgewars/SDLh.pas
branchhedgeroid
changeset 5550 50650032c251
parent 5544 f72a87bfa655
child 5577 272c82f82cee
equal deleted inserted replaced
5548:73f2fec65257 5550:50650032c251
   565 {$IFDEF SDL13}
   565 {$IFDEF SDL13}
   566         padding1: Byte;
   566         padding1: Byte;
   567 {$ENDIF}
   567 {$ENDIF}
   568         end;
   568         end;
   569 
   569 
       
   570     SDL_TouchID = Int32;
       
   571     SDL_FingerID = Int32;
       
   572 
       
   573     TSDL_TouchFingerEvent = record
       
   574         type_: UInt32;
       
   575         windowId: UInt32;
       
   576         touchId: SDL_TouchID;
       
   577         fingerId: SDL_FingerID;
       
   578         state, padding1, padding2, padding3: UInt8;
       
   579         x,y: UInt16;
       
   580         dx,dy: Int16;
       
   581         pressure: UInt16;
       
   582     end;
   570 //TODO: implement SDL_TouchButtonEvent, SDL_MultiGestureEvent, SDL_DollarGestureEvent
   583 //TODO: implement SDL_TouchButtonEvent, SDL_MultiGestureEvent, SDL_DollarGestureEvent
   571 
   584 
   572     TSDL_QuitEvent = record
   585     TSDL_QuitEvent = record
   573         type_: {$IFDEF SDL13}LongInt{$ELSE}Byte{$ENDIF};
   586         type_: {$IFDEF SDL13}LongInt{$ELSE}Byte{$ENDIF};
   574         end;
   587         end;
   601             SDL_JOYAXISMOTION: (jaxis: TSDL_JoyAxisEvent);
   614             SDL_JOYAXISMOTION: (jaxis: TSDL_JoyAxisEvent);
   602             SDL_JOYBALLMOTION: (jball: TSDL_JoyBallEvent);
   615             SDL_JOYBALLMOTION: (jball: TSDL_JoyBallEvent);
   603             SDL_JOYHATMOTION: (jhat: TSDL_JoyHatEvent);
   616             SDL_JOYHATMOTION: (jhat: TSDL_JoyHatEvent);
   604             SDL_JOYBUTTONDOWN,
   617             SDL_JOYBUTTONDOWN,
   605             SDL_JOYBUTTONUP: (jbutton: TSDL_JoyButtonEvent);
   618             SDL_JOYBUTTONUP: (jbutton: TSDL_JoyButtonEvent);
       
   619             SDL_FINGERMOTION,
       
   620             SDL_FINGERUP,
       
   621             SDL_FINGERDOWN:(tfinger: TSDL_TouchFingerEvent);
   606             SDL_QUITEV: (quit: TSDL_QuitEvent);
   622             SDL_QUITEV: (quit: TSDL_QuitEvent);
   607             SDL_USEREVENT: (user: TSDL_UserEvent);
   623             SDL_USEREVENT: (user: TSDL_UserEvent);
   608             //TODO: implement other events
   624             //TODO: implement other events
   609 {$ELSE}
   625 {$ELSE}
   610         case Byte of
   626         case Byte of