Discussion :

[pilouface]

Voila ma ptite procedure bidon

procedure TForm1.Button1Click(Sender: TObject);
var
gif:Tgifimage;
begin
gif:=Tgifimage.Create;
gif.LoadFromFile('C:\Documents and Settings\Pilou\Mes documents\smiley\Grands_Smileys\3d-brosse-ses-dents.gif');
bloc.InsertPicture('',gif,rvvaBaseLine);
bloc.AnimationMode:=rvanionformat;
bloc.Format;
gif.Free;

Avec le gif.free , j´ai une exception.
sans le gif .free , ca marche nickel .
Le probème ne vient pas de la procedure insertpicture qui vient du composant Trichview

LE seul probème sans le gif.free c´est que chaque image rajoutée fait augmenter la mémoire utilisée par le programme . Comment éviter ca ?

bloc est un Trichviewedit

[bjl]

Bonjour,

Hypothèse : La procédure "bloc.InsertPicture('',gif,rvvaBaseLine);"
donne l'adresse de gif à l'objet "bloc" et celui ci continue à utiliser "gif" après destruction.