TreeView_CreateDragImage -> Farbe des Hintergunds falsch

[sieppl]

der Hintergrund der TImageList muss korrekt gesetzt werden, sonst müssen keine speziellen Eigenschaften gesetzt werden:

Delphi-Quellcode:

var
  ImageHandle: HImageList;
begin
  try
    if StartNode <> nil then
    begin
      ImageHandle := TreeView_CreateDragImage(Handle, StartNode.ItemId);
      if ImageHandle <> 0 then
      begin
        FIDragImageList.Handle := ImageHandle;
        FIDragImageList.BkColor := Self.Color; //Hintergrundfarbe des TreeViews setzen 
      end;
    end;
  except
  end;