hedgewars/uTypes.pas
changeset 9317 a04c30940d2d
parent 9178 c0902317c823
child 9377 48ab6dea8d2f
equal deleted inserted replaced
9315:15487f7fed42 9317:a04c30940d2d
   467         startTime : Longword;
   467         startTime : Longword;
   468         end;
   468         end;
   469 
   469 
   470     POnScreenWidget = ^TOnScreenWidget;
   470     POnScreenWidget = ^TOnScreenWidget;
   471     TOnScreenWidget = record
   471     TOnScreenWidget = record
   472         show          : boolean;                      // if false widget will not be drawn
   472         show          : boolean;            // if false widget will not be drawn
   473         sprite        : TSprite;                    // a convenience type
   473         sprite        : TSprite;            // a convenience type
   474         frame         : TSDL_Rect;                   // graphical coordinates
   474         frame         : TSDL_Rect;          // graphical coordinates
   475         active        : TSDL_Rect;                  // active touch region
   475         active        : TSDL_Rect;          // active touch region
   476         fadeAnimStart : Longword;            // time the fade started, 0 means don't fade
   476         fadeAnimStart : Longword;           // time the fade started
   477         moveAnim      : TWidgetMovement;          // the animation associated to the widget
   477                                             //     (0 means do not fade)
   478         end;
   478         moveAnim      : TWidgetMovement;    // animation associated to widget
   479 
   479         end;
   480 {$IFDEF SDL13}
   480 
   481     PTouch_Data = ^TTouch_Data;
   481     PTouch_Data = ^TTouch_Data;
   482     TTouch_Data = record
   482     TTouch_Data = record
   483         id                       : TSDL_FingerId;
   483         id                       : TSDL_FingerId;
   484         x,y                      : LongInt;
   484         x,y                      : LongInt;
   485         dx,dy                    : LongInt;
   485         dx,dy                    : LongInt;
   486         historicalX, historicalY : LongInt;
   486         historicalX, historicalY : LongInt;
   487         timeSinceDown            : Longword;
   487         timeSinceDown            : Longword;
   488         pressedWidget            : POnScreenWidget;
   488         pressedWidget            : POnScreenWidget;
   489         end;
   489         end;
   490 {$ENDIF}
       
   491 
   490 
   492 implementation
   491 implementation
   493 
   492 
   494 end.
   493 end.