So laden Sie ein transparentes Bild aus ImageList?

Ich soll zum laden eines Bildes (32-bit-Tiefe, transparente) aus einem TImageList zu einem TImage. Der standard-Ansatz wäre ImageList.GetBitmap(Index, Image.Picture.Bitmap);. Aber die GetBitmap Methode funktioniert nicht mit Transparenz, so bekomme ich immer eine nicht-transparente bitmap.

InformationsquelleAutor Martin Melka | 2012-07-22
  1. 30

    Die Abhilfe ist relativ einfach - in der ImageList bietet eine weitere Methode, GetIcon, die funktioniert OK mit der Transparenz. Code zum laden der ein transparentes Bild wäre:

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

    Und vergessen Sie nicht die richtige ImageList-Eigenschaften:

    ImageList.ColorDepth:=cd32bit;
ImageList.DrawingStyle:=dsTransparent;
    InformationsquelleAutor Martin Melka
  2. 2

    Hatte ich auch diverse Probleme mit übergabe von Bildern aus einer tImageList. Also ich habe ein einfaches wrapper-routine, die im Allgemeinen macht die Arbeit, und es erzwingt die Transparenz. Der code unten ist Delphi 2005 und imlActiveView ist die tImageList-Komponente, die hat mein set-Taste Glyphe Bilder.

    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;

    Hier ist ein Beispiel, wo der 5. imlActiveView Bild übergeben wird in der btnNavigate.Glyphe.

    LoadBitmap (5, btnNavigate.Glyph)
    InformationsquelleAutor Sharzade
Schreibe einen Kommentar