//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "ChartUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    randomize();
    dptrThickness = NULL;
    dptrBThickness = NULL;

    iSize = 100;
    iBSize = 100;
    iCount = 0;
    iBCount = 0;
    bDir = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    if(dptrThickness != NULL)
    {
        delete [] dptrThickness;
        dptrThickness = NULL;
    }
    if(dptrBThickness != NULL)
    {
        delete [] dptrBThickness;
        dptrBThickness = NULL;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DrawChart(void)
{
    dptrThickness[iCount] = rand() % 7 +50;
    dptrBThickness[iBCount] = rand() % 7 +50;

    if(iCount < iSize && !bDir)
    {
        Series1->AddXY(iCount, dptrThickness[iCount], "", clRed);
        iCount++;
    }
    else
    {
        Series1->Clear();
        iCount = 0;
        bDir = true;
    }

    if(iBCount < iBSize && bDir)
    {
        Series2->AddXY(iBSize-iBCount, dptrBThickness[iBCount], "", clBlue);
        iBCount++;
    }
    else
    {
        Series2->Clear();
        iBCount = 0;
        bDir = false;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    DrawChart();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    if(dptrThickness != NULL)
    {
        delete [] dptrThickness;
        dptrThickness = NULL;
    }
    dptrThickness = new double[iSize+1];

    if(dptrBThickness != NULL)
    {
        delete [] dptrBThickness;
        dptrBThickness = NULL;
    }
    dptrBThickness = new double[iBSize+1];

    Series1->Clear();
    Series2->Clear();

    Timer1->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    Timer1->Enabled = false;
}
//---------------------------------------------------------------------------