Expandable Props [RESOLVED]

[RobDog888]

Getting allot closer, but I still cant get this line to convert correctly.

gs.GradientMode = [Enum].Parse(GetType(GradientStyle), Trim(props(0)))

When I wrap it with the CType it tells me that the GradientStyle is undefined?

gs.GradientMode = CType([Enum].Parse(GetType(GradientStyle), Trim(props(0))), GradientStyle)

What am I doing wrong?

[RobDog888]

Duh! I figured out! I needed to ctype it to a lineargradientmode and not a class.

gs.GradientMode = CType([Enum].Parse(GetType(GradientStyle), Trim(props(0))), LinearGradientMode)

Now I have two issues left.

1. Defaults are not Resetting to the correct values. I have the default attributes on each of the
   three properties but when I reset them it goes to Horizontal, 0, 0 and not ForwardDiagonal, White, Blue.
   
   Do I need to supply something different as a default since the prop is expandable?
   
   
   
2. The gradient panel is not respondin at all to the property changes.

[RobDog888]

Ok, now I get some kind of hex number for RGB colors?

"ForwardDiagonal, ff7ba2e7, ff6375d6"

I am trying to get the Reset right click context menu to function at the DrawStyles level just like it does
for the Font property. The Font property lets you reset all the child properties at the top level with one
click.

I have the GradientMode, PanelColor1, and PanelColor2 all with the DefaultValues attrib, so I dont know
what else to do to fix it?

[<ABX]

Public Overloads Overrides Function ConvertTo(ByVal context As ITypeDescriptorContext, ByVal culture As CultureInfo, ByVal value As Object, ByVal destType As Type) As Object
      If destType Is GetType(String) Then
         ' Attempt to convert the value into a string representation
         Try
            Dim styles As DrawStyles = CType(value, DrawStyles)
            m_lastValue = styles
            [b]Return String.Format("{0}, {1}, {2}", styles.DrawMode, styles.Color1.Name, styles.Color2.Name)[/b]
 
         Catch ex As Exception
            ' If there was an error, display it instead of the string value
            Return String.Format("Error: {0}", ex.Message)
 
         End Try
      End If
      Return MyBase.ConvertTo(context, culture, value, destType)
   End Function
End Class

The problem with the colors displaying as hex should be on the bold line.

-----
Default values:

Public Overloads Overrides Function ConvertFrom(ByVal context As ITypeDescriptorContext, ByVal culture As CultureInfo, ByVal value As Object) As Object
      If value.GetType() Is GetType(String) Then
         [b]If IsNothing(Value) OrElse DirectCast(Value,String).Text.Length = 0 Then
                 Dim x as New DrawStyles
 
                 x.DrawMode = Vertical
                 x.Color1 = Color.White
                 x.Color2 = Color.Blue
               
                 Return x
         End If[/b]
         Try
            ' Attempt to parse the string representation 
            ' into the constituent properties
            Dim ds As New DrawStyles
            Dim s As String = value
            Dim c As String
 
            Dim props As String() = s.Split(",".ToCharArray())
 
            ds.DrawMode = [Enum].Parse(GetType(DrawMode), Trim(props(0)))
            c = Trim(props(1))
            If Not IsNumeric(c) Then
               ds.Color1 = Color.FromKnownColor([Enum].Parse(GetType(KnownColor), c))
            Else
               ds.Color1 = Color.FromArgb(Convert.ToInt32(c))
            End If
            c = Trim(props(2))
            If Not IsNumeric(c) Then
               ds.Color2 = Color.FromKnownColor([Enum].Parse(GetType(KnownColor), c))
            Else
               ds.Color2 = Color.FromArgb(Convert.ToInt32(c))
            End If
 
            Return ds
 
         Catch ex As Exception
            ' Revert back to the last good value if an error is encountered
            ' trying to parse the entered "text" value for the constiuent properties
            Return m_lastValue
 
         End Try
      End If
      MyBase.ConvertFrom(context, culture, value)
   End Function

I think that should do the trick

[RobDog888]

On ConvertFrom procedure I get an error stating that Text is not a member of string

If IsNothing(value) OrElse DirectCast(value, String).Text.Length = 0 Then
 
'Would this be the same thing?
If IsNothing(value) OrElse DirectCast(value, String).ToString.Length = 0 Then

Thanks

[<ABX]

I spaced...

If IsNothing(value) OrElse DirectCast(value, String).Length = 0 Then

for some reason I was thinking it was a textbox

[RobDog888]

Cool getting even closer. But the top level prop only reset if I delete the concatinated string, but then it
reset correctly. When I reset the top level prop it resets to horizontal, 0, 0 and not my custom defaults I
added to each of the three child props. Do I need to add the defaults to the top level mailn prop too? Idf so
then how since you cant have more then one?