PCL-Communist/Plain Craft Launcher 2/Controls/MyMsg/MyMsgSelect.xaml.vb

Public Class MyMsgSelect

    Private ReadOnly MyConverter As MyMsgBoxConverter
    Private ReadOnly Uuid As Integer = GetUuid()

    Public Sub New(Converter As MyMsgBoxConverter)
        Try

            InitializeComponent()
            Btn1.Name = Btn1.Name & GetUuid()
            Btn2.Name = Btn2.Name & GetUuid()
            Btn3.Name = Btn3.Name & GetUuid()
            MyConverter = Converter
            LabTitle.Text = Converter.Title
            Btn1.Text = Converter.Button1
            If Converter.IsWarn Then
                Btn1.ColorType = MyButton.ColorState.Red
                LabTitle.SetResourceReference(TextBlock.ForegroundProperty, "ColorBrushRedLight")
                ShapeLine.SetResourceReference(Rectangle.FillProperty, "ColorBrushRedLight")
            End If
            Btn2.Text = Converter.Button2
            Btn3.Text = Converter.Button3
            Btn2.Visibility = If(Converter.Button2 = "", Visibility.Collapsed, Visibility.Visible)
            Btn3.Visibility = If(Converter.Button3 = "", Visibility.Collapsed, Visibility.Visible)
            '添加选择控件
            For Each Selection As IMyRadio In Converter.Content
                PanSelection.Children.Add(Selection)
                AddHandler Selection.Check, AddressOf OnChecked
                If TypeOf Selection Is MyListItem Then
                    CType(Selection, MyListItem).Type = MyListItem.CheckType.RadioBox
                    CType(Selection, MyListItem).MinHeight = 24
                Else
                    CType(Selection, MyRadioBox).MinHeight = 26
                End If
            Next

        Catch ex As Exception
            Log(ex, "选择弹窗初始化失败", LogLevel.Hint)
        End Try
    End Sub

    Private Sub Load(sender As Object, e As EventArgs) Handles MyBase.Loaded
        Try

            'UI 初始化
            If Btn2.IsVisible AndAlso Not Btn1.ColorType = MyButton.ColorState.Red Then Btn1.ColorType = MyButton.ColorState.Highlight
            ShapeLine.StrokeThickness = GetWPFSize(1)
            Measure(New Size(FrmMain.Width, FrmMain.Height))
            Arrange(New Rect(0, 0, FrmMain.Width, FrmMain.Height))
            If FrmMain.Width - ActualWidth < 20 Then Width = FrmMain.Width - GetWPFSize(2)
            '动画
            AniStart({
                AaColor(FrmMain.PanMsg, Grid.BackgroundProperty, New MyColor(60, 0, 0, 0), 250, , New AniEaseInFluent),
                AaColor(PanBorder, Border.BackgroundProperty, New MyColor(255, 0, 0, 0), 150, , New AniEaseInFluent),
                AaOpacity(EffectShadow, 0.75, 400, 50),
                AaWidth(ShapeLine, ShapeLine.ActualWidth, 250, 100, New AniEaseOutFluent),
                AaOpacity(ShapeLine, 1, 200, 100),
                AaWidth(LabTitle, LabTitle.ActualWidth, 200, 100, New AniEaseOutFluent),
                AaOpacity(LabTitle, 1, 150, 150),
                AaOpacity(PanCaption, 1, 150, 150),
                AaOpacity(Btn1, 1, 150, 100),
                AaOpacity(Btn2, 1, 150, 150),
                AaOpacity(Btn3, 1, 150, 200),
                AaCode(Sub()
                           ShapeLine.MinWidth = ShapeLine.ActualWidth
                           ShapeLine.HorizontalAlignment = HorizontalAlignment.Stretch
                           ShapeLine.Width = Double.NaN
                           LabTitle.Width = Double.NaN
                           LabTitle.TextTrimming = TextTrimming.CharacterEllipsis
                       End Sub, 350)
            }, "MyMsgBox Start " & Uuid)
            '动画初始化
            ShapeLine.Width = 0
            ShapeLine.HorizontalAlignment = HorizontalAlignment.Center
            LabTitle.Width = 0
            LabTitle.Opacity = 0
            LabTitle.TextWrapping = TextWrapping.NoWrap
            PanCaption.Opacity = 0
            '记录日志
            Log("[Control] 选择弹窗：" & LabTitle.Text)

        Catch ex As Exception
            Log(ex, "选择弹窗加载失败", LogLevel.Hint)
        End Try
    End Sub
    Private Sub Close()
        '结束线程阻塞
        MyConverter.WaitFrame.Continue = False
        Interop.ComponentDispatcher.PopModal()
        '弹窗动画
        LabTitle.TextTrimming = TextTrimming.None
        LabTitle.TextWrapping = TextWrapping.NoWrap
        AniStart({
            AaColor(FrmMain.PanMsg, Grid.BackgroundProperty, New MyColor(-60, 0, 0, 0), 350, , New AniEaseInFluent),
            AaColor(PanBorder, Border.BackgroundProperty, New MyColor(-255, 0, 0, 0), 300, 100, New AniEaseInFluent),
            AaOpacity(EffectShadow, -0.75, 150),
            AaWidth(ShapeLine, -ShapeLine.ActualWidth, 250, , New AniEaseInFluent),
            AaOpacity(ShapeLine, -1, 150, 100),
            AaWidth(LabTitle, -LabTitle.ActualWidth, 250),
            AaOpacity(LabTitle, -1, 200),
            AaOpacity(PanCaption, -1, 200),
            AaOpacity(Btn1, -1, 150),
            AaOpacity(Btn2, -1, 150, 50),
            AaOpacity(Btn3, -1, 150, 100),
            AaCode(Sub() CType(Parent, Grid).Children.Remove(Me), , True)
            }, "MyMsgBox Close " & Uuid)
    End Sub

    Public Sub Btn1_Click() Handles Btn1.Click
        If MyConverter.IsExited OrElse SelectedIndex = -1 Then Exit Sub
        MyConverter.IsExited = True
        MyConverter.Result = SelectedIndex
        Close()
    End Sub
    Private Sub Btn2_Click() Handles Btn2.Click
        If MyConverter.IsExited Then Exit Sub
        MyConverter.IsExited = True
        MyConverter.Result = Nothing
        Close()
    End Sub
    Private Sub Btn3_Click() Handles Btn3.Click
        If MyConverter.IsExited Then Exit Sub
        MyConverter.IsExited = True
        MyConverter.Result = Nothing
        Close()
    End Sub

    Private SelectedIndex As Integer = -1
    Private Sub OnChecked(sender As IMyRadio, e As EventArgs)
        Btn1.IsEnabled = True
        SelectedIndex = PanSelection.Children.IndexOf(sender)
    End Sub
    Private Sub Drag(sender As Object, e As MouseButtonEventArgs) Handles PanBorder.MouseLeftButtonDown, LabTitle.MouseLeftButtonDown
        On Error Resume Next
        If e.GetPosition(ShapeLine).Y <= 2 Then FrmMain.DragMove()
    End Sub

End Class