VirtualTreeView, no image list was supplied

[norwegen60]

Hallo,

ich habe auf Delphi XE 10.2 und VirtualTreeView 6.6 upgedatet. Jetzt bekomme ich bei einem Projekt folgende Fehlermeldung

Zitat:

An Image Index was supplied for TTVImagekind.ikNormal but no image list was supplied

Der Fehler tritt nur auf wenn ich mit der Maus über einen Eintrag mit einem Image fahre. Die Images werden wie folgt zugewiesen:

Delphi-Quellcode:

procedure Tfo1ProjNr.vrdbtProjNrGetImageIndex(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
  var Ghosted: Boolean; var ImageIndex: TImageIndex);
var
  Data: PTreeData;
begin
  Data := Sender.GetNodeData(Node);

  { Rote LED vor Projekte, bei denen Meilensteinen überschritten sind }
  if Column=1 then
  begin
    if (Data^[4].asString = 'O') then
    begin
      if (Data^[6].asString='1') then   // sehr wichtig
        ImageIndex:=5    //ROT mit !
      else
        ImageIndex:=4;   //ROT
    end
    else if (Data^[4].asString = 'Y') then
    begin
      if (Data^[6].asString='1') then
        ImageIndex:=3    //GELB mit !
      else
        ImageIndex:=2;   //GELB
    end
    else if (Data^[3].asString = 'A') then
    begin
      if (Data^[6].asString='1') then
        ImageIndex:=1    //GRÜN mit !
      else
        ImageIndex:=0;   //GRÜN
    end
    else if (Data^[3].asString = 'T') then
    begin
      if (Data^[6].asString='1') then
        ImageIndex:=7    //blau mit !
      else
        ImageIndex:=6;   //blau
    end;
  end;
end;

Danke für eure Unterstützung