Загрузка данных

Для программиста диаграммы представляют таблицу с полями Text:String,Color:Integer,Value:Float. И возможно еще добавлять поля Value2:Float, Value3:Float и т.д. Таким образом, программист может отобразить на экране результат выполнения любого SQL-запроса

D.Insert(0, 'Text,Value', (Select ToStr(Summa), ToFloat(Summa) From Table1));

Либо заполнить таблицу самостоятельно:

Procedure OnCreate;
Var
  i, n : Integer;
Begin
  n := 25;
  For i:=0 to n Do
  Begin
    D.Append;
    D[i].Text  := ToStr(i+1);
    D[i].Value := Sin(i/n*3.1415*2);
  End;
End;

Если значение Color будет не заполнено, т.е. равно 0, то платформа автоматически назначит цвет.

Внешний вид

Программист может изменить внешний вид диаграммы, нажав по кнопке в правом-верхнем углу диаграммы. Программист может разместить две диаграммы на форме с идентичными именами. Тогда у диаграмм будут раздельные стили и общие данные. Пользователь программы так же может изменять внешний вид диаграммы нажав правую кнопку на ней.

Диаграммы с несколькими показателями

В данные момент изменение кол-ва параметров в редакторе форм не педусмотрено. Но программист может добавить колонки во время выполнения программы.

Procedure OnCreate;
Var
  i, n : Integer;
Begin
  D.Columns.Insert(3,'Value2','Value2','float',64,'');
  D.Columns.Insert(3,'Value3','Value3','float',64,'');
  n := 20;
  For i:=0 to n Do
  Begin
    D.Append;
    D[i].Text  := ToStr(i+1);
    D[i].Value := Sin(i/n*3.1415*2);
    D.Cell(i, 'Value2') := Sin(i/n*3.1415*3);
    D.Cell(i, 'Value3') := Sin(i/n*3.1415*4);
  End;
End;

© RTIT