🚧 UI 设计（未完成）

Plain Craft Launcher 2/Pages/PageVersion/PageVersionExport.xaml

@@ -38,7 +38,11 @@
                             <RowDefinition Height="28" />
                         </Grid.RowDefinitions>
                         <TextBlock Grid.Row="0" VerticalAlignment="Center" HorizontalAlignment="Left" Text="整合包名称" Margin="0,0,25,0" />
-                        <local:MyTextBox Grid.Row="0" x:Name="TbExportName" Grid.ColumnSpan="2" Grid.Column="1" MaxLength="100" />
+                        <local:MyTextBox Grid.Row="0" x:Name="TbExportName" Grid.ColumnSpan="2" Grid.Column="1" MaxLength="100">
+                            <local:MyTextBox.ValidateRules>
+                                <local:ValidateFileName AllowNull="True" />
+                            </local:MyTextBox.ValidateRules>
+                        </local:MyTextBox>
                         <TextBlock Grid.Row="2" VerticalAlignment="Center" HorizontalAlignment="Left" Text="整合包版本" Margin="0,0,25,0" />
                         <local:MyTextBox Grid.Row="2" x:Name="TbExportVersion" HintText="1.0.0" Grid.ColumnSpan="2" Tag="VersionArgumentTitle" Grid.Column="1" MaxLength="100" />
                         <TextBlock Grid.Row="4" VerticalAlignment="Center" HorizontalAlignment="Left" Text="图标" Margin="0,0,25,0"  />
@@ -68,7 +72,7 @@
                 <StackPanel Margin="25,38,15,15">
                     <TextBlock x:Name="TbHint" Margin="0,1,0,1" Text="你可以在此勾选需要包含进整合包的文件或文件夹，其他文件或文件夹在高级选项添加。" TextWrapping="Wrap" />
                     <!-- 注意：以上 TextBlock 的 Text 属性可能会在代码中被改动。 -->
-                    <Grid x:Name="PanFiles">
+                    <Grid x:Name="PanCommonFiles">
                         <Grid.ColumnDefinitions>
                             <ColumnDefinition Width="Auto" />
                             <ColumnDefinition Width="18" />
@@ -88,7 +92,7 @@
                         </Grid.RowDefinitions>
                         <TextBlock Text="游戏配置" VerticalAlignment="Center" Grid.Column="0" Grid.Row="1" />
                         <local:MyCheckBox Height="22" VerticalAlignment="Center" Grid.Row="1" Grid.Column="2" Text="服务器列表"
-                                          Tag="server.dat" ToolTip="server.dat 文件" />
+                                          Tag="servers.dat" ToolTip="servers.dat 文件" />
                         <local:MyCheckBox Height="22" VerticalAlignment="Center" Grid.Row="1" Grid.Column="3" Text="Mod 配置"
                                           Tag="config" ToolTip="config 文件夹" />
                         <local:MyCheckBox Height="22" VerticalAlignment="Center" Grid.Row="1" Grid.Column="4" Text="游戏配置"
@@ -109,12 +113,12 @@
                 </StackPanel>
 
             </local:MyCard>
