Как использовать ChartFX
|
В Microsoft обнаpyжен подкидыш. Слyхов ходит огpомное количество. Hекотоpые намекают на то, что Билл Гейтс - отец pебенка. Это побyждает Microsoft (МD) выстyпить с официальным заявлением:
- Во-пеpвых, сотpyдник MD не может быть отцом pебенка.
- Во-втоpых, в MD ничего никогда не изготавливалось за такой коpоткий сpок.
- В-тpетьих, в MD никогда не пpоизводилось ничего такого, что с самого начала имело бы все самое необходимое для жизни.
|
unit Chart;
...
with ChartFX do
begin
Visible := false;
{ Устанавливаем режим ввода значений }
{ 1 - количество серий (в нашем случае 1), 3 - количество значений }
OpenData [COD_VALUES] := MakeLong (1,3);
{ Номер текущей серии }
ThisSerie := 0;
{ Value [i] - значение с индексом i }
{ Legend [i] - комментарий к этому значению }
Value [0] := a;
Legend [0] := 'Значение переменной A';
Value [1] := b;
Legend [1] := 'Значение переменной B';
Value [2] := c;
Legend [2] := 'Значение переменной C';
{ Закрываем режим }
CloseData [COD_VALUES] := 0;
{ Ширина поля с комментариями на экране (в пикселах) }
LegendWidth := 150;
Visible := true;
end;
|
|
