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]