Otra pregunta... NO PERDER LOS VALORES DEL EJE DERECHO

[JOMEGO]

Otra pregunta.. ya se que estoy hoy un poco pesado... lo siento de antemano.

Cuando tengo el grafico, le tengo dicho que pueda moverlo con el ratón de forma horizontal.. y lo muevo.. pero cuando la información esta por debajo o por encima la pierdo y no la veo en el grafico.. quisiera poder hacer que el eje fuera suviendo o bajando de valores automaticamente según los valores de los graficos, para tener siempre el grafico activo en la pantalla.

Gracias de antemano... y lo siento otra vez por estar hoy tan pesado.. pero es que sino mi programa de bolsa... no lo terminare en la vida.

Jordi

[Yeray]

Hola Jordi,

No estamos seguros de entender perfectamente tu problema porque el eje izquierdo deberia ajustarse automáticamente para poder mostrar todos los valores de la serie. A no ser que lo hayas cambiado con un SetMinMax.

De todas formas, es posible que lo que estés buscando sea algo así:

Code: Select all

Private Sub TChart1_OnScroll()
Dim i, offset As Integer
Dim min, max As Double
  offset = 10
  min = TChart1.Series(0).YValues.Value(TChart1.Axis.Bottom.Minimum)
  max = min

  For i = TChart1.Axis.Bottom.Minimum To TChart1.Axis.Bottom.Maximum
    If TChart1.Series(0).YValues.Value(i) < min Then
      min = TChart1.Series(0).YValues.Value(i)
    End If

    If TChart1.Series(0).YValues.Value(i) > max Then
      max = TChart1.Series(0).YValues.Value(i)
    End If
  Next i

  TChart1.Axis.Left.SetMinMax min - offset, max + offset
  Caption = Str$(min) + Str(max)
End Sub

En éste ejemplo, por cada scroll, miro el valor minimo y maximo de la serie que se muestra (con el for) y le aplico el SetMinMax.
Espero que el ejemplo te sirva para solucionar tu problema. Sinó, intenta explicarlo mejor, por favor.

Salut!

[JOMEGO]

A ver si me explico... yo tengo un grafico en la pantalla, al que le tengo puesto la cualidad de desplazamiento solo horizontal con el boton derecho.. cuando yo desplazo el grafico.. y los valores son mas pequeños.. nos los visualizo porque se quedan por debajo de los valores del eje que habia... yo lo que quiero es que los graficos vayan apareciendo en la pantalla con el desplazamiento sin perderlo y que el eje vaya poniendo los nuevos valores automaticamente.

Un saludo

Jordi

[Narcís]

Hola Jordi,

Perdona pero no entiendo cual és el problema exacto. Puedes enviarnos un ejemplo que podamos ejecutar "tal cual" para reproducirlo aquí?

Puedes enviar tus ficheros en el newsgroup news://www.steema.net/steema.public.attachments o a la página de uploads.

Grácias de antemano.

[JOMEGO]

Lo que quiero es siempre tener el dibujo de mi grafico en pantalla, asi que moviendome por el grafico... siempre tenga en la zona central el grafico completo entre los valores que hay ese momento en las barras de mi periodo... y que si me muevo para delante o para atras y los valores cambian.. que los valores de los ejes tambien cambien automaticamente para tener siempre información grafica en la pantalla (tchart1)

[Yeray]

Hola Jordi,

Pues seguimos entendiendo lo mismo. Quieres hacer Scroll y que ajuste automáticamente el Left axis. Pero deduzco de tus explicaciones que utilizas una Candle series en tu gráfico.

Prueba éste código que te servirá para una Candle series:

Code: Select all

Private Sub TChart1_OnAfterDraw()
  With TChart1
    .Axis.Left.SetMinMax .Series(0).MinVisibleValue(3) - 0.5, .Series(0).MaxVisibleValue(2) + 0.5
  End With
End Sub

Sinó, intenta describir de forma más precisa de qué tipo de gráfico estás hablando (numero de ejes, tipo/s de series,...). O mejor aun si haces un ejemplo senzillo y nos lo mandas como te comentaba Narcís.