I am not able to find a Forum that seems to cover TurboSprite. Perhaps I can be shunted in the right direction.
I am evaluating turbosprite current version and have an unusual problem.
I have produced a new sprite based on Tpolygonsprite.
The only addition is three field variables.
In the new factory all have done is override the Createsprite and returned
my new sprite.
The new sprite is created and I tested the type with (x is TDSPolygonSprite) and it
confirms true!
I can set the new field variables and read them back.
All is well until I put the sprite into the Sprite engine!
It loses its type when I attempt to typecast it back and seems to have reverted to the original Tpolygonsprite.
I then cannot access the new fields.
Also the sprites no longer render. I would have expected that the original
render would have worked by inheritance.
Any advice would be appreciated
I have not shown the trivial property routines below.
type
TDSPolygonSprite=class(TPolygonSprite)
private
FNo: integer;
FWP:Byte;
FDir:Byte;
procedure SetNo(const value: integer);
procedure SetWP(const value: byte);
procedure SetDir(const value: byte);
public
property No: integer read FNo write SetNo;
property WP: byte read FWP write SetWP;
property Dir: byte read FDir write SetDir;
end;
{*********}
TDSPFactory=class(TPolygonSpriteFactory)
private
public
function CreateSprite: TSprite;override;
end;
{***********}
function TDSPFactory.CreateSprite:TSprite;
Begin
inherited CreateSprite;
result:=TDSPolygonSprite.Create;
end;
function TDSPFactory.CreateSprite:TSprite;
begin
inherited CreateSprite;
result:=TDSPolygonSprite.Create;
end;
TurboSprite for Delphi, software problem