Hi,
Dank euch beiden.
Folgender Code klappt bei mir:
Delphi-Quellcode:
procedure TOTFListView.CreateWnd;
var SML, ML : PLongWord;
begin
inherited;
FFileImageList16 := TImageList.Create(self);
FFileImageList16.Height := 16;
FFileImageList16.Width := 16;
self.SmallImages := FFileImageList16;
FFileImageList32 := TImageList.Create(self);
FFileImageList32.Height := 32;
FFileImageList32.Width := 32;
self.LargeImages := FFileImageList32;
GetMem(ML, Sizeof(LongWord));
ML^ := 0;
GetMem(SML, Sizeof(LongWord));
SML^ := 0;
Shell_GetImageLists(ML, SML);
if SML^ > 0 then
FFileImageList16.Handle := SML^;
if ML^ > 0 then
FFileImageList32.Handle := ML^;
FreeMem(ML);
FreeMem(SML);
end;
In den Anhang habe ich auch noch einen Screenshot gelegt.
Jetzt stellt sich nur noch die Frage mit der Sackgasse.
Gruß oki