hedgewars/uTypes.pas
changeset 6688 b2084a00a4cf
parent 6685 ef706fccfb0a
child 6693 b6a69c0bc541
--- a/hedgewars/uTypes.pas	Wed Feb 15 20:59:00 2012 +0100
+++ b/hedgewars/uTypes.pas	Thu Feb 16 16:02:41 2012 +0100
@@ -423,10 +423,23 @@
     TPreview  = packed array[0..127, 0..31] of byte;
     TDirtyTag = packed array of array of byte;
 
-	TOnScreenWidget = record
-        x, y: LongInt;			 	// graphical coordinates
-        hOffset, width: LongInt;	// horizontal active region
-        vOffset, height: LongInt;	// vertical active region
+    PWidgetMovement = ^TWidgetMovement;
+    TWidgetMovement = record
+        animate: Boolean;
+        targetFromX, targetFromY: LongInt;
+        targetToX, targetToY: LongInt;
+        startTime: Longword;
+        end;
+
+    POnScreenWidget = ^TOnScreenWidget;
+    TOnScreenWidget = record
+        show: boolean;
+        sprite: TSprite;
+        x, y: LongInt;	                // graphical coordinates
+        hOffset, width: LongInt;        // horizontal active region
+        vOffset, height: LongInt;       // vertical active region
+        fadeAnimStart: Longword;        //time the fade started, 0 means don't fade
+        moveAnim: TWidgetMovement;
         end;
 
 implementation