Steema Central

Code: Select all

Procedure getChartdata(grid: TAdvColumnGrid; ChartPanel: TTeePreviewPanel; mychart: Array of TChart; check: TOfficeHintCheckBoxXP);
Var
mycol,myrow: Integer;
idx,i : integer;


begin

for idx := 0 to Charts-1 do
 begin
   for mycol := 0 to grid.TotalColCount-1 do
    begin
    s := grid.Cells[mycol,startrow-1];
      for myrow := startrow to endrow do
      begin
        xser := grid.Floats[0,myrow];
        yser := grid.Floats[mycol,myrow];
        mychart[idx].Series[mycol].AddXY(xser,yser,s);
      end;
     
    end;

     if check.Checked = True then
     begin
     mychart[idx].Title.Caption := run + ' ' + filename + ' ' + grid.Cells[0,2] + grid.cells[1,2];
     end
     else
     mychart[idx].Title.Caption := run + ' ' + filename;

     mychart[idx].Axes.Bottom.LabelStyle:=talValue;
   end;



end;

Code: Select all

With mychart[idx].Series[mycol].XValues do
       begin
       Value:=TChartValues(mytime);  { <-- the array }
       Count:=myrow;               { <-- number of points }
       Modified:=true;
       end;

      With mychart[idx].Series[mycol].YValues do
       begin
       Value:=TChartValues(myseries);
       Count:=myrow;
       Modified:=true;
       end;