Форум: "Основная";
Текущий архив: 2006.01.01;
Скачать: [xml.tar.bz2];
ВнизTChart Найти похожие ветки
← →
Subdigger © (2005-12-02 15:14) [0]Как в оном на аксциссе напмсать текст вместо валуес?
делаю так:q.Open;
i := 0;
cnt := 0;
while not q.eof do begin
if i <> q.fieldByName("PRP_PM").AsFloat then begin
gg := TGanttSeries.Create(self);
gg.Marks.Visible := true;
gg.Marks.Style := smsLabel;
chrt.AddSeries(gg);
inc(cnt);
i := q.fieldByName("PRP_PM").AsFloat;
end;
gg.AddGantt(q.fieldByName("PHG_START_DT").AsFloat, q.fieldByName("PHG_STOP_DT").AsFloat, cnt);
q.next;
end;
q.close;
но ничего не пишется...
← →
Subdigger © (2005-12-02 17:24) [1]и..
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2006.01.01;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.015 c