oops, fix the size of a few event structs i just added
authorkoda
Sat, 05 Nov 2011 04:58:22 +0100
changeset 6283 6ec7bf51e04f
parent 6282 de449b2d9607
child 6284 f571ba93d9db
oops, fix the size of a few event structs i just added
hedgewars/SDLh.pas
--- a/hedgewars/SDLh.pas	Sat Nov 05 03:05:37 2011 +0100
+++ b/hedgewars/SDLh.pas	Sat Nov 05 04:58:22 2011 +0100
@@ -436,13 +436,6 @@
         unicode: LongInt;
         end;
 
-    TSDL_MouseWheelEvent = record
-        type_: LongInt;
-        windowID: LongInt;
-        which: Byte;
-        x, y: LongInt;
-        end;
-
     TSDL_WindowEvent = record
         type_: LongInt;
         windowID: LongInt;
@@ -467,38 +460,38 @@
         end;
 
     TSDL_TouchFingerEvent = record
-        type_: LongInt;
-        windowId: LongInt;
-        touchId: LongWord;
-        fingerId: LongWord;
+        type_: Longword;
+        windowId: Longword;
+        touchId: Int64;
+        fingerId: Int64;
         state, padding1, padding2, padding3: Byte;
         x,y: Word;
-        dx,dy: ShortInt;
+        dx,dy: Smallint;
         pressure: Word;
         end;
 
     TSDL_TouchButtonEvent = record
-        type_: LongInt;
-        windowId: LongInt;
-        touchId: LongWord;
+        type_: Longword;
+        windowId: Longword;
+        touchId: Int64;
         state, button, padding1, padding2: Byte;
         end;
 
     TSDL_MultiGestureEvent = record
-        type_: LongInt;
-        windowId: LongInt;
-        touchId: LongWord;
-        dTheta,dDist,x,y: float;
-        numFingers, padding: ShortInt;
+        type_: Longword;
+        windowId: Longword;
+        touchId: Int64;
+        dTheta,dDist,x,y: Single;
+        numFingers, padding: Word;
         end;
 
     TSDL_DollarGestureEvent = record
-        type_: LongInt;
-        windowId: LongInt;
-        touchId: LongWord;
-        gesturedId: LongWord;
-        numFingers: LongInt;
-        error: float;
+        type_: Longword;
+        windowId: Longword;
+        touchId: Int64;
+        gesturedId: Int64;
+        numFingers: Longword;
+        error: Single;
         end;
 
     TSDL_SysWMEvent = record
@@ -569,6 +562,16 @@
 {$ENDIF}
         end;
 
+    TSDL_MouseWheelEvent = record
+        type_: LongInt;
+{$IFDEF SDL13}
+        windowID: LongInt;
+{$ELSE}
+        which: Byte;
+{$ENDIF}
+        x, y: LongInt;
+        end;
+
     TSDL_JoyAxisEvent = record
         type_: {$IFDEF SDL13}LongInt{$ELSE}Byte{$ENDIF};
         which: Byte;