fix(PageDownloadCompDetail): 给资源包也加上

This commit is contained in:
wyc-26
2025-06-04 21:06:48 +08:00
parent f2ae0fbaa9
commit da8a50abd3
@@ -75,7 +75,7 @@
Dim Results As List(Of CompFile) = CompFileLoader.Output
If PageType = CompType.Any Then
Results = Results.Where(Function(r) r.Type <> CompType.Plugin).ToList
ElseIf PageType = CompType.Shader Then
ElseIf PageType = CompType.Shader OrElse PageType = CompType.ResourcePack Then
Results = Results.ToList
Else
Results = Results.Where(Function(r) r.Type = PageType).ToList