This is a migrated thread and some comments may be shown as answers.

Formatting ComplexGradient

4 Answers 109 Views

Chart (Obsolete)

This is a migrated thread and some comments may be shown as answers.

Ryan Hertz asked on 16 Mar 2010, 08:24 PM

How can I recreate the following formatting within my VB?

    
                        <Appearance> 
        
                            <FillStyle FillType="ComplexGradient"> 
        
                                <FillSettings> 
        
                                    <ComplexGradient> 
        
                                        <telerik:GradientElement Color="254, 122, 218" /> 
        
                                        <telerik:GradientElement Color="244, 80, 198" Position="0.5" /> 
        
                                        <telerik:GradientElement Color="205, 46, 153" Position="1" /> 
        
                                    </ComplexGradient> 
        
                                </FillSettings> 
        
                            </FillStyle> 
        
                            <TextAppearance TextProperties-Color="51, 51, 51"> 
        
                            </TextAppearance> 
        
                            <Border Color="174, 12, 111" /> 
        
                        </Appearance>

This is what I've tried with very limited success:

    
                        Dim chartSeries As New Telerik.Charting.ChartSeries() 
        
                        chartSeries.Name = "BUDGET" 
        
                        chartSeries.Type = Telerik.Charting.ChartSeriesType.Bar 
        
                        RadChart1.Series.Add(chartSeries) 
        
                        RadChart1.Series(2).DataYColumn = "budget" 
        
                        'RadChart1.Series(2).Appearance.FillStyle.FillType = Telerik.Charting.Styles.FillType.ComplexGradient 
        
                        'RadChart1.Series(2).Appearance.FillStyle.FillSettings.ComplexGradient.Item(0).Color = Drawing.Color.Tomato 
        
                        'RadChart1.Series(2).Appearance.FillStyle.FillSettings.ComplexGradient.Item(1).Color = Drawing.Color.Red 
        
                        ' RadChart1.Series(2).Appearance.FillStyle.FillSettings.ComplexGradient.Item(0).Position = 0.5 
        
                        'RadChart1.Series(2).Appearance.FillStyle.FillSettings.ComplexGradient.Item(1).Position = 1 
        
                        RadChart1.Series(2).Appearance.FillStyle.MainColor = Drawing.Color.Tomato 
        
                        RadChart1.Series(2).Appearance.FillStyle.SecondColor = Drawing.Color.Red 
        
                        RadChart1.Series(2).Appearance.TextAppearance.TextProperties.Color = Drawing.Color.Black 
        
                        RadChart1.Series(2).Appearance.Border.Color = Drawing.Color.Tomato

Thanks in advance,
Ryan

4 Answers, 1 is accepted

Accepted

answered on 18 Mar 2010, 12:04 PM

Hi Ryan Hertz,

You can achieve the desired effect like this:

Dim series As New ChartSeries()

series.AddItem(21)

series.AddItem(11)

series.AddItem(41)

series.Appearance.FillStyle.FillType = Telerik.Charting.Styles.FillType.ComplexGradient

series.Appearance.FillStyle.FillSettings.ComplexGradient.Add(New GradientElement(Color.FromArgb(255, 254, 122, 218), 0))

series.Appearance.FillStyle.FillSettings.ComplexGradient.Add(New GradientElement(Color.FromArgb(255, 244, 80, 198), 0.5F))

series.Appearance.FillStyle.FillSettings.ComplexGradient.Add(New GradientElement(Color.FromArgb(255, 205, 46, 153), 1))

series.Appearance.TextAppearance.TextProperties.Color = Color.FromArgb(255, 51, 51, 51)

series.Appearance.Border.Color = Color.FromArgb(255, 174, 12, 111)

RadChart1.Series.Add(series)

Hope this helps.

Best wishes,
Freddie
the Telerik team

Do you want to have your say when we set our development plans? Do you want to know when a feature you care about is added or when a bug fixed? Explore the Telerik Public Issue Tracking system and vote to affect the priority of the items.