Fastreport --> Chart

Комментарии

• DizeL

  August 2006 отредактировано 10:56

  А в ответ ТИШИНА ...
• -=Den=-

  August 2006 отредактировано 10:56

  При выборе Fixed data разбор выражений не осуществляется.
• DizeL

  August 2006 отредактировано 10:56

  написал:

  При выборе Fixed data разбор выражений не осуществляется.

  Что же можно придумать ?
  
  Надо вывести график из 4 переменных !
• -=Den=-

  August 2006 отредактировано 10:56

  написал:

  Что же можно придумать ?

  Устанавливать из скрипта или из программы.
• DizeL

  August 2006 отредактировано 10:56

  написал:

  написал:

  Что же можно придумать ?

  Устанавливать из скрипта или из программы.

  Приветствую -=Den=-!
  
  Вижу ты настарался в предыдущих топиках, рассказывая как создавать свой Chart.
  
  Вот мой отчет с проблемными переменными z,m,n:
  

  var
   Page:TfrxReportPage;
   Chart:TfrxChartView;
   s: TChartSeries;
   Ser,:TfrxSeriesItem;
   z,n,m:String;
  begin
    z:='10';
    n:='20';
    m:='30';
  frxReport.Clear;
  Page := TfrxReportPage.Create(frxReport);
  Page.CreateUniqueName;
  Page.SetDefaults;
  Page.Orientation:=poLandScape;
  Chart := TfrxChartView.Create(Page);
  Chart.Align:=baClient;
  Chart.CreateUniqueName;
  s := TChartSeries(TPieSeries.NewInstance);
  s.Create(Chart);
  ser:=chart.SeriesData.Add;
  Chart.Chart.AddSeries(s);
  Chart.Chart.View3D:=false;
  //--------------------------------
  with ser do
  begin
  DataType := dtFixedData;
  XSource := 'Z;N:M';
  YSource := z,n,m;  // КАК ЗДЕСЬ СДЕЛАТЬ ???
  end;
  //---------------------------------
  frxReport.ShowReport;
  end;
  

  
  У мееня получаеться присвоить YSource только одно значение YSource := z , может надо добавлять серии, но в топиках я так и ненашел как в Chart-е добавить свои серии (может плохо смотрел?)
  
  
  Если знаеш помоги!
• -=Den=-

  August 2006 отредактировано 10:56

  Там тоже должна быть строка, попробуй так YSource := IntToStr(z)+';'+IntToStr(n)+';'+IntToStr(m);
  
  

  написал:

  может надо добавлять серии, но в топиках я так и ненашел как в Chart-е добавить свои серии (может плохо смотрел?)

  Вот этот код добавляет сериию

  s := TChartSeries(TPieSeries.NewInstance);
  s.Create(Chart);
  ser:=chart.SeriesData.Add;
  Chart.Chart.AddSeries(s);
  Chart.Chart.View3D:=false;
  
• DizeL

  August 2006 отредактировано 10:56

  написал:

  написал:

  Там тоже должна быть строка, попробуй так YSource := IntToStr(z)+';'+IntToStr(n)+';'+IntToStr(m);

  Получилось так:

   YSource := z+';'+n+';'+m;
  

  
  ОГРОМНОЕ ТЕБЕ СПАСИБО !!!