Ha jetzt in der Procedure GetImageIndexEx den ImageIndex eingetragen und das funktioniert und die icons werden angezeigt.
Delphi-Quellcode:
procedure TForm1.VSTGetImageIndexEx(Sender: TBaseVirtualTree; Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean; var ImageIndex: TImageIndex);
begin
ImageIndex := 1;
end;
Allerdings bekomme ich nach paar Sekunden folgende Fehlermeldung.
