fix(MyScrollViewer): 滚动鼠标致使显示的ToolTip永远不可见

2025-05-24 20:00:52 +08:00
parent bf6fa718c8
commit 2a15bcf2c6
3 changed files with 11 additions and 8 deletions
@@ -19,9 +19,8 @@
        e.Handled = True
        PerformVerticalOffsetDelta(-e.Delta)
        '关闭 Tooltip (#2552)
-        For Each TooltipBorder In Application.ShowingTooltips
-            AniStart(AaOpacity(TooltipBorder, -1, 100), $"Hide Tooltip {GetUuid()}")
-        Next
+        '通过 IsOpen 关闭 Tooltip 而不是降低 Border 不透明度 (#5744)
+        Application.ShowingTooltips.ForEach(Sub(tooltip) tooltip.IsOpen = False)
    End Sub
    Public Sub PerformVerticalOffsetDelta(Delta As Double)
        AniStart(