hedgewars/uTypes.pas
changeset 6693 b6a69c0bc541
parent 6688 b2084a00a4cf
child 6694 48317632b3a9
equal deleted inserted replaced
6692:029c27660dd2 6693:b6a69c0bc541
   440         vOffset, height: LongInt;       // vertical active region
   440         vOffset, height: LongInt;       // vertical active region
   441         fadeAnimStart: Longword;        //time the fade started, 0 means don't fade
   441         fadeAnimStart: Longword;        //time the fade started, 0 means don't fade
   442         moveAnim: TWidgetMovement;
   442         moveAnim: TWidgetMovement;
   443         end;
   443         end;
   444 
   444 
       
   445     PTouch_Data = ^TTouch_Data;
       
   446     TTouch_Data = record
       
   447         id                       : TSDL_FingerId;
       
   448         x,y                      : LongInt;
       
   449         dx,dy                    : LongInt;
       
   450         historicalX, historicalY : LongInt;
       
   451         timeSinceDown            : Longword;
       
   452         end;
       
   453 
   445 implementation
   454 implementation
   446 
   455 
   447 end.
   456 end.