Ver Mensaje Individual
  #1  
Antiguo 13-02-2014
Avatar de salvica
salvica salvica is offline
Miembro
 
Registrado: mar 2004
Ubicación: Albacete (España) ... En un lugar de la Mancha ...
Posts: 304
Reputación: 21
salvica Va por buen camino
Question Modificar etiquetas en TChart

Hola a tod@s.
No se si este hilo debe ir aquí o en "Gráficos" (por el componente).

Se trata de los siguiente: Tengo un TChart que lo relleno con 1440 valores minutales (24 horas).
En modo diseño me divide el Grid cada 100 elementos y los señala como 0, 100, 200, ... etc. y necesito que lo divida cada 60 elementos (una hora) y que además los etiquete con la hora correspondiente, comenzando por CERO (0, 1, 2, 3, ..., 23, 24)

He leido que tengo que poner a talText el LabelStyle de los ejes (en este caso BottomAxis y TopAxis, pero me hace una escabechina grisacea .
Código Delphi [-]
{ ajustar los ejes Y a la escala que utilice }
    Chart.LeftAxis.Maximum       := FIN_ESCALA;
    Chart.LeftAxis.Minimum       := INI_ESCALA;
    Chart.RightAxis.Maximum      := FIN_ESCALA;
    Chart.RightAxis.Minimum      := INI_ESCALA;
{ cambiar el estilo de las etiquetas de los ejes X }
    Chart.BottomAxis.LabelStyle  := talText;
    Chart.TopAxis.LabelStyle     := talText;
    Chart.Series[0].Marks.Visible:= False;
{ cambiar el grueso de la pluma }
    (Chart.SeriesList[0] as TLineSeries ).LinePen.Width := 3;
{ re-dibujar el TChart }
    Chart.Repaint;
{ rellenar el TChart con los valores minutales }
    for I:=Low(Array1Minuto) to High(Array1Minuto) do begin
      { calcular la hora y los minutos en cada posición }
        iHora    := I div 60;
        iMinuto  := I mod 60;
        Etiqueta := '';
        if( iMinuto=0 ) then Etiqueta := IntToCadena(iHora, 2);
      { escribir los valores y las etiquetas de la serie }
        Chart.Series[0].Add(ArrayPresion1Minuto[i], Etiqueta, clBlue);
    end;

¿Podeis decirme como se cambian las etiquetas de las escalas en los ejes?

Gracias adelantadas
Salvica
Responder Con Cita