VirtualStringTree: Problem mit ImageIndex

[djmasi]

Also bei mir geht es...

Sag mal, hast du ne "normale" TImageList genommen?
Ich hab nämlich TJvImageList von JEDI.

Zweitens, hast du ne TreeView- oder Grid-Darstellung?
Ich hatte das Prob bei der TreeView-Darstellung

Kannst ja mal das Projekt posten.

Hier mal mein Code:

Delphi-Quellcode:

procedure TFMain.VSTLibraryGetImageIndex(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
  var Ghosted: Boolean; var ImageIndex: Integer);
var
  QueryRec: PQueryRec;
begin
  if Column = 12 then
  begin
    QueryRec := Sender.GetNodeData(Node);
    ImageIndex := -1;
    case QueryRec.ABitRate of
      0..47:    ImageIndex := 0;  // >48
      48..52:   ImageIndex := 1;  //  48
      53..60:   ImageIndex := 2;  //  56
      61..70:   ImageIndex := 3;  //  64
      71..100:  ImageIndex := 4;  //  96
      101..116: ImageIndex := 5;  //  112
      117..140: ImageIndex := 6;  //  128
      141..180: ImageIndex := 7;  //  160
      181..216: ImageIndex := 8;  //  192
      217..240: ImageIndex := 9;  //  224
      241..280: ImageIndex := 10; //  256
      281..320: ImageIndex := 11; //  320
    else
      ImageIndex := 12;
    end;
  end;
end;

[edit]
Verdammt zu spät
[/edit]