Animated Bitmaps

baileyrc · Post by **baileyrc** » Wed May 02, 2007 6:42 pm

I'm trying to add support for bitmap animations inside a TRichViewEdit component. I have four bitmap images I would like to cycle through to create the effect of a simple animation. How might I go about this -- is it possible to do. Note, this animation effect is not using animated gifs. Any ideas would be greatly appreciated.

baileyrc · Post by **baileyrc** » Wed May 02, 2007 11:35 pm

It turns out that the Demo6 has an example how to do this using InsertBullet(ImageMap) and then SetCurrentBulletInfo or SetBulletInfoEd in a TTimer. I should have looked before I posted...

Post by **Sergey Tkachenko** » Thu May 03, 2007 5:01 pm

Bitmap animation is supported.
Set the following integer properties (see SetItemExtraIntProperty):
rvepImageWidth,
rvepImageHeight,
rvepAnimationInterval.

Bitmap is sliced into frames (rvepImageWidth x rvepImageHeight) arranged in rows and columns. Animation is enabled if you set rvepAnimationInterval in positive value (animation delay in 1/100 of second)

Known problems: such bitmaps are still printed and exported stretched instead of exporting one frame.

baileyrc · Post by **baileyrc** » Fri May 04, 2007 6:40 pm

Sergey,

I tried your recommendation to use rvepAnimationInterval but it doesn't work. Here is my code:

Code: Select all

Graphics::TBitmap *bigBmp = new Graphics::TBitmap;
			 bigBmp->Canvas->CopyMode = cmSrcCopy;
			 bigBmp->SetSize(animBmp[0]->Width*2,animBmp[0]->Height*2);
			 bigBmp->Canvas->Draw(0,0,animBmp[0]);
			 bigBmp->Canvas->Draw(0,animBmp[0]->Width,animBmp[1]);
			 bigBmp->Canvas->Draw(animBmp[0]->Height,0,animBmp[2]);
			 bigBmp->Canvas->Draw(animBmp[0]->Height,animBmp[0]->Width,animBmp[3]);

			 RichViewEdit1->InsertPicture("", bigBmp, rvvaBaseline);
			 RichViewEdit1->SetCurrentItemExtraIntProperty(rvepImageWidth, animBmp[0]->Width, true);
			 RichViewEdit1->SetCurrentItemExtraIntProperty(rvepImageHeight, animBmp[0]->Height, true);
			 RichViewEdit1->SetCurrentItemExtraIntProperty(rvepAnimationInterval, 50, true);

What this produces is a static (non-animated) bitmap image the size of rvepImageWidth/Height with all four tiled bitmap images (so they have been shruken). The rvepAnimationInterval doesn't seem to work. What might I be doing wrong?

Post by **Sergey Tkachenko** » Fri May 04, 2007 7:14 pm

Did you set RichViewEdit1->AnimationMode = rvaniOnFormat ?

baileyrc · Post by **baileyrc** » Fri May 04, 2007 7:27 pm

I just set this as well but I get the same result

New code snippet with line added below:

Code: Select all

Graphics::TBitmap *bigBmp = new Graphics::TBitmap;
			 bigBmp->Canvas->CopyMode = cmSrcCopy;
			 bigBmp->SetSize(animBmp[0]->Width*2,animBmp[0]->Height*2);
			 bigBmp->Canvas->Draw(0,0,animBmp[0]);
			 bigBmp->Canvas->Draw(0,animBmp[0]->Width,animBmp[1]);
			 bigBmp->Canvas->Draw(animBmp[0]->Height,0,animBmp[2]);
			 bigBmp->Canvas->Draw(animBmp[0]->Height,animBmp[0]->Width,animBmp[3]);

			 RichViewEdit1->InsertPicture("", bigBmp, rvvaBaseline);
			 RichViewEdit1->SetCurrentItemExtraIntProperty(rvepImageWidth, animBmp[0]->Width, true);
			 RichViewEdit1->SetCurrentItemExtraIntProperty(rvepImageHeight, animBmp[0]->Height, true);
			 RichViewEdit1->SetCurrentItemExtraIntProperty(rvepAnimationInterval, 50, true);
			 RichViewEdit1->AnimationMode = rvaniOnFormat;

baileyrc · Post by **baileyrc** » Fri May 04, 2007 7:41 pm

Where in the documentation can I find information about bitmap animation? I don't see any of the rvaniOnFormat, AnimationMode, or rvepAnimationInterval you refer to.

Post by **Sergey Tkachenko** » Sat May 05, 2007 8:38 am

Oops, there is a bug preventing bitmap animation to work

If you are a registered user, I can give you instructions how to fix it. If not, and this functionality is critical for you, I can send updated trial to you.

All changes not included in the help file are listed in readme.txt, in the same folder as the help file.

Post by **Sergey Tkachenko** » Sun May 06, 2007 9:52 am

Fixed version is available for registered users.

baileyrc · Post by **baileyrc** » Mon May 07, 2007 1:18 pm

Sergey,

I am not a registered user yet -- I have a request in at my company to buy a 2/3 developer license and that should happen this week. Could you send me an updated trial with bitmap animation support to my email address? I would greatly appreciate it.

Thanks!

-Ryan

Post by **Sergey Tkachenko** » Tue May 08, 2007 6:05 pm

Ok, but which version of Delphi/C++Builder do you use?

baileyrc · Post by **baileyrc** » Tue May 08, 2007 6:24 pm

C++ BDS 2006

Post by **Sergey Tkachenko** » Wed May 09, 2007 6:41 pm

Sent.

BTW, this week I plan to change policy of free lifetime updates. Updates will be free only for those who order before this Saturday.
Just an information