Here is a bit of code that does something with ChartFX. There is not much out there in the way of examples, so this may help someone.
unit Unit1;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, VBXCtrl, Chart2fx, ChartFx;
type
TForm1 = class(TForm)
ChartFX1: TChartFX;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
const NumberOfSalesReps = 24;
procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
begin
randomize;
with ChartFX1 do begin
OpenData[COD_VALUES] := MAKELONG(1, NumberOfSalesReps);
ThisSerie := 0; {this sets the Y-Values}
for i := 0 to NumberOfSalesReps - 1 do Value[i]
:= random(100);
CloseData[COD_VALUES] := 0;
{this sets the X-Values}
OpenData[COD_XVALUES] := MAKELONG(1, NumberOfSalesReps);
for i := 0 to NumberOfSalesReps - 1 do XValue[i]
:= random(100);
CloseData[COD_XVALUES] := 0;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
FormCreate(Sender); {Just to watch the values change.}
end;
end.