2.13.0.0
This commit is contained in:
@@ -1,4 +1,4 @@
|
||||
Public Class PageSelectRight
|
||||
Public Class PageSelectRight
|
||||
|
||||
'窗口基础
|
||||
Private Sub PageSelectRight_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
|
||||
@@ -121,16 +121,10 @@
|
||||
Dim BtnStar As New MyIconButton
|
||||
If Instance.IsStar Then
|
||||
BtnStar.ToolTip = "取消收藏"
|
||||
ToolTipService.SetPlacement(BtnStar, Primitives.PlacementMode.Center)
|
||||
ToolTipService.SetVerticalOffset(BtnStar, 30)
|
||||
ToolTipService.SetHorizontalOffset(BtnStar, 2)
|
||||
BtnStar.LogoScale = 1.1
|
||||
BtnStar.Logo = Logo.IconButtonLikeFill
|
||||
Else
|
||||
BtnStar.ToolTip = "收藏"
|
||||
ToolTipService.SetPlacement(BtnStar, Primitives.PlacementMode.Center)
|
||||
ToolTipService.SetVerticalOffset(BtnStar, 30)
|
||||
ToolTipService.SetHorizontalOffset(BtnStar, 2)
|
||||
BtnStar.LogoScale = 1.1
|
||||
BtnStar.Logo = Logo.IconButtonLikeLine
|
||||
End If
|
||||
@@ -141,16 +135,10 @@
|
||||
End Sub
|
||||
Dim BtnDel As New MyIconButton With {.LogoScale = 1.1, .Logo = Logo.IconButtonDelete}
|
||||
BtnDel.ToolTip = "删除"
|
||||
ToolTipService.SetPlacement(BtnDel, Primitives.PlacementMode.Center)
|
||||
ToolTipService.SetVerticalOffset(BtnDel, 30)
|
||||
ToolTipService.SetHorizontalOffset(BtnDel, 2)
|
||||
AddHandler BtnDel.Click, Sub() DeleteInstance(sender, Instance)
|
||||
If Instance.State <> McInstanceState.Error Then
|
||||
Dim BtnCont As New MyIconButton With {.LogoScale = 1.1, .Logo = Logo.IconButtonSetup}
|
||||
BtnCont.ToolTip = "设置"
|
||||
ToolTipService.SetPlacement(BtnCont, Primitives.PlacementMode.Center)
|
||||
ToolTipService.SetVerticalOffset(BtnCont, 30)
|
||||
ToolTipService.SetHorizontalOffset(BtnCont, 2)
|
||||
AddHandler BtnCont.Click,
|
||||
Sub()
|
||||
PageInstanceLeft.Instance = Instance
|
||||
@@ -165,9 +153,6 @@
|
||||
Else
|
||||
Dim BtnCont As New MyIconButton With {.LogoScale = 1.15, .Logo = Logo.IconButtonOpen}
|
||||
BtnCont.ToolTip = "打开文件夹"
|
||||
ToolTipService.SetPlacement(BtnCont, Primitives.PlacementMode.Center)
|
||||
ToolTipService.SetVerticalOffset(BtnCont, 30)
|
||||
ToolTipService.SetHorizontalOffset(BtnCont, 2)
|
||||
AddHandler BtnCont.Click, Sub() PageInstanceOverall.OpenInstanceFolder(Instance)
|
||||
AddHandler sender.MouseRightButtonUp, Sub() PageInstanceOverall.OpenInstanceFolder(Instance)
|
||||
sender.Buttons = {BtnStar, BtnDel, BtnCont}
|
||||
@@ -204,7 +189,7 @@
|
||||
If(IsHintIndie, vbCrLf & "由于该版本开启了版本隔离,删除版本时该版本对应的存档、资源包、Mod 等文件也将被一并删除!", ""),
|
||||
"版本删除确认", , "取消",, True)
|
||||
Case 1
|
||||
Instance.ResetIniCache()
|
||||
Instance.ResetSettingsCache()
|
||||
DirectoryUtils.Delete(Instance.PathVersion, Not IsShiftPressed)
|
||||
Hint("版本 " & Instance.Name & " 已删除!", HintType.Green)
|
||||
Case 2
|
||||
|
||||
Reference in New Issue
Block a user