This commit is contained in:
LTCat
2026-08-02 01:00:16 +08:00
parent c7ccdd65dc
commit 7fb6e5d68e
61 changed files with 3291 additions and 1165 deletions
@@ -76,8 +76,7 @@ Public Class MyLoading
If Ex Is Nothing Then
LabText.Text = "未知错误"
Else
Ex = Ex.RootException()
LabText.Text = If(Ex.IsBadNetwork(), "网络环境不佳,请稍后再试,或使用 VPN 改善网络环境", Ex.Message)
LabText.Text = Ex.GetDisplay(False)
End If
Else
LabText.Text = TextError
@@ -18,9 +18,6 @@ Public Class MyScrollViewer
End If
e.Handled = True
PerformVerticalOffsetDelta(-e.Delta)
'关闭 Tooltip (#2552)
'通过 IsOpen 关闭 Tooltip 而不是降低 Border 不透明度 (#5744)
Application.ShowingTooltips.ForEach(Sub(tooltip) tooltip.IsOpen = False)
End Sub
Public Sub PerformVerticalOffsetDelta(Delta As Double)
AniStart(