VST als Listview - Spalte nur mit Bild

[uligerhardt]

Ich hab sowas mal mit OnAfterCellPaint gemacht:

Delphi-Quellcode:

procedure TForm1.VTAfterCellPaint(
  Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode;
  Column: TColumnIndex; CellRect: TRect);
begin
  if Column = cImageColumn then
  begin
    if Node = VT.HotNode then
    begin
      TargetCanvas.Brush.Color := clBtnFace;
      TargetCanvas.Font.Color := clBtnText;
      DrawEdge(TargetCanvas.Handle, CellRect, BDR_RAISEDINNER, BF_RECT or BF_MIDDLE);
    end;
    ImageList.Draw(TargetCanvas, CellRect.Left + 2, CellRect.Top + 2, 0);
  end;
end;

HTH,
Uli