Das wird nicht gehen. Du könntest ja z.B. sowas haben:
Code:
+C:
+--Musik
| +--Favoriten
+--Filme
+--Favoriten
Wenn du jetzt nur "Favoriten" als Text hast - woher soll man ableiten, ob das unter "Musik" oder "Filme" gemeint war?
Hmm... vielleicht habe ich mich auch nicht richtig ausgedrückt.
Ich habe es jetzt so gelöst auf einfache weise.
Ich bekomme den Pfad hier
Delphi-Quellcode:
CDN_FOLDERCHANGE:
begin
DirPath := PWideChar(OpenDialog.GetDlgPath(CDM_GETFOLDERPATH, WinHandle));
if assigned(cbComboPath) then
cbComboPath.IconPath := DirPath;
Result := 1;
Exit;
end;
Wenn ich jetzt in der Componente Combobox bin "cbComboPath"
Parse ich den Path "DirPath"
Hier wird der Pfad in seine Einzelteile zerlegt.
Dann hole ich mir das Icon von jeden Pfad.
Delphi-Quellcode:
procedure TSkinComboBox.FillList(Path: WideString);
var
FileInfo: SHFILEINFO;
IntI: Integer;
PathRecursive: TSplitStrArray;
s: string;
begin
SetLength(PathRecursive, 0);
PathRecursive := Split(Path, '\');
SetLength(IconHandle, High(PathRecursive));
for IntI := 0 to High(PathRecursive) do
begin
s := s + PathRecursive[IntI] + '\';
SHGetFileInfo(PWideChar(s), FILE_ATTRIBUTE_NORMAL, FileInfo, sizeof(FileInfo),
SHGFI_DISPLAYNAME Or SHGFI_SYSICONINDEX or SHGFI_SMALLICON or SHGFI_ICON);
IconHandle[IntI] := FileInfo.HIcon;
end;
end;
mir fehlen jedoch 2.
Desktop und Computer.
Dahingehend muss ich mir noch was überlegen da ich nun falsche Icons den jeweiligen Index in der Combobox zuweise.
Weil halt zwei fehlen.
gruss