1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| void __fastcall TForm1::OuvreClick(TObject *Sender)
{
//Bout de code exemple: 3 image 1 bouton 1 anime optimisée
TGIFImage *GIF = new TGIFImage();
if(OpenPictureDialog1->Execute())
{
GIF->LoadFromFile(OpenPictureDialog1->FileName);
GIF->OptimizeColorMap();
GIF->Optimize(TGIFOptimizeOptions() << ooCleanup, rmNone, dmNoDisposal, 0);
for(int i=0; i<GIF->Images->Count; i++)
{
Graphics::TBitmap *BMP = new Graphics::TBitmap;
BMP->Width = GIF->Width;
BMP->Height = GIF->Height;
//des essais non concluants avec les 3 lignes qui suivent
//BMP->Transparent=true;
//BMP->Canvas->Brush->Color = clBlack; // clBackground; //GIF->BackgroundColorIndex;
//BMP->Canvas->FloodFill(0,0,clBackground,fsBorder);
BMP->Canvas->Draw(GIF->Images->Frames[i]->Left, GIF->Images->Frames[i]->Top, GIF->Images->Frames[i]->Bitmap);
if(i==0)Image1->Canvas->Draw(0,0,BMP);
else if(i==1)Image2->Canvas->Draw(0,0,BMP);
else if(i==2)Image3->Canvas->Draw(0,0,BMP);
delete BMP;
}
}
} |
Partager