Форум: "Основная";
Текущий архив: 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.01 c