[San4ooo]

Всем привет
Нужна помощ высших сил...
Мне надо отобразить на чарте диаграммку зависимости уровня (сантиметры - Y ) от вермени (точная дата и время - X). Вообщем есть массив integer'a и datetime. Я их вывожу addxy-ом на chart. Кривую создает, но подписи значений на оси Х(времени) исчезают. Мне надо чтоб было видно какое значение имеет точки на диаграмме. Как сие исправить... ?
Т.е. чтобы выводил с подписями на оси Х
или
вообще как обратится к значениям отображаемым на оси Х.
Заранее благодарю...

п.с. код вот -

Код:

procedure TForm1.Button1Click(Sender: TObject);
var mas_f:array[1..10] of integer;
    mas_t:array[1..10] of TDatetime;
n_f,n_t,i,j:integer;

begin
n_f:=5;
n_t:=5;
mas_t[1]:=12/30/1899;
mas_t[2]:=12/30/1988;
mas_t[3]:=12/30/1887;
mas_t[4]:=12/30/1999;
mas_t[5]:=12/30/2002;

mas_f[1]:=15;
mas_f[2]:=16;
mas_f[3]:=23;
mas_f[4]:=42;
mas_f[5]:=27;

s1.Addxy(mas_t[1],mas_f[1],'',clBlack);
s1.Addxy(mas_t[2],mas_f[2],'',clBlack);
s1.Addxy(mas_t[3],mas_f[3],'',clBlack);
s1.Addxy(mas_t[4],mas_f[4],'',clBlack);
s1.Addxy(mas_t[5],mas_f[5],'',clBlack);

end;

Admin: Не забываем про теги!

[Nyctos Kasignete]

А что, если поставить галочку «Visible» в окне свойств графика на вкладке Marks, все равно исчезают подписи? У меня видны.

[San4ooo]

Не совсем то.
Надо чтоб на оси Х порядок был(даты нормальные). Есть какой-нибудь еще вариант...

[Nyctos Kasignete]

А, ну я не поняла сначала, правда.
Что-то наподобие этого

Код:

s1.XValues.DateTime := true;
with Chart1.BottomAxis do
begin
   Automatic := False ;
   Minimum:=  EncodeDate(1899, 12, 30) ;
   Maximum:= EncodeDate(2002, 12, 30);
end;