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

zusammenfalten · markieren

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...

VirtualImageList Image in VirtualTreeview Background zeichnen

VirtualImageList Image in VirtualTreeview Background zeichnen

Forumregeln