' ISerializeSupportインタフェースの実装には、引数なしのコンストラクタが必要です。
' パブリックである必要はありません。
Friend Sub New()
    color = SystemColors.WindowFrame
    thickness = 1
    left = True
    top = True
    right = True
    bottom = True
    inset = New FarPoint.Win.Inset(1)
End Sub
''' <summary>
''' オブジェクトを XML に保存します。
''' </summary>
''' <param name="w">オブジェクトの保存先となる XmlTextWriter オブジェクトです。</param>
''' <returns>成功した場合は True を、そうでない場合は False を返します。</returns>
Public Overridable Function Serialize(w As System.Xml.XmlTextWriter) As Boolean
    w.WriteStartElement("Inset")
    w.WriteElementString("Bottom", inset.Bottom.ToString())
    w.WriteElementString("Left", inset.Left.ToString())
    w.WriteElementString("Right", inset.Right.ToString())
    w.WriteElementString("Top", inset.Top.ToString())
    w.WriteEndElement()
    FarPoint.Win.Serializer.SerializeColor(color, "Color", w)
    w.WriteStartElement("Sides")
    w.WriteElementString("Bottom", bottom.ToString())
    w.WriteElementString("Left", left.ToString())
    w.WriteElementString("Right", right.ToString())
    w.WriteElementString("Top", top.ToString())
    w.WriteEndElement()
    w.WriteElementString("Thickness", thickness.ToString(System.Globalization.CultureInfo.InvariantCulture))
    Return True
End Function
''' <summary>
''' XML からオブジェクトをロードします。
''' </summary>
''' <param name="r">オブジェクトをロードする XmlNodeReader です。</param>
''' <returns>成功した場合は True を、そうでない場合は False を返します。</returns>
Public Overridable Function Deserialize(r As System.Xml.XmlNodeReader) As Boolean
    Dim inInset As Boolean = False
    Dim inBottom As Boolean = False
    Dim inLeft As Boolean = False
    Dim inRight As Boolean = False
    Dim inTop As Boolean = False
    Dim inColor As Boolean = False
    Dim inSides As Boolean = False
    Dim inThickness As Boolean = False
    Dim bottom As Integer = inset.Bottom
    Dim left As Integer = inset.Left
    Dim right As Integer = inset.Right
    If r.IsEmptyElement Then
        Return True
    End If
    While r.Read()
        Select Case r.NodeType
            Case System.Xml.XmlNodeType.Element
                If r.Name.Equals("Inset") Then
                    inInset = True
                ElseIf r.Name.Equals("Color") Then
                    inColor = True
                ElseIf r.Name.Equals("Sides") Then
                    inSides = True
                ElseIf inInset OrElse inSides Then
                    If r.Name.Equals("Bottom") Then
                        inBottom = True
                    ElseIf r.Name.Equals("Left") Then
                        inLeft = True
                    ElseIf r.Name.Equals("Right") Then
                        inRight = True
                    ElseIf r.Name.Equals("Top") Then
                        inTop = True
                    End If
                ElseIf r.Name.Equals("Thickness") Then
                    inThickness = True
                End If
                Exit Select
            Case System.Xml.XmlNodeType.Text
                If inInset Then
                    If inBottom Then
                        bottom = System.Xml.XmlConvert.ToInt32(r.Value)
                    ElseIf inLeft Then
                        left = System.Xml.XmlConvert.ToInt32(r.Value)
                    ElseIf inRight Then
                        right = System.Xml.XmlConvert.ToInt32(r.Value)
                    ElseIf inTop Then
                        inset = New FarPoint.Win.Inset(left, System.Xml.XmlConvert.ToInt32(r.Value), right, bottom)
                    End If
                ElseIf inSides Then
                    If inBottom Then
                        Me.bottom = System.Xml.XmlConvert.ToBoolean(r.Value.ToLower(System.Globalization.CultureInfo.InvariantCulture))
                    ElseIf inLeft Then
                        Me.left = System.Xml.XmlConvert.ToBoolean(r.Value.ToLower(System.Globalization.CultureInfo.InvariantCulture))
                    ElseIf inRight Then
                        Me.right = System.Xml.XmlConvert.ToBoolean(r.Value.ToLower(System.Globalization.CultureInfo.InvariantCulture))
                    ElseIf inTop Then
                        Me.top = System.Xml.XmlConvert.ToBoolean(r.Value.ToLower(System.Globalization.CultureInfo.InvariantCulture))
                    End If
                ElseIf inColor Then
                    color = FarPoint.Win.Serializer.DeserializeColorValue(r.Value)
                ElseIf inThickness Then
                    thickness = System.Xml.XmlConvert.ToInt32(r.Value)
                End If
                Exit Select
            Case System.Xml.XmlNodeType.EndElement
                If inInset AndAlso r.Name.Equals("Inset") Then
                    inInset = False
                ElseIf inColor AndAlso r.Name.Equals("Color") Then
                    inColor = False
                ElseIf inSides AndAlso r.Name.Equals("Sides") Then
                    inSides = False
                ElseIf inInset OrElse inSides Then
                    If inBottom AndAlso r.Name.Equals("Bottom") Then
                        inBottom = False
                    ElseIf inLeft AndAlso r.Name.Equals("Left") Then
                        inLeft = False
                    ElseIf inRight AndAlso r.Name.Equals("Right") Then
                        inRight = False
                    ElseIf inTop AndAlso r.Name.Equals("Top") Then
                        inTop = False
                    End If
                ElseIf inThickness AndAlso r.Name.Equals("Thickness") Then
                    ' サブクラスを逆シリアル化するため、ここで処理を終了します。
                    Return True
                End If
                Exit Select
        End Select
    End While
    Return True
