VirtualImageList Image in VirtualTreeview Background zeichnen

[TurboMagic]

Hallo,

wie bekomme ich ein Bild aus einer TVirtualImageList in z. B. die rechte untere Ecke
des Backgrounds eines TVirtualTreeView?

Hier mein bisheriger Versuch im Event das beim Anklicken eines Knotens aufgerufen wird:
vst_Menu ist dabei das TVirtualTreeView

Delphi-Quellcode:

procedure Tf_Settings.vst_MenuFocusChanged(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex);
var
  bmp: TBitmap;
  ImageIndex : Integer;
  Dest:TRect;
begin
  ImageIndex := 0;

  bmp := TBitmap.Create;
  try
    VirtualImageListLeft.GetBitmap(ImageIndex, bmp);

    Dest := TRect.Create(0, 0, vst_Menu.Height-bmp.Height,
                         bmp.Width, bmp.Height);

    vst_Menu.Background.Bitmap.Canvas.CopyRect(
      Dest,
      bmp.Canvas,
      TRect.Create(0, 0, bmp.Width, bmp.Height));
  finally
    bmp.Free;
  end;
end;

Auf dem Bilschirm ist von diesem Hintergrund jedoch nix zu sehen...

[Uwe Raabe]

Warum verwendest du nicht einfach eines der Draw-Overloads der Imagelist?