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?

[TurboMagic]

Hallo,

hab' ich probiert aber ohne Erfolg.

z. B. so:

FBGImageIndex ist der Index des zu zeichnenden Bildes.
OnPaintBackground wird aufgerufen und enthält folgende Codezeile, wobei es egal ist,
ob 25, 500 oder 0,0 als Koordinaten übergeben werden.

Delphi-Quellcode:

procedure Tf_Settings.vst_MenuPaintBackground(Sender: TBaseVirtualTree;
  TargetCanvas: TCanvas; R: TRect; var Handled: Boolean);
begin
  VirtualImageListLeft.Draw(TargetCanvas, 25, 500, FBGImageIndex, true);
end;

Irgendwer eine Idee?

[Uwe Raabe]

Vielleicht solltest du noch

Delphi-Quellcode:

Handled := True

setzen?

[himitsu]

[deleted]

[TurboMagic]

Hallo,

auch wenn immer noch nicht alles so funktioniert wie erhofft, führt Handled = true
immerhin mal dazu, dass was angezeigt wird.

Danke!

[TurboMagic]

Hallo,

so, jetzt stimmen Größe und Position.