-            <local:MyCard Title="高级选项" Margin="0,0,0,15" CanSwap="True" IsSwaped="True">
+            <local:MyCard x:Name="CardMore" Title="高级选项" Margin="0,0,0,15" CanSwap="True" IsSwaped="True">
                 <StackPanel x:Name="PanFileList" Margin="25,40,23,15">
                     <TextBlock Margin="0,1,0,10" Text="你可以在此勾选需要包含进整合包的文件或文件夹。" TextWrapping="Wrap" />
                     <local:MyListItem Type="CheckBox" Title="游戏存档" Height="35" Logo="M889.018182 418.909091H884.363636V316.509091a93.090909 93.090909 0 0 0-99.607272-89.832727h-302.545455l-93.090909-76.334546A46.545455 46.545455 0 0 0 358.865455 139.636364H146.152727A93.090909 93.090909 0 0 0 46.545455 229.469091V837.818182a46.545455 46.545455 0 0 0 46.545454 46.545454 46.545455 46.545455 0 0 0 16.756364-3.258181 109.381818 109.381818 0 0 0 25.134545 3.258181h586.472727a85.178182 85.178182 0 0 0 87.04-63.301818l163.374546-302.545454a46.545455 46.545455 0 0 0 5.585454-21.876364A82.385455 82.385455 0 0 0 889.018182 418.909091z m-744.727273-186.181818h198.283636l93.09091 76.334545a46.545455 46.545455 0 0 0 29.323636 10.705455h319.301818a12.101818 12.101818 0 0 1 6.516364 0V418.909091H302.545455a85.178182 85.178182 0 0 0-87.04 63.301818L139.636364 622.778182V232.727273a19.549091 19.549091 0 0 1 6.516363 0z m578.094546 552.029091a27.461818 27.461818 0 0 0-2.792728 6.516363H154.530909l147.083636-272.290909a27.461818 27.461818 0 0 0 2.792728-6.981818h565.061818z" />
                     <local:MyListItem Type="CheckBox" Title="游戏存档" Height="35" Logo="M586.9 436h-74.7V62.4H177.1c-20.6 0-37.4 16.7-37.4 37.4v821.9c0 20.6 16.7 37.4 37.4 37.4h672.5c20.6 0 37.4-16.7 37.4-37.4V436H586.9z m0-74.7h297.8c-7.3-57.4-31.2-70.9-58.4-98.1l-66.5-66.5-0.1-0.1 0.1 0.1-0.9-0.9-22.8-22.8-0.9-0.9 0.1 0.1-0.1-0.1-66.5-66.5c-21.8-21.8-38.8-36.5-81.7-41.4l-0.1 297.1z" />
-                    <local:MyListItem Type="CheckBox" Title="游戏存档" Height="35" Logo="M834.5 684.1c-31.2-70.4-98.9-120.9-179.1-127.3 63.5-8.5 112.6-63 112.6-128.8 0-71.8-58.2-130-130-130s-130 58.2-130 130c0 65.9 49 120.3 112.6 128.8-80.2 6.4-148 57-179.1 127.3-8.7 19.7 6 42 27.6 42 12.1 0 22.7-7.5 27.7-18.5 24.3-53.9 78.5-91.5 141.3-91.5s117 37.6 141.3 91.5c5 11.1 15.6 18.5 27.7 18.5 21.4 0 36.1-22.3 27.4-42zM567.9 427.9c0-38.6 31.4-70 70-70s70 31.4 70 70-31.4 70-70 70-70-31.4-70-70zM460.3 347.9H216.9c-16.6 0-30 13.4-30 30s13.4 30 30 30h243.3c16.6 0 30-13.4 30-30 0.1-16.5-13.4-30-29.9-30zM367.4 459.6H216.9c-16.6 0-30 13.4-30 30s13.4 30 30 30h150.4c16.6 0 30-13.4 30-30 0.1-16.6-13.4-30-29.9-30zM297.4 571.2H217c-16.6 0-30 13.4-30 30s13.4 30 30 30h80.4c16.6 0 30-13.4 30-30 0-16.5-13.5-30-30-30zM900 236v552H124V236h776m0-60H124c-33.1 0-60 26.9-60 60v552c0 33.1 26.9 60 60 60h776c33.1 0 60-26.9 60-60V236c0-33.1-26.9-60-60-60z" />
+                    <local:MyListItem Type="CheckBox" Title="游戏存档" Height="35" Logo="M757.792745 435.407215L419.597482 96.904967c-40.010393-40.010393-104.886579-40.010393-144.896972 0-40.010393 40.010393-40.010393 104.988908 0 144.9993L540.344959 507.855701 274.70051 773.807135c-40.010393 40.112721-40.010393 104.988908 0 144.9993 40.010393 40.010393 104.886579 40.010393 144.896972 0l338.092935-338.39992c40.112721-40.010393 40.112721-104.988908 0.102328-144.9993z" />
                 </StackPanel>
             </local:MyCard>
 

Plain Craft Launcher 2/Pages/PageVersion/PageVersionExport.xaml.vb

@@ -1,13 +1,19 @@
 Public Class PageVersionExport
