Shape Series Text Position Problem
Posted: Mon Oct 30, 2006 3:57 pm
Using the shape series the text array draws the text in the wrong position.
Dim RollShape As New Steema.TeeChart.Styles.Shape(DefectsTChart.Chart)
RollShape.Color = Color.Aqua
RollShape.Font.Color = Color.Blue
RollShape.Font.Bold = True
RollShape.Font.Name = "Tahoma"
RollShape.Pen.Width = 2
RollShape.Transparent = True
RollShape.ShowInLegend = False
RollShape.Style = Steema.TeeChart.Styles.ShapeStyles.Rectangle
RollShape.X0 = prevWidth - rollBtn.RollWidth
RollShape.X0 = prevWidth
RollShape.Y1 = prevLength
RollShape.Y0 = prevLength + rollBtn.RollLength
Dim strArray(1) As String
strArray(0) = rollBtn.Text
strArray(1) = rollBtn.CullCode + " " + rollBtn.Destination
RollShape.Text = strArray
The rectangles draw correctly, but the text x position is wrong (the y is correct).
Dim RollShape As New Steema.TeeChart.Styles.Shape(DefectsTChart.Chart)
RollShape.Color = Color.Aqua
RollShape.Font.Color = Color.Blue
RollShape.Font.Bold = True
RollShape.Font.Name = "Tahoma"
RollShape.Pen.Width = 2
RollShape.Transparent = True
RollShape.ShowInLegend = False
RollShape.Style = Steema.TeeChart.Styles.ShapeStyles.Rectangle
RollShape.X0 = prevWidth - rollBtn.RollWidth
RollShape.X0 = prevWidth
RollShape.Y1 = prevLength
RollShape.Y0 = prevLength + rollBtn.RollLength
Dim strArray(1) As String
strArray(0) = rollBtn.Text
strArray(1) = rollBtn.CullCode + " " + rollBtn.Destination
RollShape.Text = strArray
The rectangles draw correctly, but the text x position is wrong (the y is correct).