Discussion :

[ALEX77]

Bonjour

Je voudrais alléger mon application et j'ai décidé d'enlever les bitmaps à la conception des TImageList sur mes fiches.

Je voudrais les charger à l'exécution comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonImageList.FileLoad(RTBitmap,'mon fichier.bmp',clFuschia);

C'est un bitmap avec des petites icônes 16x16 en millions de couleurs (24 ou32 bits).

Hélas, horreur ! Mes images à l'éxécution passent en 16 couleurs.

Quelqu'un a t-il une idée ? J'utilise Delphi 7 Entreprise XP SP2.

Merci pour vos conseils

[Cl@udius]

Salut

Effectivement c'est bizarre ! Essaye comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
var
  Bmp: TBitmap;
begin
  Bmp := TBitmap.Create;
  try
    Bmp.LoadFromFile(Filename);
    ImageList1.AddMasked(Bmp, clFuchsia);
  finally
    Bmp.Free;
  end;
end;

@+ Claudius

[ALEX77]

Merci Cl@udius

ça fonctionne mais il y a un petit hic : la dernière icône de mon bitmap n'apparait pas dans la TImageList. J'ai bien vérifié à l'exécution, sur les 3 icones de mon bitmap, seules les deux premières sont intégrées dans le TImageList.

en testant avec un autre bitmap de 4 x 3 images, seules les 4 premières apparaissent.

[Cl@udius]

Re,

Je viens d'effectuer un test avec un Bitmap contenant 3 icônes (16x16), donc mon bitmap à des dimensions de 16 (Hauteur) par 48 (Largeur), et cela fonctionne parfaitement.
Je retrouve mes 3 icônes dans le TImageList (de l'indice 0 à 2).



[edit]
Avec cette méthode ton bitmap doit avoir une hauteur fixe correspondant à la propriété Height du TImageList.
Autrement dit, tes icônes doivent être sur une seule 'ligne'.

@+

[ALEX77]

Sur un bitmap de hauteur 16 ça marche. Mais dès que le bitmap n'est plus une simple ligne il ne compte que la première.

Par exemple pour un bitmap contenant 3 icones par 3 donc (48 x 48 pixels) donc 9 icones, seule la première ligne (donc les 3 première icones du haut) seront intégrées.

[Cl@udius]

Donc 2 solutions, ou tu modifies tes bitmaps pour les mettre sur une seule 'ligne', ou bien tu gères toi-même ce que tu ajoutes via le AddMasked en découpant ton bitmap (via CopyRect par exemple).

@+ Claudius