ShellTreeView und Overlay-Bild

[Bummi]

mit ShellTreeviwe kann ich Dir nicht helfen, falls Du cxShellTreeView hast:

reiner prof of concept

Delphi-Quellcode:

procedure TForm1.TreeViewCustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode;
    State: TCustomDrawState; var DefaultDraw: Boolean);
    var r:TRect;
    var
      x:Integer;
begin
  r :=Node.DisplayRect(false);

  x := (Node.Level + 1) * 20;
  r.left := x;
  r.Right := r.Left + 16;
  r.Bottom := r.top + 16;
  sender.Canvas.StretchDraw(r, image1.Picture.Graphic);
  sender.Canvas.TextOut(r.Right,r.Top,node.Text);
  DefaultDraw := false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 cxShellTreeView1.InnerTreeView.OnCustomDrawItem := TreeViewCustomDrawItem
end;