Steema Central

Code: Select all

void __fastcall TForm1::Chart1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
   if(Shift.Contains(ssLeft))
   {
      XStartPos = X;
      XStopPos  = X;
   }
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Chart1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
   if(Shift.Contains(ssLeft))
   {
      XStopPos = X;
      Chart1->Invalidate();
   }
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Chart1BeforeDrawAxes(TObject *Sender)
{
      Chart1->Canvas->Rectangle(XStartPos, Chart1->LeftAxis->IStartPos, XStopPos, Chart1->LeftAxis->IEndPos);
}

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

Code: Select all

void __fastcall TForm1::Chart1BeforeDrawAxes(TObject *Sender)
{
        Chart1->Canvas->Pen->Color=clRed;
        Chart1->Canvas->Brush->Color=clBlue;
        Chart1->Canvas->Rectangle(XStartPos, Chart1->LeftAxis->IStartPos,
                                         XStopPos, Chart1->LeftAxis->IEndPos);
}

Code: Select all

Chart1->Zoom->Brush->Color = clBlue;

Code: Select all

Chart1->DoubleBuffered = true;