hedgewars/SDLh.pas
changeset 6283 6ec7bf51e04f
parent 6282 de449b2d9607
child 6284 f571ba93d9db
equal deleted inserted replaced
6282:de449b2d9607 6283:6ec7bf51e04f
   434         sym: LongInt;
   434         sym: LongInt;
   435         modifier: Smallint;
   435         modifier: Smallint;
   436         unicode: LongInt;
   436         unicode: LongInt;
   437         end;
   437         end;
   438 
   438 
   439     TSDL_MouseWheelEvent = record
       
   440         type_: LongInt;
       
   441         windowID: LongInt;
       
   442         which: Byte;
       
   443         x, y: LongInt;
       
   444         end;
       
   445 
       
   446     TSDL_WindowEvent = record
   439     TSDL_WindowEvent = record
   447         type_: LongInt;
   440         type_: LongInt;
   448         windowID: LongInt;
   441         windowID: LongInt;
   449         event: byte;
   442         event: byte;
   450         padding1, padding2, padding3: byte;
   443         padding1, padding2, padding3: byte;
   465         windowID: LongInt;
   458         windowID: LongInt;
   466         text: array[0..31] of Byte;
   459         text: array[0..31] of Byte;
   467         end;
   460         end;
   468 
   461 
   469     TSDL_TouchFingerEvent = record
   462     TSDL_TouchFingerEvent = record
   470         type_: LongInt;
   463         type_: Longword;
   471         windowId: LongInt;
   464         windowId: Longword;
   472         touchId: LongWord;
   465         touchId: Int64;
   473         fingerId: LongWord;
   466         fingerId: Int64;
   474         state, padding1, padding2, padding3: Byte;
   467         state, padding1, padding2, padding3: Byte;
   475         x,y: Word;
   468         x,y: Word;
   476         dx,dy: ShortInt;
   469         dx,dy: Smallint;
   477         pressure: Word;
   470         pressure: Word;
   478         end;
   471         end;
   479 
   472 
   480     TSDL_TouchButtonEvent = record
   473     TSDL_TouchButtonEvent = record
   481         type_: LongInt;
   474         type_: Longword;
   482         windowId: LongInt;
   475         windowId: Longword;
   483         touchId: LongWord;
   476         touchId: Int64;
   484         state, button, padding1, padding2: Byte;
   477         state, button, padding1, padding2: Byte;
   485         end;
   478         end;
   486 
   479 
   487     TSDL_MultiGestureEvent = record
   480     TSDL_MultiGestureEvent = record
   488         type_: LongInt;
   481         type_: Longword;
   489         windowId: LongInt;
   482         windowId: Longword;
   490         touchId: LongWord;
   483         touchId: Int64;
   491         dTheta,dDist,x,y: float;
   484         dTheta,dDist,x,y: Single;
   492         numFingers, padding: ShortInt;
   485         numFingers, padding: Word;
   493         end;
   486         end;
   494 
   487 
   495     TSDL_DollarGestureEvent = record
   488     TSDL_DollarGestureEvent = record
   496         type_: LongInt;
   489         type_: Longword;
   497         windowId: LongInt;
   490         windowId: Longword;
   498         touchId: LongWord;
   491         touchId: Int64;
   499         gesturedId: LongWord;
   492         gesturedId: Int64;
   500         numFingers: LongInt;
   493         numFingers: Longword;
   501         error: float;
   494         error: Single;
   502         end;
   495         end;
   503 
   496 
   504     TSDL_SysWMEvent = record
   497     TSDL_SysWMEvent = record
   505         type_: LongInt;
   498         type_: LongInt;
   506         msg: pointer;
   499         msg: pointer;
   565         which,
   558         which,
   566         button,
   559         button,
   567         state: byte;
   560         state: byte;
   568         x, y: word;
   561         x, y: word;
   569 {$ENDIF}
   562 {$ENDIF}
       
   563         end;
       
   564 
       
   565     TSDL_MouseWheelEvent = record
       
   566         type_: LongInt;
       
   567 {$IFDEF SDL13}
       
   568         windowID: LongInt;
       
   569 {$ELSE}
       
   570         which: Byte;
       
   571 {$ENDIF}
       
   572         x, y: LongInt;
   570         end;
   573         end;
   571 
   574 
   572     TSDL_JoyAxisEvent = record
   575     TSDL_JoyAxisEvent = record
   573         type_: {$IFDEF SDL13}LongInt{$ELSE}Byte{$ENDIF};
   576         type_: {$IFDEF SDL13}LongInt{$ELSE}Byte{$ENDIF};
   574         which: Byte;
   577         which: Byte;