feat(download): 修改 Mod Loader 手动安装包下载逻辑 (#1619)

* feat(download): 修改 Mod Loader 手动安装包下载逻辑

* chore: clean up unused code

Author: Pigeon0v0

Plain Craft Launcher 2/FormMain.xaml.vb

@@ -1004,23 +1004,13 @@ Public Class FormMain
     Public Enum PageSubType
         [Default] = 0
         DownloadInstall = 1
-        DownloadClient = 4
-        DownloadOptiFine = 5
-        DownloadForge = 6
-        DownloadNeoForge = 7
-        DownloadCleanroom = 16
-        DownloadFabric = 8
-        DownloadQuilt = 10
-        DownloadLiteLoader = 9
-        DownloadLabyMod = 20
-        DownloadLegacyFabric = 21
-        DownloadMod = 11
-        DownloadPack = 12
-        DownloadDataPack = 13
-        DownloadResourcePack = 14
-        DownloadShader = 15
-        DownloadCompFavorites = 17
-        DownloadWorld = 18
+        DownloadMod = 2
+        DownloadPack = 3
+        DownloadDataPack = 4
+        DownloadResourcePack = 5
+        DownloadShader = 6
+        DownloadWorld = 7
+        DownloadCompFavorites = 8
         SetupLaunch = 0
         SetupUI = 1
         SetupSystem = 2

Plain Craft Launcher 2/Pages/PageDownload/ModDownloadLib.vb

@@ -2109,9 +2109,21 @@ Retry:
             .Logo = PathImage & "Blocks/Fabric.png"
         }
         AddHandler NewItem.Click, OnClick
+        NewItem.ContentHandler = AddressOf FabricContMenuBuild
         '结束
         Return NewItem
     End Function
+    Private Sub FabricContMenuBuild(sender As Object, e As EventArgs)
+        Dim btnInfo As New MyIconButton With {.LogoScale = 1.05, .Logo = Logo.IconButtonInfo, .ToolTip = "更新日志"}
+        ToolTipService.SetPlacement(btnInfo, Primitives.PlacementMode.Center)
+        ToolTipService.SetVerticalOffset(btnInfo, 30)
+        ToolTipService.SetHorizontalOffset(btnInfo, 2)
+        AddHandler btnInfo.Click, AddressOf FabricLog_Click
+        sender.Buttons = {btnInfo}
+    End Sub
+    Private Sub FabricLog_Click(sender As Object, e As RoutedEventArgs)
+        OpenWebsite("https://fabricmc.net/blog")
+    End Sub
     Public Function FabricApiDownloadListItem(Entry As CompFile, OnClick As MyListItem.ClickEventHandler) As MyListItem
         '建立控件
         Dim NewItem As New MyListItem With {
@@ -2252,9 +2264,21 @@ Retry:
             .Logo = PathImage & "Blocks/Quilt.png"
         }
         AddHandler NewItem.Click, OnClick
+        NewItem.ContentHandler = AddressOf QuiltContMenuBuild
         '结束
         Return NewItem
     End Function
+    Private Sub QuiltContMenuBuild(sender As Object, e As EventArgs)
+        Dim btnInfo As New MyIconButton With {.LogoScale = 1.05, .Logo = Logo.IconButtonInfo, .ToolTip = "更新日志"}
+        ToolTipService.SetPlacement(btnInfo, Primitives.PlacementMode.Center)
+        ToolTipService.SetVerticalOffset(btnInfo, 30)
+        ToolTipService.SetHorizontalOffset(btnInfo, 2)
+        AddHandler btnInfo.Click, AddressOf QuiltLog_Click
+        sender.Buttons = {btnInfo}
+    End Sub
+    Private Sub QuiltLog_Click(sender As Object, e As RoutedEventArgs)
+        OpenWebsite("https://quiltmc.org/en/blog/1/")
+    End Sub
     Public Function QSLDownloadListItem(Entry As CompFile, OnClick As MyListItem.ClickEventHandler) As MyListItem
         '建立控件
         Dim NewItem As New MyListItem With {
@@ -2433,9 +2457,41 @@ Retry:
             .Logo = PathImage & "Blocks/LabyMod.png"
         }
         AddHandler NewItem.Click, OnClick
+        NewItem.ContentHandler = AddressOf LabyModContMenuBuild
         '结束
         Return NewItem
     End Function
+    Private Sub LabyModContMenuBuild(sender As Object, e As EventArgs)
+        Dim btnSave As New MyIconButton With {.Logo = Logo.IconButtonSave, .ToolTip = "另存为"}
+        ToolTipService.SetPlacement(btnSave, Primitives.PlacementMode.Center)
+        ToolTipService.SetVerticalOffset(btnSave, 30)
+        ToolTipService.SetHorizontalOffset(btnSave, 2)
+        AddHandler btnSave.Click, AddressOf LabyModSave_Click
+        Dim btnInfo As New MyIconButton With {.LogoScale = 1.05, .Logo = Logo.IconButtonInfo, .ToolTip = "更新日志"}
+        ToolTipService.SetPlacement(btnInfo, Primitives.PlacementMode.Center)
+        ToolTipService.SetVerticalOffset(btnInfo, 30)
+        ToolTipService.SetHorizontalOffset(btnInfo, 2)
+        AddHandler btnInfo.Click, AddressOf LabyModLog_Click
+        sender.Buttons = {btnSave, btnInfo}
+    End Sub
+    Private Sub LabyModLog_Click(sender As Object, e As RoutedEventArgs)
+        OpenWebsite("https://www.labymod.net/zh_Hans/download")
+    End Sub
+    Private Sub LabyModSave_Click(sender As Object, e As RoutedEventArgs)
+        Dim version As JObject
+        If sender.Tag IsNot Nothing Then
+            version = sender.Tag
+        ElseIf sender.Parent.Tag IsNot Nothing Then
+            version = sender.Parent.Tag
+        Else
+            version = sender.Parent.Parent.Tag
+        End If
+        If version("channel") = "snapshot" Then
+            McDownloadLabyModSnapshotLoaderSave()
+        Else
+            McDownloadLabyModProductionLoaderSave()
+        End If
+    End Sub
 #End Region
 
 #Region "合并安装"