423 TPreview = packed array[0..127, 0..31] of byte; |
423 TPreview = packed array[0..127, 0..31] of byte; |
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 source: TPoint; |
429 source : TPoint; |
430 target: TPoint; |
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; // if false widget will not be drawn |
436 show : boolean; // if false widget will not be drawn |
437 sprite: TSprite; // a convenience type |
437 sprite : TSprite; // a convenience type |
438 frame: TSDL_Rect; // graphical coordinates |
438 frame : TSDL_Rect; // graphical coordinates |
439 active: TSDL_Rect; // active touch region |
439 active : TSDL_Rect; // active touch region |
440 fadeAnimStart: Longword; // time the fade started, 0 means don't fade |
440 fadeAnimStart : Longword; // time the fade started, 0 means don't fade |
441 moveAnim: TWidgetMovement; // the animation associated to the widget |
441 moveAnim : TWidgetMovement; // the animation associated to the widget |
442 end; |
442 end; |
443 |
443 |
444 {$IFDEF SDL13} |
444 {$IFDEF SDL13} |
445 PTouch_Data = ^TTouch_Data; |
445 PTouch_Data = ^TTouch_Data; |
446 TTouch_Data = record |
446 TTouch_Data = record |
447 id : TSDL_FingerId; |
447 id : TSDL_FingerId; |
448 x,y : LongInt; |
448 x,y : LongInt; |
449 dx,dy : LongInt; |
449 dx,dy : LongInt; |
450 historicalX, historicalY : LongInt; |
450 historicalX, historicalY : LongInt; |
451 timeSinceDown : Longword; |
451 timeSinceDown : Longword; |
|
452 pressedWidget : POnScreenWidget; |
452 end; |
453 end; |
453 {$ENDIF} |
454 {$ENDIF} |
454 |
455 |
455 implementation |
456 implementation |
456 |
457 |