初步实现分类展示
This commit is contained in:
tangge233
@@ -8,8 +8,7 @@
|
||||
<Grid x:Name="PanAllBack">
|
||||
<local:MyScrollViewer VerticalScrollBarVisibility="Auto" HorizontalScrollBarVisibility="Disabled" x:Name="PanBack">
|
||||
<StackPanel x:Name="PanMain" Margin="25,10,25,10" Grid.IsSharedSizeScope="True"> <!-- 若显示多选模块则为 92 -->
|
||||
<local:MySearchBox Margin="0,15" HintText="搜索 Mod 名称 / 描述 / 标签" x:Name="SearchBox" />
|
||||
<local:MyCard Grid.Row="0" Margin="0,0,0,15" x:Name="PanManage">
|
||||
<local:MyCard Grid.Row="0" Margin="0,15" x:Name="PanManage">
|
||||
<Grid Margin="15,15,0,15" Height="35">
|
||||
<Grid.ColumnDefinitions>
|
||||
<ColumnDefinition Width="Auto" SharedSizeGroup="Button" />
|
||||
@@ -23,8 +22,18 @@
|
||||
<local:MyButton x:Name="BtnManageCheck" Grid.Column="3" MinWidth="140" Text="检查 Mod" Padding="13,0" Margin="0,0,20,0" HorizontalAlignment="Left" ToolTip="快速检查 Mod 的版本要求、重复、前置缺失等问题。
结果仅供参考，由于部分 Mod 标注的信息有误，可能并不准确。" Visibility="Collapsed" />
|
||||
</Grid>
|
||||
</local:MyCard>
|
||||
<local:MyCard x:Name="PanListBack" VerticalAlignment="Top" Opacity="0" Margin="0,0,0,15" Title=" " MinHeight="40">
|
||||
<StackPanel Margin="20,38,18,18" Name="PanList" VerticalAlignment="Top" />
|
||||
<local:MySearchBox Margin="0,0,0,15" HintText="搜索 Mod 名称 / 描述 / 标签" x:Name="SearchBox" />
|
||||
<local:MyCard x:Name="PanUpdateListBack" VerticalAlignment="Top" Opacity="0" Margin="0,0,0,15" Title=" " MinHeight="40" CanSwap="True">
|
||||
<StackPanel Margin="20,38,18,18" Name="PanUpdateList" VerticalAlignment="Top" />
|
||||
</local:MyCard>
|
||||
<local:MyCard x:Name="PanDefaultListBack" VerticalAlignment="Top" Opacity="0" Margin="0,0,0,15" Title=" " MinHeight="40" CanSwap="True">
|
||||
<StackPanel Margin="20,38,18,18" Name="PanDefaultList" VerticalAlignment="Top" />
|
||||
</local:MyCard>
|
||||
<local:MyCard x:Name="PanDisabledListBack" VerticalAlignment="Top" Opacity="0" Margin="0,0,0,15" Title=" " MinHeight="40" CanSwap="True">
|
||||
<StackPanel Margin="20,38,18,18" Name="PanDisabledList" VerticalAlignment="Top" />
|
||||
</local:MyCard>
|
||||
<local:MyCard x:Name="PanUnavaliableListBack" VerticalAlignment="Top" Opacity="0" Margin="0,0,0,15" Title=" " MinHeight="40" CanSwap="True">
|
||||
<StackPanel Margin="20,38,18,18" Name="PanUnavaliableList" VerticalAlignment="Top" />
|
||||
</local:MyCard>
|
||||
</StackPanel>
|
||||
</local:MyScrollViewer>
|
||||
|
||||
@@ -125,9 +125,20 @@
|
||||
''' 刷新结果显示。
|
||||
''' </summary>
|
||||
Private Sub RefreshResult(Mods As List(Of McMod))
|
||||
PanList.Children.Clear()
|
||||
PanDefaultList.Children.Clear()
|
||||
PanDisabledList.Children.Clear()
|
||||
PanUpdateList.Children.Clear()
|
||||
PanUnavaliableList.Children.Clear()
|
||||
For Each TargetMod In Mods
|
||||
PanList.Children.Add(ModItems(TargetMod.RawFileName))
|
||||
If TargetMod.CanUpdate Then
|
||||
PanUpdateList.Children.Add(ModItems(TargetMod.RawFileName))
|
||||
ElseIf TargetMod.State.Equals(McMod.McModState.Fine) Then
|
||||
PanDefaultList.Children.Add(ModItems(TargetMod.RawFileName))
|
||||
ElseIf TargetMod.State.Equals(McMod.McModState.Disabled) Then
|
||||
PanDisabledList.Children.Add(ModItems(TargetMod.RawFileName))
|
||||
Else
|
||||
PanUnavaliableList.Children.Add(ModItems(TargetMod.RawFileName))
|
||||
End If
|
||||
Next
|
||||
RefreshTitle()
|
||||
End Sub
|
||||
@@ -135,23 +146,23 @@
|
||||
''' 刷新卡片标题。
|
||||
''' </summary>
|
||||
Private Sub RefreshTitle()
|
||||
Dim Mods = PanList.Children.Cast(Of MyLocalModItem).Select(Function(i) i.Entry).ToList
|
||||
Dim Counter = {0, 0, 0}
|
||||
For Each ModEntity As McMod In Mods
|
||||
Counter(ModEntity.State) += 1
|
||||
Next
|
||||
Dim TypeList As New List(Of String)
|
||||
If Counter(McMod.McModState.Disabled) > 0 Then TypeList.Add("禁用 " & Counter(McMod.McModState.Disabled))
|
||||
If Counter(McMod.McModState.Unavaliable) > 0 Then TypeList.Add("错误 " & Counter(McMod.McModState.Unavaliable))
|
||||
If Counter(McMod.McModState.Fine) > 0 Then TypeList.Insert(0, If(TypeList.Any, "启用 ", "") & Counter(McMod.McModState.Fine))
|
||||
RefreshTargetTitle(PanDefaultListBack, PanDefaultList, "启用 Mod")
|
||||
RefreshTargetTitle(PanUpdateListBack, PanUpdateList, "可更新 Mod")
|
||||
RefreshTargetTitle(PanDisabledListBack, PanDisabledList, "禁用 Mod")
|
||||
RefreshTargetTitle(PanUnavaliableListBack, PanUnavaliableList, "暂不可用 Mod")
|
||||
End Sub
|
||||
|
||||
Private Sub RefreshTargetTitle(Card As MyCard, List As StackPanel, Name As String)
|
||||
Dim Mods = List.Children.Cast(Of MyLocalModItem).Select(Function(i) i.Entry).ToList
|
||||
If Not IsSearching Then
|
||||
PanListBack.Title = "Mod 列表 (" & Join(TypeList, "，") & ")"
|
||||
ElseIf TypeList.Any() Then
|
||||
PanListBack.Title = "搜索结果 (" & Join(TypeList, "，") & ")"
|
||||
Card.Title = Name & " 列表 (" & Mods.Count & ")"
|
||||
ElseIf Mods.Any() Then
|
||||
Card.Title = Name & " 列表搜索结果 (" & Mods.Count & ")"
|
||||
Else
|
||||
PanListBack.Title = "无搜索结果"
|
||||
Card.Title = Name & " 列表无搜索结果"
|
||||
End If
|
||||
PanList.Visibility = If(Mods.Any(), Visibility.Visible, Visibility.Collapsed)
|
||||
List.Visibility = If(Mods.Any(), Visibility.Visible, Visibility.Collapsed)
|
||||
Card.CanSwap = If(Mods.Any(), True, False)
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
@@ -192,7 +203,7 @@
|
||||
''' 全选。
|
||||
''' </summary>
|
||||
Private Sub BtnManageSelectAll_Click(sender As Object, e As MouseButtonEventArgs) Handles BtnManageSelectAll.Click
|
||||
If SelectedMods.Count < PanList.Children.Count Then
|
||||
If SelectedMods.Count < PanDefaultList.Children.Count + PanUnavaliableList.Children.Count + PanUpdateList.Children.Count + PanDisabledList.Children.Count Then
|
||||
ChangeAllSelected(True)
|
||||
Else
|
||||
ChangeAllSelected(False)
|
||||
@@ -301,14 +312,22 @@
|
||||
Private Sub ChangeAllSelected(Value As Boolean)
|
||||
AniControlEnabled += 1
|
||||
SelectedMods.Clear()
|
||||
For Each Item As MyLocalModItem In PanList.Children
|
||||
Item.Checked = Value
|
||||
If Value Then SelectedMods.Add(Item.Entry.RawFileName)
|
||||
Next
|
||||
ChangeTargetListSeleted(PanUpdateList, Value)
|
||||
ChangeTargetListSeleted(PanDisabledList, Value)
|
||||
ChangeTargetListSeleted(PanUnavaliableList, Value)
|
||||
ChangeTargetListSeleted(PanDefaultList, Value)
|
||||
AniControlEnabled -= 1
|
||||
'更新下边栏 UI
|
||||
RefreshBottomBar()
|
||||
End Sub
|
||||
|
||||
Private Sub ChangeTargetListSeleted(List As StackPanel, Value As Boolean)
|
||||
For Each Item As MyLocalModItem In List.Children
|
||||
Item.Checked = Value
|
||||
If Value Then SelectedMods.Add(Item.Entry.RawFileName)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub UnselectedAllWithAnimation() Handles Load.StateChanged, Me.PageExit
|
||||
Dim CacheAniControlEnabled = AniControlEnabled
|
||||
AniControlEnabled = 0
|
||||
@@ -377,10 +396,27 @@
|
||||
'更改 UI 中的列表
|
||||
Dim NewItem As MyLocalModItem = McModListItem(NewModEntity)
|
||||
ModItems(ModEntity.RawFileName) = NewItem
|
||||
Dim IndexOfUi As Integer = PanList.Children.IndexOf(PanList.Children.OfType(Of MyLocalModItem).FirstOrDefault(Function(i) i.Entry Is ModEntity))
|
||||
If ModEntity.CanUpdate Then
|
||||
Dim IndexOfUi As Integer = PanUpdateList.Children.IndexOf(PanUpdateList.Children.OfType(Of MyLocalModItem).FirstOrDefault(Function(i) i.Entry Is ModEntity))
|
||||
If IndexOfUi = -1 Then Continue For '因为未知原因 Mod 的状态已经切换完了
|
||||
PanList.Children.RemoveAt(IndexOfUi)
|
||||
PanList.Children.Insert(IndexOfUi, NewItem)
|
||||
PanUpdateList.Children.RemoveAt(IndexOfUi)
|
||||
PanUpdateList.Children.Insert(IndexOfUi, NewItem)
|
||||
ElseIf ModEntity.State.Equals(McMod.McModState.Fine) Then
|
||||
Dim IndexOfUi As Integer = PanDefaultList.Children.IndexOf(PanDefaultList.Children.OfType(Of MyLocalModItem).FirstOrDefault(Function(i) i.Entry Is ModEntity))
|
||||
If IndexOfUi = -1 Then Continue For '因为未知原因 Mod 的状态已经切换完了
|
||||
PanDefaultList.Children.RemoveAt(IndexOfUi)
|
||||
PanDefaultList.Children.Insert(IndexOfUi, NewItem)
|
||||
ElseIf ModEntity.State.Equals(McMod.McModState.Disabled) Then
|
||||
Dim IndexOfUi As Integer = PanDisabledList.Children.IndexOf(PanDisabledList.Children.OfType(Of MyLocalModItem).FirstOrDefault(Function(i) i.Entry Is ModEntity))
|
||||
If IndexOfUi = -1 Then Continue For '因为未知原因 Mod 的状态已经切换完了
|
||||
PanDisabledList.Children.RemoveAt(IndexOfUi)
|
||||
PanDisabledList.Children.Insert(IndexOfUi, NewItem)
|
||||
Else
|
||||
Dim IndexOfUi As Integer = PanUnavaliableList.Children.IndexOf(PanUnavaliableList.Children.OfType(Of MyLocalModItem).FirstOrDefault(Function(i) i.Entry Is ModEntity))
|
||||
If IndexOfUi = -1 Then Continue For '因为未知原因 Mod 的状态已经切换完了
|
||||
PanUnavaliableList.Children.RemoveAt(IndexOfUi)
|
||||
PanUnavaliableList.Children.Insert(IndexOfUi, NewItem)
|
||||
End If
|
||||
Next
|
||||
RefreshTitle() '改变数量显示
|
||||
If Not IsSuccessful Then
|
||||
@@ -549,14 +585,20 @@
|
||||
'更改 Loader 和 UI 中的列表
|
||||
McModLoader.Output.Remove(ModEntity)
|
||||
ModItems.Remove(ModEntity.RawFileName)
|
||||
Dim IndexOfUi As Integer = PanList.Children.IndexOf(PanList.Children.OfType(Of MyLocalModItem).FirstOrDefault(Function(i) i.Entry.Equals(ModEntity)))
|
||||
If IndexOfUi >= 0 Then PanList.Children.RemoveAt(IndexOfUi)
|
||||
Dim IndexOfUi As Integer = PanDefaultList.Children.IndexOf(PanDefaultList.Children.OfType(Of MyLocalModItem).FirstOrDefault(Function(i) i.Entry.Equals(ModEntity)))
|
||||
If IndexOfUi >= 0 Then PanDefaultList.Children.RemoveAt(IndexOfUi)
|
||||
IndexOfUi = PanUpdateList.Children.IndexOf(PanUpdateList.Children.OfType(Of MyLocalModItem).FirstOrDefault(Function(i) i.Entry.Equals(ModEntity)))
|
||||
If IndexOfUi >= 0 Then PanUpdateList.Children.RemoveAt(IndexOfUi)
|
||||
IndexOfUi = PanDisabledList.Children.IndexOf(PanDisabledList.Children.OfType(Of MyLocalModItem).FirstOrDefault(Function(i) i.Entry.Equals(ModEntity)))
|
||||
If IndexOfUi >= 0 Then PanDisabledList.Children.RemoveAt(IndexOfUi)
|
||||
IndexOfUi = PanUnavaliableList.Children.IndexOf(PanUnavaliableList.Children.OfType(Of MyLocalModItem).FirstOrDefault(Function(i) i.Entry.Equals(ModEntity)))
|
||||
If IndexOfUi >= 0 Then PanUnavaliableList.Children.RemoveAt(IndexOfUi)
|
||||
Next
|
||||
RefreshTitle()
|
||||
If Not IsSuccessful Then
|
||||
Hint("由于文件被占用，Mod 删除失败，请尝试关闭正在运行的游戏后再试！", HintType.Critical)
|
||||
RefreshList(True)
|
||||
ElseIf PanList.Children.Count = 0 Then
|
||||
ElseIf PanDefaultList.Children.Count + PanUpdateList.Children.Count + PanDisabledList.Children.Count + PanUnavaliableList.Children.Count = 0 Then
|
||||
RefreshList(True) '删除了全部文件
|
||||
Else
|
||||
RefreshBottomBar()
|
||||
|
||||
Reference in New Issue
Block a user