+    Private CurrentVer As String = ""
     Private Sub PageVersionExport_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
         Reload()
     End Sub
 
     Public ItemVersion As MyListItem
-    Private SelectedEntries As New List(Of String)
     Public Sub Reload()
         AniControlEnabled += 1
 
+        If CurrentVer <> PageVersionLeft.Version.Path Then
+            '说明切换到另一个版本了，所有的绝对路径都要重置，否则爆炸
+            CurrentPath = ""
+            Selected = New List(Of String)
+            CurrentVer = PageVersionLeft.Version.Path
+        End If
         TbExportName.HintText = PageVersionLeft.Version.Name
         TbExportDesc.HintText = PageVersionLeft.Version.Info
         PanDisplayItem.Children.Clear()
@@ -21,22 +27,37 @@
         CheckIncludePCL.IsEnabled = True
 #Else
         CheckIncludePCL.IsEnabled = False
-        TbHint.Text = "你可以在此勾选需要包含进整合包的文件或文件夹，其他文件或文件夹在高级选项添加。" & vbCrLf & "你当前的 PCL 不是正式版，有二次分发的限制，因此不能选择是否包含 PCL 程序。"
+        TbHint.Text = "你可以在此勾选需要包含进整合包的文件或文件夹，其他文件或文件夹在高级选项添加。" & vbCrLf & "你当前的 PCL 不是正式版，有二次分发的限制，因此整合包不能包含 PCL 程序。"
 #End If
         CheckIncludeSetup.IsEnabled = CheckIncludePCL.IsEnabled
-        ReloadFileList()
+        ReloadFileList(CurrentPath)
 
         AniControlEnabled -= 1
     End Sub
