2.10.8

Plain Craft Launcher 2/Pages/PageDownload/Comp/PageDownloadCompDetail.xaml.vb

@@ -424,7 +424,7 @@
                             If(File.FileName.EndsWith(".mrpack"), "*.mrpack", "*.zip")), DefaultFolder)
                     If Not Target.Contains("\") Then Return
                     '构造步骤加载器
-                    Dim LoaderName As String = Desc & "下载：" & GetFileNameWithoutExtentionFromPath(Target) & " "
+                    Dim LoaderName As String = Desc & "下载：" & IO.Path.GetFileNameWithoutExtension(Target) & " "
                     If Target <> DefaultFolder Then CachedFolder(Project.Type) = GetPathFromFullPath(Target)
                     Dim Loaders As New List(Of LoaderBase)
                     Loaders.Add(New LoaderDownload("下载文件", New List(Of NetFile) From {File.ToNetFile(Target)}) With {.ProgressWeight = 6, .Block = True})

Plain Craft Launcher 2/Pages/PageOther/PageOtherAbout.xaml

@@ -171,6 +171,7 @@
                         <TextBlock Width="120" Margin="0,1.5" Text="Ciallo～(∠?ω" />
                         <TextBlock Width="120" Margin="0,1.5" Text="九十九" />
                         <TextBlock Width="120" Margin="0,1.5" Text="Guuzen" />
+                        <TextBlock Width="120" Margin="0,1.5" Text="极光" />
                         <TextBlock Width="120" Margin="0,1.5" Text="9331" />
                         <TextBlock Width="120" Margin="0,1.5" Text="钱程" />
                         <TextBlock Width="120" Margin="0,1.5" Text="杏坂和人" />

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

@@ -344,14 +344,11 @@ Public Class MyLocalModItem
             End If
             '标题与描述
             Dim DescFileName As String
-            Select Case Entry.State
-                Case McMod.McModState.Fine
-                    DescFileName = GetFileNameWithoutExtentionFromPath(Entry.Path)
-                Case McMod.McModState.Disabled
-                    DescFileName = GetFileNameWithoutExtentionFromPath(Entry.Path.Replace(".disabled", "").Replace(".old", ""))
-                Case Else 'McMod.McModState.Unavailable
-                    DescFileName = GetFileNameFromPath(Entry.Path)
-            End Select
+            If Entry.State = McMod.McModState.Fine OrElse Entry.State = McMod.McModState.Disabled Then
+                DescFileName = IO.Path.GetFileNameWithoutExtension(Entry.Path)
+            Else
+                DescFileName = GetFileNameFromPath(Entry.Path)
+            End If
             Dim NewDescription As String
             If Setup.Get("ToolModLocalNameStyle") = 1 Then
                 '标题显示文件名，详情显示译名