VPF::Tchart заштриховывает график - Форум программистов

physic

Дата 10.6.2007, 16:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 23.11.2004

Репутация: нет
Всего: нет

почему-то график суммы какой-то заштрихованный (см. рис.). не пойму, почему.
в данном примере: Ser2=Ser0+Ser1

Код


procedure TForm1.plot_btnClick(Sender: TObject);
var
  valsub: real;
  valsum: array of real;
  i,j,k,l,p: integer;
  subser: array of tlineseries;
begin
 setlength(subser, num_sub+1);
 setlength(valsum, 250+1);
 drgr.Show;
 l:=0;

 for i:=1 to num_sub+1 do begin
  subser[i-1]:=tlineseries.Create(Chart2);
  subser[i-1].ParentChart := Chart2;
 end;

 for i:=1 to num_sub do begin
  for k:=1 to 250 do begin  //по числу точек
    valsub:=0;
    for j:=1+l to subsp[i]+l do begin    //по числу линий в парц спектре
      valsub:=valsub+gauss(prm_A[j,1],prm_V[j,1],prm_G[j,1],k);
    end;
    subser[i-1].AddXY(k,valsub);
    valsum[k]:=valsum[k]+valsub;      //считаем сумму графиков
  end;
  l:=l+subsp[i];

  for p:=1 to 250 do subser[num_sub].AddXY(p,valsum[p]);   //строим график суммы
  end;
end;

Это сообщение отредактировал(а) physic - 10.6.2007, 16:07

Присоединённый файл ( Кол-во скачиваний: 13 )

11.jpg 68,04 Kb

Leos239

Дата 12.6.2007, 17:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 26.11.2006

Репутация: нет
Всего: нет

В каком смысле заштрихованный? Типа серые пунктирные полосочки?
Так это отключается. Надо порыться в настройках TChart Axis > Ticks > Grid, там Visible поставить false;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »