Rev 6 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 6 | Rev 16 | ||
|---|---|---|---|
| Line 2332... | Line 2332... | ||
| 2332 | if Value <> FSpriteType then |
2332 | if Value <> FSpriteType then |
| 2333 | begin |
2333 | begin |
| 2334 | case Value of |
2334 | case Value of |
| 2335 | stSprite: tmpSprite := TSprite.Create(TSpriteEngine(FOwnerItem)); |
2335 | stSprite: tmpSprite := TSprite.Create(TSpriteEngine(FOwnerItem)); |
| 2336 | stImageSprite: TImageSprite(tmpSprite) := TImageSprite.Create(TSpriteEngine(FOwnerItem)); |
2336 | stImageSprite: TImageSprite(tmpSprite) := TImageSprite.Create(TSpriteEngine(FOwnerItem)); |
| 2337 | {$WARN SYMBOL_DEPRECATED OFF} // Added by ViaThinkSoft [2015-12-07] |
2337 | {$WARNINGS OFF} |
| 2338 | stImageSpriteEx: TImageSpriteEx(tmpSprite) := TImageSpriteEx.Create(TSpriteEngine(FOwnerItem)); |
2338 | stImageSpriteEx: TImageSpriteEx(tmpSprite) := TImageSpriteEx.Create(TSpriteEngine(FOwnerItem)); |
| 2339 | {$WARN SYMBOL_DEPRECATED ON} // Added by ViaThinkSoft [2015-12-07] |
2339 | {$WARNINGS ON} |
| 2340 | stBackgroundSprite: TBackgroundSprite(tmpSprite) := TBackgroundSprite.Create(TSpriteEngine(FOwnerItem)); |
2340 | stBackgroundSprite: TBackgroundSprite(tmpSprite) := TBackgroundSprite.Create(TSpriteEngine(FOwnerItem)); |
| 2341 | else |
2341 | else |
| 2342 | tmpSprite := nil |
2342 | tmpSprite := nil |
| 2343 | end; |
2343 | end; |
| 2344 | if Assigned(FSprite) then |
2344 | if Assigned(FSprite) then |