|
#1
|
|||
|
|||
Работа с Chart
Всем привет
Нужна помощ высших сил... Мне надо отобразить на чарте диаграммку зависимости уровня (сантиметры - 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, 25.08.2009 в 15:05. |
#2
|
|||
|
|||
А что, если поставить галочку «Visible» в окне свойств графика на вкладке Marks, все равно исчезают подписи? У меня видны.
Последний раз редактировалось Nyctos Kasignete, 25.02.2010 в 00:48. |
#3
|
|||
|
|||
Не совсем то.
Надо чтоб на оси Х порядок был(даты нормальные). Есть какой-нибудь еще вариант... |
#4
|
|||
|
|||
А, ну я не поняла сначала, правда.
Что-то наподобие этого Код:
s1.XValues.DateTime := true; with Chart1.BottomAxis do begin Automatic := False ; Minimum:= EncodeDate(1899, 12, 30) ; Maximum:= EncodeDate(2002, 12, 30); end; |