Bonsoir à tous,
voila , j'utilises les TGifImage. L'auteur donne comme exemple le code ci-dessous
Code :
- procedure TForm1.Button2Click(Sender: TObject);
- var
- GIF: TGIFImage;
- Bitmap: TBitmap;
- begin
- Bitmap := TBitmap.Create;
- try
- Bitmap.Width := (Canvas.ClipRect.Right-Canvas.ClipRect.Left);
- Bitmap.Height := (Canvas.ClipRect.Bottom-Canvas.ClipRect.Top);
- Bitmap.PixelFormat := pf24bit;//en modifiant ici , l'image ne change pas trop
- Bitmap.Canvas.CopyRect(Bitmap.Canvas.ClipRect, Canvas,
- Canvas.ClipRect);
- GIF := TGIFImage.Create;
- try
- GIF.Assign(Bitmap);
- GIF.SaveToFile('C:\MonRep\gif\legif.gif');
- finally
- GIF.Free;
- end;
- finally
- Bitmap.Free;
- end;
|
au final , l'image est bien sauvegardée , mais pas avec les bonnes couleurs
Que dois-je modifier pour avoir un gif avec des couleurs identique à la copie d'ecran ?
Merci