Работа с TChartDelphi , Компоненты и Классы , TChartFXРабота с TChart
Оформил: DeeCo uses Series; // Creates two series in the chart and assigns random values // erzeugt zwei Serien im Chart und fullt sie mit zufalligen Werten procedure TForm1.Button1Click(Sender: TObject); var i, j, kum: Integer; s, t: TLineSeries; begin with Chart1 do begin // Title of the Chart Title.Text.Clear; Title.Text.Add('Ein Titel fur den Chart'); // Create first Series s := TLineSeries.Create(nil); // Clear it s.Clear; // set the title s.Title := 'Chart Linie 1'; // determine the chart, this series belongs to s.ParentChart := Chart1; // the x-axis shall use date s.XValues.DateTime := True; // create the second Series t := TLineSeries.Create(nil); t.Clear; t.Title := s.Title + ' kum'; t.ParentChart := Chart1; t.XValues.DateTime := True; // this series uses the right axis t.VertAxis := aRightAxis; // now add the random values for i := 0 to 364 do begin j := Random(100); s.AddXY(Date + i, j); kum := kum + j; t.AddXY(Date + i, kum); end; end; end; Статья Работа с TChart раздела Компоненты и Классы TChartFX может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |