databind.cpp

Delphi Component - Chart Fx

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

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

void __fastcall TForm1::Button1Click(TObject *Sender)
{
     Variant v1,v2;

     ChartFX1->DataType[0] = CDT_NOTUSED; // ProdID
     ChartFX1->DataType[1] = CDT_VALUE; // Sales
     ChartFX1->DataType[2] = CDT_VALUE; // Projected
     ChartFX1->DataType[3] = CDT_NOTUSED; // String
     ChartFX1->DataType[4] = CDT_LABEL; // Date

     Query1->Active = TRUE;
     v1 = "CfxData.BDE";
     v2 = (long) Query1->Handle;
     ChartFX1->GetExternalData(v1,v2);
     ChartFX1->DataEditorObj->SizeToFit();
     Query1->Active = FALSE;
}
//---------------------------------------------------------------------------