importexport.cpp

Delphi Component - Chart Fx

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

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

void __fastcall TForm1::Button4Click(TObject *Sender)
{
   TPicture *p;
   p = new TPicture;
   SetOlePicture(p,ChartFX1->GetPicture(CHART_METAFILE));
   Image1->Picture = p;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Variant v;

    v = "Chart.chd";
    ChartFX1->Export(CHART_CFXOLEFILE, v);
    Button2->Enabled = TRUE;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    ChartFX1->Gallery = AREA;
    ChartFX1->Palette = "Dark Pastels";
    ChartFX1->ToolBar = False;
    Button3->Enabled = True;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
    Variant v;

    v = "Chart.chd";
    ChartFX1->Import(CHART_CFXOLEFILE, v);
}
//---------------------------------------------------------------------------