Pobieram ikonkę otwartego folderu (indeks 4) z shell32.dll:
procedure TForm1.ToolButton3Click(Sender: TObject);
var
largeicon, smallicon: hicon;
icon: ticon;
begin
ExtractIconEx('Shell32.dll', 4, largeicon, smallIcon, 1);
icon := TIcon.Create;
icon.Handle := smallicon;
ImageListTmp.AddIcon(icon);
TreeView.Images := ImageListTmp;
icon.Free;
end;
Wszystko niby działa, ale ikonki wyglądają tak: . Okropna czarna obwoluta! Tak samo brzydko wygląda to w ToolBarze. Natomiast Picture już wygląda normalnie!:
Image2.Picture.Icon := icon;
Będę wdzięczny za pomoc.