fix Hex-Dragon#5744: 模组下载界面显示Tooltip时滚动鼠标致使该Tooltip被永远隐藏

Author: Open-KFC

Plain Craft Launcher 2/Application.xaml

@@ -153,7 +153,7 @@
                 <Setter Property="Template">
                     <Setter.Value>
                         <ControlTemplate>
-                            <Border Loaded="TooltipLoaded" Unloaded="TooltipUnloaded" BorderBrush="{DynamicResource ColorBrush1}" BorderThickness="1" CornerRadius="3" Background="White" Margin="0,0,4,4" SnapsToDevicePixels="True">
+                            <Border x:Name="PART_ExtendTextTooltipBoarder" Loaded="TooltipLoaded" Unloaded="TooltipUnloaded" BorderBrush="{DynamicResource ColorBrush1}" BorderThickness="1" CornerRadius="3" Background="White" Margin="0,0,4,4" SnapsToDevicePixels="True">
                                 <TextBlock Text="{TemplateBinding ContentControl.Content}" TextWrapping="Wrap" Foreground="{DynamicResource ColorBrush1}" Margin="7,5" FontSize="12"/>
                             </Border>
                         </ControlTemplate>

Plain Craft Launcher 2/Modules/Minecraft/MyCompItem.xaml.vb

@@ -49,6 +49,13 @@
     '指向时扩展描述
     Private Sub LabInfo_MouseEnter(sender As Object, e As MouseEventArgs) Handles LabInfo.MouseEnter
         If IsTextTrimmed(LabInfo) Then
+            'fix #5744
+            'MyScrollViewer.vb#MyScrollViewer_PreviewMouseWheel 为使鼠标滚动时tooltip被隐藏，将不透明度改为了0
+            Dim TooltipBorder As Border = CType(ToolTipInfo.Template.FindName("PART_ExtendTextTooltipBoarder", ToolTipInfo), Border)
+            If TooltipBorder IsNot Nothing Then
+                TooltipBorder.Opacity = 1
+            End If
+
             ToolTipInfo.Content = LabInfo.Text
             ToolTipInfo.Width = LabInfo.ActualWidth + 25
             LabInfo.ToolTip = ToolTipInfo