Bonsoir à toutes et à tous,
Je charge un Gif dans un TImage avec la procédure loadfromfile.
pour un effet (negatif), je crée un bmp temporaire et j'applique mon effet sur le résultat qui est ensuite assigné à mon Timage.
Ensuite j'aimerai retrouver mon gif d'origine avec l'effet mais forcément en transparent.
J'ai donc fait comme le précise Melander avec l'unité GifImage.
La sauvegarde est correcte mais sans transparence.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 Gif := TGifImage.Create; try bmp := Tbitmap.Create ; try bmp.Assign(imageaveceffet.picture); gif.Assign(bmp); finally bmp.Free; end; gif.SaveToFile('Monimage.GIF'); finally Gif.Free; end;
Est ce que j'ai loupé quelque chôse ?
Merci d'avance,
@+,
Cincap
Partager