TChart [D7, Win2k, WinXP]
Subdigger © (2005-12-02 15:14:00)
Как в оном на аксциссе напмсать текст вместо валуес?
делаю так:
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:00) [1]
и..
Наверх 
ЧАТ |
Орешник |
|
