TGifImage

[aLeXanDer..]

Hallo

Ich habe folgendes Problem und zwar möchte ich ein Image

in meinem Programm abspielen.

Dazu hab ich erstmal ein Demoprogramm erstellt.

  demo = new TGIFImage();

  demo->LoadFromFile("sonne6.gif");

  Rect.Left = 0;

  Rect.Top = 0;

  Rect.Right = 50;

  Rect.Bottom = 50;


  i = 0;


  Timer1->Interval = 80;

  Timer1->Enabled = true;

void __fastcall TForm2::Timer1Timer(TObject *Sender)

{

  demo->Bitmap->Canvas->Brush->Color = clWhite;

  demo->Bitmap->Canvas->Rectangle(0,0,50,50);

  demo->Images->Frames[i]->Draw(Form2->Canvas,Rect,true,false);

  i++;


  if (i >= demo->Images->Count )

  {

	i = 0;

  }

Habe folgendes Problem,

wenn ich mein Gif "abspiele" dann bleiben die abgespielten Bilder stehen.

Also wenn ich ne aufgehende Sonne hab , geht sie nur einmal auf :S

Das erste Bild übermall dann nicht mehr das letzte.

also die Darstellung ist so sehr unsauber. bzw. nicht korrekt.

Hat jemand Ideen wie ich das TGifImage lösche?!

Oder Vorschläge wie ich noch vorgehen könnte?!

Mfg

Alex

[aLeXanDer..]

Hallo

Jetzt bin ich weggegangn von dem TGifImage

da ich eine Pascaldatei gefunden habe, die es ermöglicht,

das auch ein normales TImage, animierte Gifs darstellen kann.

Jedoch habe ich das Problem das ich in meinem bisherigen Programm,

Alles auf BMP gemünzt hatte,

sprich sowas wie

ImageListNeu->GetBitmap(ListView1->Items->Item[ListView1->Selected->Index]->ImageIndex,

                          DBImage1->Picture->Bitmap);

  DBImage1->Refresh();

oder

Graphics::TBitmap *bmp;

  bmp = new Graphics::TBitmap();


  bmp->Height = 32;

  bmp->Width = 32;


  TBlobStream *pBS;


	pBS = (TBlobStream*)QZustandstext->CreateBlobStream

	pBS->Seek(0, soFromBeginning);

	bmp->LoadFromStream(pBS);

	if (bmp->Height == 32  &&  bmp->Width == 32)

              ImageListZT->Add(bmp, NULL);

Aber da ich ja jetzt auch GIFs nutzen will

komm ich hier nicht mehr klar.

Wie muss ich das umstellen?!

Komm nicht drauf.