scrollzoom.cpp

Delphi Component - Chart Fx

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

#include "scrollzoom.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)
{
	int i,n;

    ChartFX1->OpenDataEx(COD_VALUES, 1, COD_UNCHANGE);
    n = ChartFX1->NValues;
    for(i = 0; i < n; i++)
        ChartFX1->ValueEx[0][i] = i * i;
    ChartFX1->CloseData(COD_VALUES);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    ICfxAxisDisp pAxis;

	ChartFX1->Axis->get_Item(AXIS_X,&pAxis);
    pAxis.SetScrollView(StrToFloat(Edit1->Text), StrToFloat(Edit2->Text));
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CheckBox1Click(TObject *Sender)
{
    if (CheckBox1->Checked)
        ChartFX1->ZoomIn(StrToFloat(Edit3->Text), StrToFloat(Edit5->Text), StrToFloat(Edit4->Text), StrToFloat(Edit6->Text));
    else
        ChartFX1->Zoom = FALSE;
}
//---------------------------------------------------------------------------