userinterface.cpp

Delphi Component - Chart Fx

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

#include "userinterface.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ChartfxLib_TLB"
#pragma link "OleCtrls"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    // Dissable all end-user interface
    ChartFX1->AllowDrag = FALSE;
    ChartFX1->AllowEdit = FALSE;
    ChartFX1->AllowResize = FALSE;
	ChartFX1->ContextMenus = FALSE;
	ChartFX1->ShowTips = FALSE;
	ChartFX1->Scrollable = FALSE;
	ChartFX1->DataEditorObj->set_Moveable(FALSE);
	ChartFX1->DataEditorObj->set_Sizeable(BAS_NORESIZE);
	ChartFX1->DblClk(CHART_NONECLK, 0);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CheckBox1Click(TObject *Sender)
{
    ChartFX1->AllowDrag = CheckBox1->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CheckBox2Click(TObject *Sender)
{
    ChartFX1->AllowEdit = CheckBox2->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CheckBox3Click(TObject *Sender)
{
    ChartFX1->AllowResize = CheckBox3->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CheckBox4Click(TObject *Sender)
{
    ChartFX1->ContextMenus = CheckBox4->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CheckBox5Click(TObject *Sender)
{
    ChartFX1->Scrollable = CheckBox5->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CheckBox6Click(TObject *Sender)
{
    ChartFX1->ShowTips = CheckBox6->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CheckBox7Click(TObject *Sender)
{
    if (CheckBox7->Checked)
        ChartFX1->DblClk(CHART_BALLOONCLK, 0);
    else
        ChartFX1->DblClk(CHART_NONECLK, 0);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ChartFX1LButtonDblClk(TObject *Sender, short x,
      short y, short nSerie, long nPoint, short *nRes)
{
     // customized balloon text
    if ((nSerie >= 0) && (nPoint >= 0))
        if (ChartFX1->ValueEx[nSerie][nPoint] > 50)
            ChartFX1->HText = StringToOleStr(String("This value is greater than 50... ") + String("\012") + ChartFX1->HText);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ChartFX1GetTip(TObject * Sender, short nHit,short nSerie,long nPoint,short* nRes)
{

    switch (nHit) {
        case HIT_TOPTITLE:
            ChartFX1->HText = StringToOleStr(String("You are hitting the ") + ChartFX1->HText);
            break;
        case HIT_AXISX:
            ChartFX1->HText = StringToOleStr(String("You are hitting the ") + ChartFX1->HText);
            break;
        case HIT_AXISY:
            ChartFX1->HText = StringToOleStr(String("You are hitting the ") + ChartFX1->HText);
            break;
        case HIT_POINT:
            ChartFX1->HText = StringToOleStr(String("You are hitting ") + String("\012") + ChartFX1->HText);
            break;
        case HIT_BKGND:
            ChartFX1->HText = StringToOleStr(String("You are hitting the ") + ChartFX1->HText);
            break;
        case HIT_3DBK:
            ChartFX1->HText = StringToOleStr(String("You are hitting the ") + ChartFX1->HText);
            break;
    }
    *nRes = 1;    // notify of change
}
//---------------------------------------------------------------------------