Browse Source

FIX: TShellFolder.EnumObjects

Alexander Koblov 3 năm trước cách đây
mục cha
commit
556253d4b3
1 tập tin đã thay đổi với 1 bổ sung1 xóa
  1. 1 1
      src/platform/win/ushellfolder.pas

+ 1 - 1
src/platform/win/ushellfolder.pas

@@ -193,7 +193,7 @@ end;
 function TShellFolder.EnumObjects(hwndOwner: HWND; grfFlags: DWORD; out
 function TShellFolder.EnumObjects(hwndOwner: HWND; grfFlags: DWORD; out
   EnumIDList: IEnumIDList): HRESULT; stdcall;
   EnumIDList: IEnumIDList): HRESULT; stdcall;
 begin
 begin
-  Result:= EnumObjects(hwndOwner, grfFlags, EnumIDList);
+  Result:= FFolder.EnumObjects(hwndOwner, grfFlags, EnumIDList);
 end;
 end;
 
 
 function TShellFolder.BindToObject(pidl: PItemIDList; pbcReserved: Pointer;
 function TShellFolder.BindToObject(pidl: PItemIDList; pbcReserved: Pointer;