xy.cpp

Delphi Component - Chart Fx

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "xy.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ChartfxLib_TLB"
#pragma link "OleCtrls"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}

// From CHARTFX.H
#define CHART_HIDDEN 1.0e+308

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
	short i,n;

    n = ChartFX1->NValues;
    ChartFX1->OpenDataEx(COD_XVALUES, 2, n);
    for (i = 0; i < n; i++)
        ChartFX1->XValueEx[0][i] = i * i;
    for (i = 0; i < n-3; i++) // Second series has 3 points less
        ChartFX1->XValueEx[1][i] = i * i * 2;
    for (; i < n; i++)
        ChartFX1->ValueEx[1][i] = CHART_HIDDEN;
    ChartFX1->CloseData(COD_XVALUES | COD_SMOOTH);
}
//---------------------------------------------------------------------------