hedgewars/SDLh.pas
branchhedgeroid
changeset 5550 50650032c251
parent 5544 f72a87bfa655
child 5577 272c82f82cee
--- a/hedgewars/SDLh.pas	Thu Aug 11 15:03:21 2011 +0200
+++ b/hedgewars/SDLh.pas	Mon Aug 15 21:45:27 2011 +0200
@@ -567,6 +567,19 @@
 {$ENDIF}
         end;
 
+    SDL_TouchID = Int32;
+    SDL_FingerID = Int32;
+
+    TSDL_TouchFingerEvent = record
+        type_: UInt32;
+        windowId: UInt32;
+        touchId: SDL_TouchID;
+        fingerId: SDL_FingerID;
+        state, padding1, padding2, padding3: UInt8;
+        x,y: UInt16;
+        dx,dy: Int16;
+        pressure: UInt16;
+    end;
 //TODO: implement SDL_TouchButtonEvent, SDL_MultiGestureEvent, SDL_DollarGestureEvent
 
     TSDL_QuitEvent = record
@@ -603,6 +616,9 @@
             SDL_JOYHATMOTION: (jhat: TSDL_JoyHatEvent);
             SDL_JOYBUTTONDOWN,
             SDL_JOYBUTTONUP: (jbutton: TSDL_JoyButtonEvent);
+            SDL_FINGERMOTION,
+            SDL_FINGERUP,
+            SDL_FINGERDOWN:(tfinger: TSDL_TouchFingerEvent);
             SDL_QUITEV: (quit: TSDL_QuitEvent);
             SDL_USEREVENT: (user: TSDL_UserEvent);
             //TODO: implement other events