Steema Central

Code: Select all

  private
    { Private declarations }
    CustomMarks: array of TRectangleTool;
    procedure RecalcCustomMarksPositions;
//...
procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  Chart1.View3D:=false;

  Series1.FillSampleValues(10);
  Series1.Pointer.Visible:=true;

  SetLength(CustomMarks, Series1.Count);
  for i:=0 to Length(CustomMarks)-1 do
  begin
    CustomMarks[i]:=Chart1.Tools.Add(TRectangleTool) as TRectangleTool;
    with CustomMarks[i] do
    begin
      Text:=FloatToStr(Series1.YValue[i]);
      Shape.Width:=Canvas.TextWidth(CustomMarks[i].Text) + 10;
      Shape.Height:=Canvas.TextHeight(CustomMarks[i].Text) + 4;
      Callout.Arrow.Visible:=true;
    end;
  end;
end;

procedure TForm1.Series1ClickPointer(Sender: TCustomSeries; ValueIndex, X,
  Y: Integer);
begin
  CustomMarks[ValueIndex].Visible:=not CustomMarks[ValueIndex].Visible;
end;

procedure TForm1.RecalcCustomMarksPositions;
var i: Integer;
begin
  Chart1.Draw;

  for i:=0 to Series1.Count-1 do
  begin
    with CustomMarks[i] do
    begin
      Left:=Series1.CalcXPos(i) - Shape.Width div 2;
      Top:=Series1.CalcYPos(i) - 40;
      CustomMarks[i].Callout.XPosition:=Series1.CalcXPos(i);
      CustomMarks[i].Callout.YPosition:=Series1.CalcYPos(i);
    end;
  end;
end;

procedure TForm1.Chart1Zoom(Sender: TObject);
begin
  RecalcCustomMarksPositions;
end;

procedure TForm1.Chart1UndoZoom(Sender: TObject);
begin
  RecalcCustomMarksPositions;
end;

procedure TForm1.Chart1Scroll(Sender: TObject);
begin
  RecalcCustomMarksPositions;
end;

procedure TForm1.Chart1Resize(Sender: TObject);
begin
  RecalcCustomMarksPositions;
end;

Code: Select all

//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Chart1->View3D=false;

  Series1->FillSampleValues(10);
  Series1->Pointer->Visible=true;

  for(int i = 0; i < Series1->Count(); i++)
  {
	CustomMarks[i] = new TRectangleTool(Chart1);
	Chart1->Tools->Add(CustomMarks[i]);
	CustomMarks[i]->Text=FloatToStr(Series1->YValue[i]);
	CustomMarks[i]->Shape->Width=Canvas->TextWidth(CustomMarks[i]->Text) + 10;
	CustomMarks[i]->Shape->Height=Canvas->TextHeight(CustomMarks[i]->Text) + 4;
	CustomMarks[i]->Callout->Arrow->Visible=true;
  }

  Chart1->Draw();
  RecalcCustomMarksPositions();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Series1ClickPointer(TCustomSeries *Sender, int ValueIndex,
		  int X, int Y)
{
  CustomMarks[ValueIndex]->Visible=!CustomMarks[ValueIndex]->Visible;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RecalcCustomMarksPositions()
{
  Chart1->Repaint();

  int numValues = Series1->Count();
  for (int i=0; i<numValues; i++)
  {
	CustomMarks[i]->Left=Series1->CalcXPos(i) - CustomMarks[i]->Shape->Width / 2;
	CustomMarks[i]->Top=Series1->CalcYPos(i) - 40;
	CustomMarks[i]->Callout->XPosition=Series1->CalcXPos(i);
	CustomMarks[i]->Callout->YPosition=Series1->CalcYPos(i);
  }
}

void __fastcall TForm1::Chart1Zoom(TObject *Sender)
{
  RecalcCustomMarksPositions();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Chart1UndoZoom(TObject *Sender)
{
  RecalcCustomMarksPositions();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Chart1Scroll(TObject *Sender)
{
  RecalcCustomMarksPositions();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Chart1Resize(TObject *Sender)
{
  RecalcCustomMarksPositions();
}
//---------------------------------------------------------------------------