equal
deleted
inserted
replaced
53 |
53 |
54 |
54 |
55 implementation |
55 implementation |
56 uses uVariables; |
56 uses uVariables; |
57 |
57 |
|
58 {$IFDEF USE_TOUCH_INTERFACE} |
|
59 const |
|
60 FADE_ANIM_TIME = 500; |
|
61 MOVE_ANIM_TIME = 500; |
|
62 {$ENDIF} |
|
63 |
58 var LastTint: LongWord = 0; |
64 var LastTint: LongWord = 0; |
59 |
65 |
60 procedure DrawSpriteFromRect(Sprite: TSprite; r: TSDL_Rect; X, Y, Height, Position: LongInt); |
66 procedure DrawSpriteFromRect(Sprite: TSprite; r: TSDL_Rect; X, Y, Height, Position: LongInt); |
61 begin |
67 begin |
62 r.y:= r.y + Height * Position; |
68 r.y:= r.y + Height * Position; |