компонент CHART

[cowboy]

Можно ли на один чарт наложить несколько серий с разной шкалой? ТО есть проще говоря разбить чарт на три части и для каждой точки на оси Х ,будет соответствовать три точки .. На эти три серии имеют абсолютно разную шкалу..

и как еще нарисовать не график а именно гистограмму....

Про первое..В идеале хочется получить что то типа как на приэттаченом файле..Просто если это раскидывать на три разных ЧАРТА , то из-за разница цифр в шкале оси будут расходится..

[artemavd]

Вот пример кода построение графиков:

procedure TForm1.SpeedButton11Click(Sender: TObject);
var
 c,d,c1,d1,fig,c2,d2,c3,d3,d4:real;
begin
 try
 With Form1.Series1 do
   begin
   Clear;
    c:=StrToInt(Form1.SG2.Cells[0,26]);
    d:=StrToInt(Form1.SG2.Cells[1,26]);
    c1:=StrToInt(Form1.SG2.Cells[2,26]);
    d1:=StrToInt(Form1.SG2.Cells[3,26]);
    Add(c,'2-ек',clGreen);
    Add(d, '3-ек', clYellow);
    Add(c1, '4-ок', clBlue);
    Add(d1, '5-ок', clRed);
  end;
   except
   on EConvertError do
     fig:=0;
  end;

 try
 with Form1.Series2 do
   begin
    Clear;
    c2:=StrToFloat(Form1.SG3.Cells[1,26]);
    d2:=StrToInt(Form1.SG3.Cells[2,26]);
    c3:=StrToInt(Form1.SG3.Cells[3,26]);
    d3:=StrToInt(Form1.SG3.Cells[4,26]);
    d4:=StrToInt(Form1.SG3.Cells[5,26]);
    Add(c2,'СБ',clGreen);
    Add(d2, 'КУ', clYellow);
    Add(c3, 'У', clBlue);
    Add(d3, 'О', clRed);
    Add(d4, 'ЧО', clRed);
   end;
  except
   on EConvertError do
     fig:=0;
  end;

Данные для построения берутся из StringGrid-a.

[cowboy]

сделал вот так..

procedure TPagesDlg.SpeedButton1Click(Sender: TObject);
var
 c,d,c1,d1,fig,c2,d2,c3,d3,d4:real;
begin
 try
 With Series1 do
   begin
   Clear;
    c:=1;
    d:=2;
    c1:=3;
    d1:=4;
    Add(c,'2-åê',clGreen);
    Add(d, '3-åê', clYellow);
    Add(c1, '4-îê', clBlue);
    Add(d1, '5-îê', clRed);
  end;
   except
   on EConvertError do
     fig:=0;
  end;

 try
 with Series2 do
   begin
    Clear;
    c2:=100;
    d2:=200;
    c3:=300;
    d3:=400;
    d4:=500;
    Add(c2,'ÑÁ',clGreen);
    Add(d2, 'ÊÓ', clYellow);
    Add(c3, 'Ó', clBlue);
    Add(d3, 'Î', clRed);
    Add(d4, '×Î', clRed);
   end;
  except
   on EConvertError do
     fig:=0;
  end;
 chart17.AddSeries(series1);
chart17.AddSeries(Series2);
end;

Графики на одном чарте..Но шкалы то для одного и другого одинаковые.. ТАк если на одной серии диапазон от 1 до 15 а на второй от 1500 до 2000 то первыю серию мы в жизнь ощушать на чарте не будем

[artemavd]

А зачем Вы пишете это:

 
chart17.AddSeries(series1);
chart17.AddSeries(Series2);

???

[cowboy]

ну накладываю каждую серию на график

даже если сделать вот так

procedure TPagesDlg.BitBtn4Click(Sender: TObject);
var
 c,d,c1,d1,fig,c2,d2,c3,d3,d4:real;
begin
 try
 With Series1 do
   begin
   Clear;
    c:=StrToInt('1');
    d:=StrToInt('2');
    c1:=StrToInt('2');
    d1:=StrToInt('2');
    Add(c,'2-åê',clGreen);
    Add(d, '3-åê', clYellow);
    Add(c1, '4-îê', clBlue);
    Add(d1, '5-îê', clRed);
  end;
   except
   on EConvertError do
     fig:=0;
  end;

 try
 with Series2 do
   begin
    Clear;
    c2:=StrToFloat('500');
    d2:=StrToInt('500');
    c3:=StrToInt('500');
    d3:=StrToInt('500');
    d4:=StrToInt('500');
    Add(c2,'ÑÁ',clGreen);
    Add(d2, 'ÊÓ', clYellow);
    Add(c3, 'Ó', clBlue);
    Add(d3, 'Î', clRed);
    Add(d4, '×Î', clRed);
   end;
  except
   on EConvertError do
     fig:=0;

end;
end;

Шкала для второго графика просто не видна..И второй график вообще не виден..Нужно что бы ему соответствовала своя шкала и он был отчетливо виден

[cowboy]

Скорее всего стандартным компонентом CHART этого не сделать..Придется искать другой компонент.

[Пепел Феникса]

а три чарта не сделать?
иль я задание не понял

[cowboy]

В данном можно и три чарта..Но за счет разности в шкале они получаются чуть чуть сдвинуты относительно друг друга..Как в приэттаченом файле..

[s.Creator]

а попробовать синхронизировать шкалы и размеры (положения ) чартов?

[cowboy]

Нужно ли для этого создавать свою ось вот таким образом

  {  MyAxis := TChartAxis.Create(Chart);
    series1.CustomVertAxis:=myaxis;
    With MyAxis do  begin
    Axis.Color:=clGreen ;
  //  Title.Caption := 'Extra axis' ;
    Title.Font.Style:=[fsBold];
    Title.Angle := 10;
    PositionPercent := 10; //percentage of Chart rectangle
    StartPosition:=50;
    EndPosition:=100;
    end;   }

Или можно синхронизировать стандартные?

Подскажите пожалуйста как мне синхронизировать оси..

Помогите плиз как мне синхрофнизировать оси!