Isometric Axes (SetIsometric)

[ACC]

Hi,

I'm working on a isometric plot with some problems when using SetIsometric(aVertical, aHorizontal: Integer), if I call it twice or more, it toggles the isometric mode.

Eg.
1. Call SetIsometric /* axes are now isometric */
2. Call SetIsometric /* axes are now not-isometric */
2. Call SetIsometric /* axes are now isometric */

I want to know if I can disable the "toggle" mode of the procedure, or if exists a way to know if the axes are already in isometric mode, so I don't call it again if is already set.

Regards,

[Pep]

Hi,

yes, this is a known problem. We'll try to fix it for the next maintenance releases.
In meantime, as you said one workaround could be to not set as Isometric if it has been done before, you could use similar code to the following :

Code: Select all

Dim iso As Boolean

Private Sub Command1_Click()
If Not iso Then
  MakeIsoAxis
End If
End Sub

Private Sub Form_Load()
Dim t As Integer
With TChart1
    .Aspect.View3D = False
    .Legend.Visible = False
End With
With TChart1.Axis.Left
    .GridPen.Style = psSolid
    .GridPen.Color = vbBlack
    .Increment = 50
    .Labels.Separation = 0
End With

With TChart1.Axis.Bottom
    .GridPen.Style = psSolid
    .GridPen.Color = vbBlack
    .Increment = 50
    .Labels.Separation = 0
End With
With TChart1
    .Series(0).Clear
    For t = 1 To 100
     .Series(0).Add Rnd(100) * 100, "", clTeeColor
    Next t
End With
End Sub

Private Sub MakeIsoAxis()
  With TChart1.Axis
    .Left.Increment = 50
    .Bottom.Increment = 50
    .SetIsometric .Left.Index, .Bottom.Index
    iso = True
  End With
End Sub