Документация, поставляемая с Delphi, слишком запутанна и тяжела, особенно
если вы не пользователь VBX...
Следующий пример устанавливает некоторые значения и пр. для ChartFX:
{Код получает данные из базы данных и рисует их}begin
MyTable.active := True; {открываем базу данных}
MyTable.first;
MyChart.title[CHART_BOTTOMTIT] := "Заголовок по оси X";
MyChart.title[CHART_LEFTTIT] := "Заголовок по оси Y";
MyChart.OpenData[COD_XVALUES] := MakeLong(numOfSeries, numofPoints);
MyChart.OpenData[COD_VALUES] := MakeLong(numOfSeries, NumofPoints);
MyChart.ThisSerie := SeriesNum; {начинаем с 0}while MyTable.EOF <> Truedobegin
MyChart.value[i] := MyTable.FieldByName("SOMEFIELD").AsFloat;
MyChart.Xvalue[i] := MyTable.FieldByName("SOMEOTHERFIELD").AsFloat;
MyTable.next;
i := i + 1; {естественно, вам необходимо определить и инициализировать "i"}end;
MyChart.CloseData[COD_Values] := 0;
MyChart.CloseData[COD_XValues] := 0;
MyTable.active := False; {закрываем базу данных}end;
{Обратите внимание на то, что данный код отностится к диаграмме
типа xy scatter. Если вы хотите сменить тип диаграммы ChartFX,
вам не нужно устанавливать значения для COD_XVALUES}
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Пример CHARTFX", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!