BUG in VT with Timagelist ?

[Gollum]

Hallo,

I always had this problem, but I found the solution in the Demo-Program of the VT.

Use the function below in the OnCreate-Event of your Form:

Delphi-Quellcode:

uses
  Controls, CommCtrl;

// To show smooth images we have to convert the image list from 16 colors to high color.
procedure ConvertToHighColor(ImageList: TImageList);
var IL:TImageList;
begin
  // Have to create a temporary copy of the given list, because the list is cleared on handle creation.
  IL:=TImageList.Create(nil);
  try
    IL.Assign(ImageList);
    with ImageList do
      Handle:=ImageList_Create(Width, Height, ILC_COLOR16 or ILC_MASK, Count, AllocBy);
    ImageList.Assign(IL);
  finally
    IL.Free();
  end; // try
end;