Comment charger une Image transparente de ImageList?

Je veux charger une image (32 profondeur de bits, transparent) à partir d'un TImageList à un TImage. L'approche standard serait ImageList.GetBitmap(Index, Image.Picture.Bitmap);. Cependant, le GetBitmap méthode ne fonctionne pas avec la transparence, donc, je reçois toujours un non-bitmap transparent.

Comme RRUZ suggested il y a quelques temps...

OriginalL'auteur Martin Melka | 2012-07-22

  1. 27

    La solution est plutôt simple - ImageList offre une autre méthode, GetIcon, qui fonctionne bien avec de la transparence. Le Code pour charger une Image transparente serait:

    ImageList.GetIcon(Index, Image.Picture.Icon);

    Et n'oubliez pas de régler correctement les ImageList propriétés:

    ImageList.ColorDepth:=cd32bit;
ImageList.DrawingStyle:=dsTransparent;

    OriginalL'auteur Martin Melka

  2. 2

    Moi aussi, j'ai eu plusieurs problèmes avec le passage dans les images de l'un tImageList. J'ai donc un simple wrapper routine qui généralement fait le travail et il renforce la transparence. Le code ci-dessous est Delphi 2005 et imlActiveView est le tImageList composant qui a mon jeu de bouton glyphe images.

    procedure TfrmForm.LoadBitmap (Number : integer; bmp : tBitMap);
var
  ActiveBitmap : TBitMap;
begin
  ActiveBitmap := TBitMap.Create;
  try
    imlActiveView.GetBitmap (Number, ActiveBitmap);
    bmp.Transparent := true;
    bmp.Height      := ActiveBitmap.Height;
    bmp.Width       := ActiveBitmap.Width;
    bmp.Canvas.Draw (0, 0, ActiveBitmap);
  finally
    ActiveBitmap.Free;
  end
end;

    Voici un exemple d'utilisation où la 5ème imlActiveView image est transmise dans le btnNavigate.Glyphe.

    LoadBitmap (5, btnNavigate.Glyph)

    OriginalL'auteur Sharzade