Level Marks on Contour plots

[NSI-MI]

With TeeChart 8 we were able to show level marks using code below

Code: Select all

        If LevelMarks Then
            .Series(0).asContour.ContourMarks.Visible = True
            .Series(0).asContour.ContourMarks.Density = 3
            .Series(0).asContour.ContourMarks.AntiOverlap = True
            .Series(0).asContour.ContourMarks.Margin = 1
            .Series(0).asContour.ContourMarks.AtSegments = True
            .Series(0).asContour.ContourMarks.ColorLevel = True
        Else
            .Series(0).asContour.ContourMarks.Visible = False
        End If

When we updated to TeeChart 2016, I get the breaks in the contours but no numbers

[Yeray]

Hello,

I can't reproduce the problem with v2016.0.0.2 and this simple example:

Code: Select all

  With TChart1
    .Aspect.View3D = False
  
    .AddSeries scContour
    .Series(0).FillSampleValues 10
    
    .Series(0).asContour.ContourMarks.Visible = True
    .Series(0).asContour.ContourMarks.Density = 3
    .Series(0).asContour.ContourMarks.AntiOverlap = True
    .Series(0).asContour.ContourMarks.Margin = 1
    .Series(0).asContour.ContourMarks.AtSegments = True
    .Series(0).asContour.ContourMarks.ColorLevel = True
    
    .Series(0).asContour.Filled = False
    .Series(0).Marks.Transparent = True
  End With

Could you please arrange a simple example project we can run as-is to reproduce the problem here?
Thanks in advance.

[NSI-MI]

Here is a reduced sample of my code that will not work

Code: Select all

With TChart1

   .Environment.InternalRepaint
   .Environment.MouseWheelScroll = False   'Disable scrolling chart via mouse wheel
   .Scroll.Enable = pmNone                 'Disable scrolling chart via mouse left or right movement
   .Zoom.Pen.Color = vbBlue
   .Zoom.MinimumPixels = 5 'Sets the minimum number of onscreen pixels traversed by the mouse drag for the zoom action to actuate.
   .Aspect.View3D = False
   
   .Panel.Color = vbWhite
   .Panel.Gradient.Visible = False
   .Panel.BackImageClear
   
   .Header.Text.Remove 0
   
   .AddSeries (scContour)
   .Series(0).Clear
   
   .Series(0).ShowInLegend = True
   .Axis.Bottom.TickOnLabelsOnly = True
   .Series(1).ShowInLegend = True
   
   .Series(0).FillSampleValues 20
   
   .Aspect.HorizOffset = 0
   .Aspect.VertOffset = 0
   
   .Series(0).asContour.NumLevels = 10
   .Series(0).asContour.CreateAutoLevels
   
   .Series(0).asContour.ContourMarks.Visible = True
   .Series(0).asContour.ContourMarks.Density = 3
   .Series(0).asContour.ContourMarks.AntiOverlap = True
   .Series(0).asContour.ContourMarks.Margin = 1
   .Series(0).asContour.ContourMarks.AtSegments = True
   .Series(0).asContour.ContourMarks.ColorLevel = True
   .Walls.Bottom.Color = vbWhite
      
   .Series(0).Active = True
   
   .Series(0).asContour.IrregularGrid = True
   .Series(0).asContour.Filled = False
      
   .Aspect.View3D = True
   .Aspect.Orthogonal = False
   .Aspect.Chart3DPercent = 100
   .Aspect.Perspective = 0
   
   .Walls.Back.Visible = True
   .Walls.Bottom.Visible = True
   .Walls.Left.Visible = True
   .Walls.Right.Visible = False
   .Walls.Back.Transparent = True
   .Walls.Bottom.Transparent = True
   .Walls.Left.Transparent = True
   .Walls.Right.Transparent = True
   
   .Legend.LegendStyle = lsValues
   .Legend.Series = 1
   .Legend.Symbol.Squared = True
   .Legend.Symbol.Width = 20
   
   .Aspect.Rotation = 360
   .Aspect.Elevation = 270

End With

[Yeray]

Hello,

I could reproduce it with TeeChart VCL (note TeeChart ActiveX is a wrapper from TeeChart VCL) so I've added it to the public tracker:
http://bugs.teechart.net/show_bug.cgi?id=1676

In the meanwhile, you could set the chart to 2D if it fits your requirements.

[NSI-MI]

How would I change to 2D?

[Yeray]

Hello,

How would I change to 2D?

Setting:

Code: Select all

TChart1.Aspect.View3D = False

[NSI-MI]

Because I overlay a contour on a surface I cannot disable the 3D.
Any idea when my bug will be worked on.

[Yeray]

Hello,

I've just reviewed it and found a fix, so the next maintenance release will include it.