Ich greife das Thema nochmals auf.
Ich habe die funktion "GetImageIndexEx" dort habe ich z.B. folgendes:
Delphi-Quellcode:
procedure TMainFrm.VSTListeGetImageIndexEx(Sender: TBaseVirtualTree;
Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
var Ghosted: Boolean; var ImageIndex: Integer;
var ImageList: TCustomImageList);
var
Data: PTreeData;
begin
Data := VSTListe.GetNodeData(Node);
case Column of
7: begin
ImageList := Icons1;
if Data.fMyData1= '-1' then ImageIndex := 11
else ImageIndex := StrToInt(Data.fMyData1);
end;
8: begin
ImageList := Icons2;
if Data.fMyData2 = '-1' then ImageIndex := 23
else ImageIndex := StrToInt(Data.fMyData2);
end;
end;
end;
Da lädt er aber keine Bilder. Erst, wenn ich mit "VSTListe.Images := Icons1" eine ImageList zuweise. Und dann habe ich das Problem, dass immer die Maße von der im ObjectInspektor eingetragenen ImageList genommen werden.