End Function

' ISerializeSupport には、引数なしのコンストラクタが必要です。
' パブリックである必要はありません。
Protected Sub New()
    MyBase.New(SystemColors.WindowFrame, 1, True, True, True, True)
    startColor = Color.Blue
    endColor = Color.Green
End Sub
''' <summary>
''' オブジェクトを XML に保存します。
''' </summary>
''' <param name="w">オブジェクトの保存先となる XmlTextWriter オブジェクトです。</param>
''' <returns>成功した場合は True を、そうでない場合は False を返します。</returns>
Public Overrides Function Serialize(w As System.Xml.XmlTextWriter) As Boolean
    If Not MyBase.Serialize(w) Then
        Return False
    End If
    FarPoint.Win.Serializer.SerializeColor(startColor, "StartColor", w)
    FarPoint.Win.Serializer.SerializeColor(endColor, "EndColor", w)
    Return True
End Function
''' <summary>
''' XML からオブジェクトをロードします。
''' </summary>
''' <param name="r">オブジェクトをロードする XmlNodeReader です。</param>
''' <returns>成功した場合は True を、そうでない場合は False を返します。</returns>
Public Overrides Function Deserialize(r As System.Xml.XmlNodeReader) As Boolean
    Dim inStartColor As Boolean = False
    Dim inEndColor As Boolean = False
    If r.IsEmptyElement Then
        Return True
    End If
    If Not MyBase.Deserialize(r) Then
        Return False
    End If
    While r.Read()
        Select Case r.NodeType
            Case System.Xml.XmlNodeType.Element
                If r.Name.Equals("StartColor") Then
                    inStartColor = True
                ElseIf r.Name.Equals("EndColor") Then
                    inEndColor = True
                End If
                Exit Select
            Case System.Xml.XmlNodeType.Text
                If inStartColor Then
                    startColor = FarPoint.Win.Serializer.DeserializeColorValue(r.Value)
                ElseIf inEndColor Then
                    endColor = FarPoint.Win.Serializer.DeserializeColorValue(r.Value)
                End If
                Exit Select
            Case System.Xml.XmlNodeType.EndElement
                If inStartColor AndAlso r.Name.Equals("StartColor") Then
                    inStartColor = False
                ElseIf inEndColor AndAlso r.Name.Equals("EndColor") Then
                    ' サブクラスを逆シリアル化するため、ここで処理を終了します。
                    Return True
                End If
                Exit Select
        End Select
    End While
    Return True
End Function

''' <summary>
''' オブジェクトを XML に保存します。
''' </summary>
''' <param name="w">オブジェクトの保存先となる XmlTextWriter オブジェクトです。</param>
''' <returns>成功した場合は True を、そうでない場合は False を返します。</returns>
Public Overrides Function Serialize(w As System.Xml.XmlTextWriter) As Boolean
    w.WriteAttributeString("startColor", FarPoint.Win.Serializer.SerializeColorValue(startColor))
    w.WriteAttributeString("endColor", FarPoint.Win.Serializer.SerializeColorValue(endColor))
    Return MyBase.Serialize(w)
End Function
''' <summary>
''' XML からオブジェクトをロードします。
''' </summary>
''' <param name="r">オブジェクトをロードする XmlNodeReader です。</param>
''' <returns>成功した場合は True を、そうでない場合は False を返します。</returns>
Public Overrides Function Deserialize(r As System.Xml.XmlNodeReader) As Boolean
    If r.MoveToAttribute("startColor") Then
        startColor = FarPoint.Win.Serializer.DeserializeColorValue(r.Value)
    End If
    If r.MoveToAttribute("endColor") Then
        endColor = FarPoint.Win.Serializer.DeserializeColorValue(r.Value)
    End If
    Return MyBase.Deserialize(r)
End Function