TVirtualTreeView, falsches Image angezeigt

[hoika]

Hallo,

danke, das wars.

Fürs Protokol ...

Delphi-Quellcode:

procedure TForm1.LV_WorkSteps2GetImageIndex(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
  var Ghosted: Boolean; var ImageIndex: Integer);
begin
  if (Column=0) and
     (Kind=ikNormal) then
  begin
    ImageIndex:= 4;
  end;
end;

Heiko