Bottom.Labels.Angle could not diretly reflect in chart

[Chris.CHWU]

Hello:

We are using Build 3.5.3498.27376. We use the following code to adjust label angle of bottom axis.

Code: Select all

Private Sub TChart_BeforeDrawSeries(ByVal sender As System.Object, ByVal g As Steema.TeeChart.Drawing.Graphics3D)
        Dim tchart As Steema.TeeChart.Chart = g.Chart
        Dim iWidth As Integer = Math.Abs((tchart.Axes.Bottom.CalcXPosValue(1) - tchart.Axes.Bottom.CalcXPosValue(0))) / 4
       
       // These codes are used to adjust box width, it works
         For Each series As Steema.TeeChart.Styles.Series In tchart.Series
            If TypeOf (series) Is Steema.TeeChart.Styles.Box Then
                CType(series, Steema.TeeChart.Styles.Box).Box.HorizSize = iWidth
            End If
        Next

      // We use this line to change label angle to 90, but the chart does not reflect to this change
        tchart.Axes.Bottom.Labels.Angle = 90 
End Sub

As you could see in the attached image, the box width is changed with the code, but the axis label angel is not changed.

Box Plot Width and Angel.GIF (9.96 KiB) Viewed 6358 times

But we could see that the angel is changed to 90 in Chart Editor

angel in editor is changed.GIF (18.92 KiB) Viewed 6358 times

Please advise how could we eliminate this issue, thanks

[Sandra]

Hello Chris. CHWU

I think that your problem occurs because chart needs redraw or refresh. Please see next code and check works correctly.

Code: Select all

Dim box1 As Steema.TeeChart.Styles.Box
Dim box2 As Steema.TeeChart.Styles.Box
Dim box3 As Steema.TeeChart.Styles.Box

    
    Private Sub InitializeChart()
        box1 = New Steema.TeeChart.Styles.Box(tChart1.Chart)
        box1.FillSampleValues()
        box1.Position = 1
        box2 = New Steema.TeeChart.Styles.Box(tChart1.Chart)
        box2.FillSampleValues()
        box2.Position = 2
        box3 = New Steema.TeeChart.Styles.Box(tChart1.Chart)
        box3.FillSampleValues()
        box3.Position = 3
        AddHandler tChart1.BeforeDrawSeries, AddressOf Me.tChart1_BeforeDrawSeries
        tChart1.Draw()
    End Sub
    
    Private Sub tChart1_BeforeDrawSeries(ByVal sender As Object, ByVal g As Steema.TeeChart.Drawing.Graphics3D)
        Dim tchart As Steema.TeeChart.Chart = g.Chart
        Dim iWidth As Integer = (Math.Abs((tchart.Axes.Bottom.CalcXPosValue(1) - tchart.Axes.Bottom.CalcXPosValue(0))) / 4)
        For Each series As Steema.TeeChart.Styles.Series In tchart.Series
            If (TypeOf series Is Steema.TeeChart.Styles.Box) Then
                CType(series,Steema.TeeChart.Styles.Box).Box.HorizSize = iWidth
            End If
            tchart.Axes.Bottom.Labels.Angle = 90
        Next
    End Sub

I hope will helps.

Thanks,