Из VirtualTreeview делаем ListView

procedure TForm1.VSTBeforeCellPaint(Sender: TBaseVirtualTree;
  TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
  CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
begin
  if (CellPaintMode = cpmPaint) and (Node = VST.HotNode) then
  begin
    TargetCanvas.Brush.Color := clHighlight;
    TargetCanvas.FillRect(CellRect);
  end;
end;

procedure TForm1.VSTGetImageIndexEx(Sender : TBaseVirtualTree;
  Node : PVirtualNode; Kind : TVTImageKind; Column : TColumnIndex;
  var Ghosted : Boolean; var ImageIndex : Integer;
  var ImageList : TCustomImageList);
var
  Num : Integer;
  Data : PDate;
begin
  ImageIndex := -1;
  Data := VST.GetNodeData(Node);
  Num := Data^.ID; // Именно это нам нужно
  // Num := Node^.Index;
  if Kind in [ikNormal , ikSelected] then // либо выбран, либо нет
    begin
      if Column = 0 then                    // если 1-й столбец
        begin
          ImageList := ImageList_icons;
          ImageIndex := Num;                    // 1-е изображение ImageList1'а
        end;
 
      if Column = 3 then                    // если 2-й столбец
        begin
          ImageList := ImageList_Link;
          ImageIndex := 0;                    // 2-е изображение ImageList1'а
        end;
    end;
  {Sender.NodeHeight[node] := 40; //Если изображение большое}
end;