Nein, mehrere Icons kannst du nur mit einem Hack da reinbasteln, am besten wohl in OnAfterCellPaint:
Delphi-Quellcode:
procedure TMainForm.MyVTAfterCellPaint(Sender: TBaseVirtualTree;
TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
CellRect: TRect);
begin
// Das 123. Icon aus ImageListMain in die linke obere Ecke der Zelle malen
ImageListMain.Draw(TargetCanvas, CellRect.Left, CellRect.Top, 123);
end;
Wobei du den Platz für die Images dann nicht mit dem normalen Text überlappen mußt, dafür kannst du Header.Columns[x].Spacing auf einen höheren Wert einstellen (ungetestet).