@007
Thank you, I found one bug in TBGRASpriteAnimation.AnimStatic
procedure TBGRASpriteAnimation.SetFAnimStatic(const AValue: boolean);
begin
if FAnimStatic = AValue then
Exit;
FAnimStatic := AValue;
if csDesigning in ComponentState then
Exit;
FAnimTimer.Enabled := AValue; // --> Not AValue Why If set to True then animation is stop ? :)
end;
and my suggestion
function TBGRASpriteAnimation.AnimatedGifToSprite(Filename: string): TBGRABitmap;
....
TempBitmap.BlendImage(TempGif.Width * n, 0, TempGif.MemBitmap, boLinearBlend);
end;
FSpriteCount := TempGif.Count;// --> I added this line. TempGif.Count know better then me FSpriteCount
TempGif.Free;
And Timer is work, and "AnimPosition" increase, but no bitmap showing? maybe "PositionChanged" notifyevent need give via param, positioned bitmap? or global property so I can get it and assign somewhere.
I need this avi in form, it will not change, just if form is show and meybe I will animate, so "bgra.AnimatedGifToSprite('~/Video/tes.gif');" not good solution for me. I want to store this gif in form. I wanna add my gif from OI "Sprite" property. When I open here on design time, load gif file, o can preview it in property editor, but when click ok then I get this error
"Cannot assign a TBGRAAnimatedGif to a TBitmap."
@circular
TImage is lazarus class, I'm not modified, Not looked in but my idea is property editor is override, so TImage.Picture popup that error. For TBGRAVirtualScreen suggestion, need looking for some demo and help, I didn't use before. Small code example sometime much more useful then one page help write. I'm still looking for
Thank you