-    Private Sub ReloadFileList()
+
+#Region "文件列表"
+    ''' <summary>
+    ''' 当前所在的文件夹。注意是绝对路径！以 \ 结尾。
+    ''' </summary>
+    Private CurrentPath As String = ""
+    Private Sub ReloadFileList(Optional NewPath As String = "")
+        If String.IsNullOrWhiteSpace(NewPath) Then NewPath = PageVersionLeft.Version.Path
         Dim tb As TextBlock = PanFileList.Children(0)
         PanFileList.Children.Clear()
         PanFileList.Children.Add(tb)
 
-        For Each d In Directory.EnumerateDirectories(PageVersionLeft.Version.Path)
+        If NewPath <> PageVersionLeft.Version.Path Then
+            Dim listItem As New MyListItem With {.Title = "返回上一级目录", .Tag = "..", .Height = 35, .Type = MyListItem.CheckType.Clickable}
+            AddHandler listItem.Click, AddressOf ListItem_Click
+            PanFileList.Children.Add(listItem)
+        End If
+
+        Dim fileCount As Integer = 0
+
+        For Each d In Directory.EnumerateDirectories(NewPath)
             If Directory.EnumerateFileSystemEntries(d).Count = 0 Then Continue For
             d = GetFolderNameFromPath(d)
-            If IsVerRedundant(d) Then Continue For
+            If IsVerRedundant(NewPath & d) OrElse IsMustExport(d) Then Continue For
             Dim title As String = ""
             Dim listItem As New MyListItem
             If Titles.TryGetValue(d, title) Then 'title 作为引用类型传入
@@ -47,14 +68,44 @@
             End If
             '图标按钮
             Dim btnSwap As New MyIconButton
-            btnSwap.Path = New Shapes.Path With {.HorizontalAlignment = HorizontalAlignment.Right, .Stretch = Stretch.Uniform, .Height = 6, .Width = 10, .VerticalAlignment = VerticalAlignment.Top, .Margin = New Thickness(0, 17, 16, 0), .Data = New GeometryConverter().ConvertFromString("M2,4 l-2,2 10,10 10,-10 -2,-2 -8,8 -8,-8 z"), .RenderTransform = New RotateTransform(180), .RenderTransformOrigin = New Point(0.5, 0.5)}
+            btnSwap.Logo = Logo.IconButtonRight
+            btnSwap.LogoScale = 1.0
+            btnSwap.Tag = d
             AddHandler btnSwap.Click, AddressOf BtnSwap_Click
             listItem.Buttons = {btnSwap}
             listItem.Type = MyListItem.CheckType.CheckBox
             listItem.Height = 35
             listItem.Logo = Logo.IconButtonOpen
+            listItem.Tag = d & "\"
+            If IsSelected(NewPath & d & "\") Then listItem.Checked = True
+            AddHandler listItem.Click, AddressOf ListItem_Click
             PanFileList.Children.Add(listItem)
+            fileCount += 1
         Next
+
+        For Each f In Directory.EnumerateFiles(NewPath)
+            f = GetFileNameFromPath(f)
+            If IsVerRedundant(NewPath & f) OrElse IsMustExport(f) Then Continue For
+            Dim title As String = ""
+            Dim listItem As New MyListItem
+            If Titles.TryGetValue(f, title) Then 'title 作为引用类型传入
+                listItem.Title = title
+                listItem.Info = f
+            Else
+                listItem.Title = f
+            End If
+            listItem.Info = (NewPath & f).Replace(GetPathFromFullPath(PageVersionLeft.Version.Path), "")
+            listItem.Type = MyListItem.CheckType.CheckBox
+            listItem.Height = 35
+            listItem.Tag = f
+            If IsSelected(NewPath & f) Then listItem.Checked = True
+            AddHandler listItem.Click, AddressOf ListItem_Click
+            PanFileList.Children.Add(listItem)
+            fileCount += 1
+        Next
+
+        CurrentPath = NewPath
+        CardMore.Title = If(NewPath = PageVersionLeft.Version.Path, "高级选项", $"高级选项 ({NewPath.Replace(PageVersionLeft.Version.Path, "").TrimEnd("\")})")
     End Sub
     Private Titles As New Dictionary(Of String, String) From {
         {"saves", "存档"},
@@ -65,16 +116,86 @@
         {"servers.dat", "服务器列表"}
     }
     Private Sub BtnSwap_Click(sender As MyIconButton, e As Object)
-        MsgBox("测试") 'TODO：处理展开操作
+        Dim actualPath As String = CurrentPath & sender.Tag & "\"
+        'Dim relative As String = actualPath.Replace(PageVersionLeft.Version.Path, "")
+
+        If Not Directory.Exists(actualPath) Then
+            Hint($"找不到目录：{actualPath}", HintType.Critical)
+            Exit Sub
+        End If
+        ReloadFileList(actualPath)
     End Sub
-    Private ReadOnly Property Saves As List(Of String)
-        Get
-            If Directory.Exists(PageVersionLeft.Version.Path & "saves\") Then
-                Return Directory.EnumerateDirectories(PageVersionLeft.Version.Path & "saves\").ToList
-            End If
-            Return New List(Of String)
-        End Get
-    End Property
+    ''' <summary>
+    ''' 选中的文件列表，绝对路径。
+    ''' </summary>
+    Private Selected As New List(Of String)
+    Private Sub SelectedChange(IsAdd As Boolean, TargetPath As String)
+        If File.Exists(TargetPath) Then
+            If IsAdd Then Selected.Add(TargetPath) Else Selected.Remove(TargetPath)
+            Exit Sub
+        End If
+        If Directory.Exists(TargetPath) Then
+            For Each d In Directory.EnumerateDirectories(TargetPath)
+                SelectedChange(IsAdd, d)
+            Next
+            For Each f In Directory.EnumerateFiles(TargetPath)
+                If IsAdd Then Selected.Add(f) Else Selected.Remove(f)
+            Next
+        End If
+    End Sub
+    Private Function IsSelected(TargetPath As String) As Boolean
+        If File.Exists(TargetPath) Then
+            Return Selected.Contains(TargetPath)
+        End If
+        If Directory.Exists(TargetPath) Then
+            Return Directory.EnumerateDirectories(TargetPath).All(Function(s) IsSelected(s)) AndAlso
+                    Directory.EnumerateFiles(TargetPath).All(Function(s) Selected.Contains(s))
+        End If
+        Return False
+    End Function
+    Private Sub ListItem_Click(sender As MyListItem, e As Object)
+        If sender.Tag = ".." Then '回到上一级目录
+            ReloadFileList(GetPathFromFullPath(CurrentPath))
+            Exit Sub
+        End If
+        SelectedChange(Not sender.Checked, '非常难绷的逻辑，很难描述清楚，自己打断点看 Checked 属性值吧……
+                       CurrentPath & sender.Tag)
+    End Sub
+
+    'Private ReadOnly Property Saves As List(Of String)
+    '    Get
+    '        If Directory.Exists(PageVersionLeft.Version.Path & "saves\") Then
+    '            Return Directory.EnumerateDirectories(PageVersionLeft.Version.Path & "saves\").ToList
+    '        End If
+    '        Return New List(Of String)
+    '    End Get
+    'End Property
+
+    '复选框与高级选项同步
+    Private Sub PanCommonFiles_MouseLeftButtonUp(sender As Object, e As MouseButtonEventArgs) Handles PanCommonFiles.MouseLeftButtonUp
+        For Each c In PanCommonFiles.Children
+            If TypeOf c IsNot MyCheckBox Then Continue For
+            If String.IsNullOrEmpty(c.Tag) Then Continue For
+            For Each l In PanFileList.Children
+                If TypeOf l Is MyListItem Then
+                    If l.Tag.Replace("\", "") = c.Tag Then l.Checked = c.Checked
+                End If
+            Next
+        Next
+    End Sub
+    '高级选项与复选框同步
+    Private Sub PanFileList_MouseLeftButtonUp(sender As Object, e As MouseButtonEventArgs) Handles PanFileList.MouseLeftButtonUp
+        For Each l In PanFileList.Children
+            If TypeOf l IsNot MyListItem Then Continue For
+            If String.IsNullOrEmpty(l.Tag) Then Continue For
+            For Each c In PanCommonFiles.Children
+                If TypeOf c Is MyCheckBox Then
+                    If c.Tag = l.Tag.Replace("\", "") Then c.Checked = l.Checked
+                End If
+            Next
+        Next
+    End Sub
+#End Region
 
 #Region "整合包信息 & 预览栏"
     Private Sub TbExportName_TextChanged(sender As MyTextBox, e As TextChangedEventArgs) Handles TbExportName.TextChanged
@@ -137,18 +258,19 @@
     '    CardExport.TriggerForceResize()
     'End Sub
     Private Sub BtnExportExport_Click() Handles BtnExportExport.Click
-        '获取需要包含的文件夹
-        Dim contains As New List(Of String)
-        For Each c In PanFiles.Children
-            If TypeOf c IsNot MyCheckBox Then Continue For
-            If String.IsNullOrEmpty(c.Tag) Then Continue For
-            contains.Add(c.Tag)
-        Next
         Dim savePath As String = SelectAs(
             "选择导出位置", $"整合包 - {If(String.IsNullOrWhiteSpace(TbExportName.Text), PageVersionLeft.Version.Name, TbExportName.Text)}" & If(CheckIncludePCL.Checked, ".zip", ".mrpack"),
             If(CheckIncludePCL.Checked, "整合包文件(*.zip)|*.zip", "Modrinth 整合包(*.mrpack)|*.mrpack"))
         If String.IsNullOrEmpty(savePath) Then Exit Sub
-        ModpackExport(New ExportOptions(PageVersionLeft.Version, savePath, CheckIncludePCL.Checked, {}, 'TODO：改成要保留的文件列表
+
+        '获取需要包含的文件夹
+        Dim contains As New List(Of String)
+        For Each c In PanCommonFiles.Children
+            If TypeOf c IsNot MyCheckBox Then Continue For
+            If String.IsNullOrEmpty(c.Tag) Then Continue For
+            contains.Add(c.Tag)
+        Next
+        ModpackExport(New ExportOptions(PageVersionLeft.Version, savePath, CheckIncludePCL.Checked, Selected.ToArray,
                                         PCLSetupGlobal:=CheckIncludeSetup.Checked, Name:=TbExportName.Text, VerID:=TbExportVersion.Text))
     End Sub