Jump to content
Software FX Community

PaintBefore covers Axis Labels and Tickmarks


duanebalsiger
 Share

Recommended Posts

I am inserting a AnnotationRectangle into a bar chart using and setting "PaintBefore" to TRUE so that it appears behind as a background to a portion of the chart.  The bar chart and point labels appear on top of the chart, but the Axis labels and tickmarks appear behind the chart.  Has anyone encountered this before?  What do I need to add or change for it to work?  If I can't get the labels to show up I will have to write them out as annotations - not the optimal solution.

Below is the code - thanks!

  Chart1.Background = New SolidBackground(System.Drawing.Color.White)

  Chart1.Border = New SimpleBorder(SimpleBorderType.None)

  Chart1.DataGrid.Visible = False

  Chart1.Gallery = ChartFX.WebForms.Gallery.Bar

  Chart1.AllSeries.Horizontal = True

  Chart1.AllSeries.AxisX.Inverted = True

  Chart1.Height = 504

  Chart1.ImageSettings.Interactive = False

  Chart1.ImageSettings.ToolTips = ImageToolTipStyle.None

  Chart1.LegendBox.Visible = False

  Chart1.RenderFormat = "Image"

  Chart1.ToolBar.Visible = False 'hide the toolbar

  Chart1.Width = 750

  Chart1.Data.Series = 1

  Chart1.Data.Points = 13

  Chart1.Data.Item(0, 0) = 70

  Chart1.Data.Item(0, 1) = 60

  Chart1.Data.Item(0, 2) = 40

  Chart1.Data.Item(0, 3) = 50

  Chart1.Data.Item(0, 4) = 70

  Chart1.Data.Item(0, 5) = 60

  Chart1.Data.Item(0, 6) = 40

  Chart1.Data.Item(0, 7) = 50

  Chart1.Data.Item(0, 8) = 40

  Chart1.Data.Item(0, 9) = 50

  Chart1.Data.Item(0, 10) = 70

  Chart1.Data.Item(0, 11) = 60

  Chart1.Data.Item(0, 12) = 50

  Chart1.AllSeries.AxisX.Labels(0) = "Label 1"

  Chart1.AllSeries.AxisX.Labels(1) = "Label 2"

  Chart1.AllSeries.AxisX.Labels(2) = "Label 3"

  Chart1.AllSeries.AxisX.Labels(3) = "Label 4"

  Chart1.AllSeries.AxisX.Labels(4) = "Label 5"

  Chart1.AllSeries.AxisX.Labels(5) = "Label 6"

  Chart1.AllSeries.AxisX.Labels(6) = "Label 7"

  Chart1.AllSeries.AxisX.Labels(7) = "Label 8"

  Chart1.AllSeries.AxisX.Labels(8) = "Label 9"

  Chart1.AllSeries.AxisX.Labels(9) = "Label 10"

  Chart1.AllSeries.AxisX.Labels(10) = "Label 11"

  Chart1.AllSeries.AxisX.Labels(11) = "Label 12"

  Chart1.AllSeries.AxisX.Labels(12) = "Label 13"

  Chart1.AllSeries.AxisY.Max = 100

  Chart1.AllSeries.AxisY.Min = 0

  Chart1.AllSeries.AxisY.Visible = False

  Chart1.AllSeries.AxisX.Font = New System.Drawing.Font("Arial", 10, System.Drawing.FontStyle.Regular)

  Chart1.AllSeries.AxisX.Grids.Major.Visible = False

  Chart1.AllSeries.AxisX.Grids.Minor.Visible = False

  Chart1.AllSeries.AxisX.Step = 1

  Chart1.AllSeries.AxisX.Grids.Major.TickMark = TickMark.Outside

  Chart1.AllSeries.AxisX.Grids.Minor.TickMark = TickMark.None

  Chart1.AllSeries.AxisX.LabelTrimming = Drawing.StringTrimming.None

  Chart1.AllSeries.Line.Style = Drawing.Drawing2D.DashStyle.Solid

  Chart1.AllSeries.MarkerShape = MarkerShape.Diamond

  Chart1.AllSeries.PointLabels.Visible = True

  Chart1.AllSeries.PointLabels.Font = New System.Drawing.Font("Arial", 10, System.Drawing.FontStyle.Regular)

  Chart1.AllSeries.PointLabels.Format = "%v%%"

  Chart1.MainPane.Background = New SolidBackground(System.Drawing.Color.White)

  Chart1.AxesStyle = AxesStyle.None

  Chart1.PlotAreaMargin.Right = 200

  Chart1.PlotAreaMargin.Left = 240

  Chart1.PlotAreaMargin.Bottom = -1

  Chart1.UpdateSizeNow()

  Dim annot As ChartFX.WebForms.Annotation.Annotations = New ChartFX.WebForms.Annotation.Annotations()

  Chart1.Extensions.Add(annot)

  Dim Header As ChartFX.WebForms.Annotation.AnnotationText = New ChartFX.WebForms.Annotation.AnnotationText

  Header.Font = New System.Drawing.Font("Arial", 12, System.Drawing.FontStyle.Bold)

  Header.Text = "% Excellent"

  Header.Top = 9

  Header.Left = 5

  Header.Border.Width = 0

  Header.Border.Color = Drawing.Color.Transparent

  annot.List.Add(Header)

  Dim UnitWidth As Decimal = (Chart1.AxisX.ValueToPixel(2) - Chart1.AxisX.ValueToPixel(1))

  Dim Line1 As Decimal = Chart1.AxisX.ValueToPixel(1) - UnitWidth / 2

  Dim Line2 As Decimal = Chart1.AxisX.ValueToPixel(6) - UnitWidth / 2

  Dim Line3 As Decimal = Chart1.AxisX.ValueToPixel(11) - UnitWidth / 2

  Dim Line4 As Decimal = Chart1.AxisX.ValueToPixel(13) + UnitWidth / 2

  Dim BgRect1 As ChartFX.WebForms.Annotation.AnnotationRectangle = New ChartFX.WebForms.Annotation.AnnotationRectangle

  BgRect1.PaintBefore = True

  BgRect1.Left = 200

  BgRect1.Top = Line1

  BgRect1.Width = 750

  BgRect1.Height = Line2 - Line1

  BgRect1.Color = Drawing.ColorTranslator.FromHtml("#d8d8d8")

  BgRect1.Border.Color = Drawing.Color.Transparent

  annot.List.Add(BgRect1)

  Dim BgRect2 As ChartFX.WebForms.Annotation.AnnotationRectangle = New ChartFX.WebForms.Annotation.AnnotationRectangle

  BgRect2.PaintBefore = True

  BgRect2.Left = 0

  BgRect2.Top = Line2

  BgRect2.Width = 750

  BgRect2.Height = Line3 - Line2

  BgRect2.Color = Drawing.ColorTranslator.FromHtml("#cccccc")

  BgRect2.Border.Color = Drawing.Color.Transparent

  annot.List.Add(BgRect2)

  Dim BgRect3 As ChartFX.WebForms.Annotation.AnnotationRectangle = New ChartFX.WebForms.Annotation.AnnotationRectangle

  BgRect3.PaintBefore = True

  BgRect3.Left = 0

  BgRect3.Top = Line3

  BgRect3.Width = 750

  BgRect3.Height = Line4 - Line3

  BgRect3.Color = Drawing.ColorTranslator.FromHtml("#b8b8b8")

  BgRect3.Border.Color = Drawing.Color.Transparent

  annot.List.Add(BgRect3)

  Dim SideHeader1 As ChartFX.WebForms.Annotation.AnnotationText = New ChartFX.WebForms.Annotation.AnnotationText

  SideHeader1.Font = New System.Drawing.Font("Arial", 12, System.Drawing.FontStyle.Bold)

  SideHeader1.Text = "Group 1"

  SideHeader1.Top = Line1 + ((Line2 - Line1) / 2) - 10

  SideHeader1.Left = -((Line2 - Line1) / 2) + 10

  SideHeader1.Align = Drawing.StringAlignment.Center

  SideHeader1.Width = Line2 - Line1

  SideHeader1.Height = 20

  SideHeader1.Border.Color = Drawing.Color.Transparent

  SideHeader1.Rotate(False)

  annot.List.Add(SideHeader1)

  Dim SideHeader2 As ChartFX.WebForms.Annotation.AnnotationText = New ChartFX.WebForms.Annotation.AnnotationText

  SideHeader2.Font = New System.Drawing.Font("Arial", 12, System.Drawing.FontStyle.Bold)

  SideHeader2.Text = "Group 2"

  SideHeader2.Top = Line2 + ((Line3 - Line2) / 2) - 10

  SideHeader2.Left = -((Line3 - Line2) / 2) + 10

  SideHeader2.Align = Drawing.StringAlignment.Center

  SideHeader2.Width = Line3 - Line2

  SideHeader2.Height = 20

  SideHeader2.Border.Color = Drawing.Color.Transparent

  SideHeader2.Rotate(False)

  annot.List.Add(SideHeader2)

  Dim SideHeader3 As ChartFX.WebForms.Annotation.AnnotationText = New ChartFX.WebForms.Annotation.AnnotationText

  SideHeader3.Font = New System.Drawing.Font("Arial", 12, System.Drawing.FontStyle.Bold)

  SideHeader3.Text = "Group 3"

  SideHeader3.Top = Line3 + ((Line4 - Line3) / 2) - 20

  SideHeader3.Left = -((Line4 - Line3) / 2) + 20

  SideHeader3.Align = Drawing.StringAlignment.Center

  SideHeader3.Width = Line4 - Line3

  SideHeader3.Height = 40

  SideHeader3.Border.Color = Drawing.Color.Transparent

  SideHeader3.Rotate(False)

  annot.List.Add(SideHeader3)

  Dim Rect As ChartFX.WebForms.Annotation.AnnotationRectangle = New ChartFX.WebForms.Annotation.AnnotationRectangle

  Rect.Height = 1

  Rect.Width = 740

  Rect.Left = 5

  Rect.Top = 2

  Rect.Color = Drawing.Color.Black

  annot.List.Add(Rect)

 

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

×
×
  • Create New...