424 TDirtyTag = packed array of array of byte; |
424 TDirtyTag = packed array of array of byte; |
425 |
425 |
426 PWidgetMovement = ^TWidgetMovement; |
426 PWidgetMovement = ^TWidgetMovement; |
427 TWidgetMovement = record |
427 TWidgetMovement = record |
428 animate: Boolean; |
428 animate: Boolean; |
429 targetFromX, targetFromY: LongInt; |
429 source: TPoint; |
430 targetToX, targetToY: LongInt; |
430 target: TPoint; |
431 startTime: Longword; |
431 startTime: Longword; |
432 end; |
432 end; |
433 |
433 |
434 POnScreenWidget = ^TOnScreenWidget; |
434 POnScreenWidget = ^TOnScreenWidget; |
435 TOnScreenWidget = record |
435 TOnScreenWidget = record |
436 show: boolean; |
436 show: boolean; // if false widget will not be drawn |
437 sprite: TSprite; |
437 sprite: TSprite; // a convenience type |
438 x, y: LongInt; // graphical coordinates |
438 frame: TSDL_Rect; // graphical coordinates |
439 hOffset, width: LongInt; // horizontal active region |
439 active: TSDL_Rect; // active touch region |
440 vOffset, height: LongInt; // vertical active region |
440 fadeAnimStart: Longword; // time the fade started, 0 means don't fade |
441 fadeAnimStart: Longword; //time the fade started, 0 means don't fade |
441 moveAnim: TWidgetMovement; // the animation associated to the widget |
442 moveAnim: TWidgetMovement; |
|
443 end; |
442 end; |
444 |
443 |
445 {$IFDEF SDL13} |
444 {$IFDEF SDL13} |
446 PTouch_Data = ^TTouch_Data; |
445 PTouch_Data = ^TTouch_Data; |
447 TTouch_Data = record |
446 TTouch_Data = record |