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