Icons mit 24-Bit anzeigen lassen

[TheMiller]

Hallo,

ich habe das Problem, dass keine meiner ImageLists 24-Bit Icons unterstützt. Ich habe versucht, die ImageList von Delphi zu benutzen, aber diese zeigt einen weißen Schatten an, sobald etwas mit Schlagschatten auf dem Bild ist (weiße Umrisse). Dann habe ich noch eine andere Komponente, die zeigt aber nur ein schwarzes Rechteck an.

Somit bin ich nun auf der bisher erfolglosen Suche nach eine ImageList-Kompo bzw. einer Lösung. Hoffe jetzt, dass ihr weiter wisst.

Danke im Voraus

[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;

[Sko]

Ich benutze immer die PNGImageList von Thany.org, damit kann man PNG´s als Icons für Toolbars etc. verwenden und gute Icons gibts z. B. hier