Ajouter des images dans le composant ImageList en code [Résolu]

Signaler
Messages postés
8
Date d'inscription
vendredi 14 janvier 2005
Statut
Membre
Dernière intervention
6 juin 2005
-
Messages postés
8
Date d'inscription
vendredi 14 janvier 2005
Statut
Membre
Dernière intervention
6 juin 2005
-
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

4 réponses

Messages postés
8
Date d'inscription
vendredi 14 janvier 2005
Statut
Membre
Dernière intervention
6 juin 2005

Merci ca marche nickel



La liberation de l'objet (Bmp.free) est elle obligatoire dans cette procedure?



Merci


@lex
Messages postés
702
Date d'inscription
vendredi 21 mars 2003
Statut
Membre
Dernière intervention
1 octobre 2009
3
Obligatoire n'est peut
être pas le mot : il n'y aura pas de plantage, mais il est d'usage et
fortement recommandé de libérer les ressources temporaires comme ce
TBitmap, lorsqu'elles ne servent plus !



Ken@vo

____________________

Code, Code, Codec !
Messages postés
8
Date d'inscription
vendredi 14 janvier 2005
Statut
Membre
Dernière intervention
6 juin 2005

Ok c'est tres clair



Merci encore

@lex
Messages postés
702
Date d'inscription
vendredi 21 mars 2003
Statut
Membre
Dernière intervention
1 octobre 2009
3
Salut,

Il faut utiliser la mé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 !