Icons mit 24-Bit anzeigen lassen

[Daniel]

Das Problem hatte ich kürzlich auch und mir da etwas zusammenkopiert. Im Kern geht es ja darum, dass auch die Imageliste nur etwas ist, das letztlich vom System bereitgestellt wird. Man muss nur sagen, was man haben will.

Es wird also eine neue Imagelist erzeugt und dabei darauf geachtet, dass diese eine entsprechende Farbtiefe verkraftet. Dann werden die Bilder aus der alten Imageliste in die neue kopiert und fertig. Was mir jetzt gerade einfällt: Man sollte noch prüfen, in welche Abhängigkeiten man sich hier begibt - sprich: Ob das ganze dann auch noch unter alten Windows-Versionen läuft. Die Antwort sollte das MSDN unter dem Stichwort "ILC_COLOR32" liefern - nur nachgucken musst Du selbst.

Delphi-Quellcode:

procedure ConvertTo32BitImageList(const ImageList: TImageList);
const Mask : array[Boolean] of Longint = (0, ILC_MASK);
var TempList : TImageList;
begin
  if assigned(ImageList) then
  begin
    TempList:= TImageList.Create( NIL );
    TRY
      TempList.Assign(ImageList);
      with ImageList do
      begin
        Handle:= ImageList_Create(Width, Height, ILC_COLOR32 or Mask[Masked], 0, AllocBy);

        if not HandleAllocated then
          raise EInvalidOperation.Create(SInvalidImageList);
      end;

      Imagelist.AddImages(TempList);
    FINALLY
      FreeAndNil(TempList);
    END;
  end;
end;