Ajouter des images dans le composant ImageList en codeRésolu

Question

Bonjour,



Comment faire pour ajouter des images dans le composant ImageList au
demarrage de l'application, quelle fonction ?  (pas dans le mode
creation car j'ai beaucoup d'image a inserer et la taille de ma fenetre
serait trop importante)



@lex

cs_Kenavo · Answer

Salut,

Il faut utiliser la m&#233;thode Add du TImageList :



procedure TForm1.FormCreate(Sender: TObject);

var

  Bmp : TBitmap;

begin

  Bmp := TBitmap.Create;

  Bmp.LoadFromFile('Image1.bmp');

  ImageList1.add(Bmp,nil);

  Bmp.LoadFromFile(
Image2.bmp
');

  ImageList1.add(Bmp,nil);

  Bmp.LoadFromFile(
Image3.bmp
');

  ImageList1.add(Bmp,nil);

// Etc ...

  Bmp.free;

end;



Ken@vo

____________________

Code, Code, Codec !

altaiire · Answer

Merci ca marche nickel



La liberation de l'objet (Bmp.free) est elle obligatoire dans cette procedure?



Merci


@lex

cs_Kenavo · Answer

Obligatoire n'est peut
&#234;tre pas le mot : il n'y aura pas de plantage, mais il est d'usage et
fortement recommand&#233; de lib&#233;rer les ressources temporaires comme ce
TBitmap, lorsqu'elles ne servent plus !



Ken@vo

____________________

Code, Code, Codec !

altaiire · Answer

Ok c'est tres clair 



Merci encore

@lex

Ajouter des images dans le composant ImageList en code

4 réponses

Votre réponse

Discussions similaires