diff --git a/Plain Craft Launcher 2/Modules/Minecraft/ModModpack.vb b/Plain Craft Launcher 2/Modules/Minecraft/ModModpack.vb index b4c93c3..a7e61cb 100644 --- a/Plain Craft Launcher 2/Modules/Minecraft/ModModpack.vb +++ b/Plain Craft Launcher 2/Modules/Minecraft/ModModpack.vb @@ -886,15 +886,19 @@ Retry: ''' Public Remain As String() ''' - ''' 是否需要保留 PCL 全局设置。仅在压缩包中有效。 + ''' 是否需要保留 PCL 全局设置。仅在包括 PCL 时有效。 ''' Public PCLSetupGlobal As Boolean = True ''' - ''' 整合包名称。仅在 Modrinth 有效。 + ''' 整合包名称。 ''' Public Name As String = "" ''' - ''' 版本号。仅在 Modrinth 有效。 + ''' 整合包描述。 + ''' + Public Desc As String = "" + ''' + ''' 版本号。 ''' Public VerID As String = "" Public Sub New(Version As McVersion, @@ -903,7 +907,7 @@ Retry: Remain As String(), Optional PCLSetupGlobal As Boolean = True, Optional Name As String = "", - Optional Author As String = "", + Optional Desc As String = "", Optional VerID As String = "") Me.Version = Version Me.Dest = Dest @@ -911,6 +915,7 @@ Retry: Me.Remain = Remain Me.PCLSetupGlobal = PCLSetupGlobal Me.Name = Name + Me.Desc = Desc Me.VerID = VerID End Sub End Class diff --git a/Plain Craft Launcher 2/Pages/PageVersion/PageVersionExport.xaml b/Plain Craft Launcher 2/Pages/PageVersion/PageVersionExport.xaml index 0d6a627..3c5edc7 100644 --- a/Plain Craft Launcher 2/Pages/PageVersion/PageVersionExport.xaml +++ b/Plain Craft Launcher 2/Pages/PageVersion/PageVersionExport.xaml @@ -28,14 +28,15 @@ - + - - - + + + + + - @@ -50,8 +51,8 @@ - - + + diff --git a/Plain Craft Launcher 2/Pages/PageVersion/PageVersionExport.xaml.vb b/Plain Craft Launcher 2/Pages/PageVersion/PageVersionExport.xaml.vb index 213debc..aecd7b9 100644 --- a/Plain Craft Launcher 2/Pages/PageVersion/PageVersionExport.xaml.vb +++ b/Plain Craft Launcher 2/Pages/PageVersion/PageVersionExport.xaml.vb @@ -1,8 +1,5 @@ -Imports System.Runtime.CompilerServices - -Public Class PageVersionExport +Public Class PageVersionExport Private Sub PageVersionExport_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded - TbExportName.HintText = PageVersionLeft.Version.Name Reload() End Sub @@ -10,6 +7,8 @@ Public Class PageVersionExport Public Sub Reload() AniControlEnabled += 1 + TbExportName.HintText = PageVersionLeft.Version.Name + TbExportDesc.HintText = PageVersionLeft.Version.Info PanDisplayItem.Children.Clear() ItemVersion = PageSelectRight.McVersionListItem(PageVersionLeft.Version.Load()) ItemVersion.IsHitTestVisible = False @@ -38,6 +37,10 @@ Public Class PageVersionExport ItemVersion.Title = If(String.IsNullOrWhiteSpace(sender.Text), PageVersionLeft.Version.Name, sender.Text) End Sub + Private Sub TbExportDesc_TextChanged(sender As MyTextBox, e As TextChangedEventArgs) Handles TbExportDesc.TextChanged + ItemVersion.Info = If(String.IsNullOrWhiteSpace(sender.Text), PageVersionLeft.Version.Info, sender.Text) + End Sub + Private CustomLogoVal As String ''' ''' 自定义 Logo 的路径。