動作環境

C++ Builder XE4
TeeChart Lite v2013.08.130414 32bit VCL

処理

系列データがある
マウスクリックした時、以下のいずれかをする
- A. 点がない時に、点を追加する
- B. 点がある時に、点を削除する

関連

c++ builder XE4, 10.2 Tokyo > TeeChart > seriesのX値を取得する > double xvalue = Series1->XValue[0];
C++ Builder 10.2 Tokyo | XE4 > TeeChart > マウスクリック位置の値を表示する > 10.2 Tokyo:動作する | XE4: エラー > 10.2 Tokyoでもエラー
c++ builder XE4, 10.2 Tokyo > TeeChart > 最初の一歩 > グラフ作成まで

仕組み

クリック場所のX,Yから系列データのインデックスを取得
Pointとして定義した別系列データとしてAdd()やDelete()する

v0.1 > クリック:追加、再度クリック: 消す

実装

Unit1.h

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

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.ExtCtrls.hpp>
#include <VCLTee.Chart.hpp>
#include <VCLTee.Series.hpp>
#include <VCLTee.TeEngine.hpp>
#include <VCLTee.TeeProcs.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE で管理されるコンポーネント
	TChart *Chart1;
	TFastLineSeries *Series1;
	TPointSeries *Series2;
	TEdit *E_xvalue;
	TEdit *E_yvalue;
	TLabel *Label1;
	TLabel *Label2;
	void __fastcall FormCreate(TObject *Sender);
	void __fastcall Chart1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y);
private:	// ユーザー宣言
public:		// ユーザー宣言
	__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Unit1.cpp

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

#include <vcl.h>
#pragma hdrstop

#include <DateUtils.hpp>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
	// テスト用の系列データ追加

	Chart1->Series[0]->XValues->DateTime = true;
	Chart1->BottomAxis->DateTimeFormat = L"nn:ss";

	TDateTime dt;

	dt = Now();

	double yval;
	for (int idx=0; idx < 10; idx++) {
		yval = (1+ idx) % 2;
		Series1->AddXY(dt, yval, "", clRed);
		dt = IncSecond(dt, 1);
	}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Chart1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
		  int X, int Y)
{
	// A. すでにポインタがある場合 > 消す
	if (Series2->Count() > 0) {
		Series2->Delete(0);
		E_xvalue->Text = L"";
		E_yvalue->Text = L"";
		return;
	}

	// B. ポイントがない場合 > 追加する
	int index = Series1->Clicked(X, Y);

	if (index == -1) {
		return;
	}

	double xval = Series1->XValue[index];
	double yval = Series1->YValue[index];
	Series2->AddXY(xval, yval);

	E_xvalue->Text = String().sprintf(L"%.3f", xval);
	E_yvalue->Text = String().sprintf(L"%.3f", yval);
}
//---------------------------------------------------------------------------

動作

クリック後（矢印の先をクリック)

さらにクリック

さらにクリック(矢印の先をクリック)

備考 (v0.1, v0.2共通)

インデックスはクリック場所の左側のポイントになる (右側の近いポイントは選ばれない)
最後のポイントはインデックス取得できなさそう

注意点

シリーズの名前を変更するとインデックス取得に失敗する。
(例として、凡例表示をしていて、凡例に任意の文字列を表示したい場合など）

C++ Builder XE4 > TeeChart > マウスクリックて「モジュール 'XXX.exe'のアドレス XXXでアドレスXXXに対する読み取り違反がおきました。」の発生条件と、とりあえずの対策

デフォルトの凡例表示を使うのではなく、凡例そのものを自前で表示するなどの工夫は必要。

v0.2 > クリック:表示、再度クリック > 表示または消す

処理

クリック
- 表示
再度クリック
- 線上であれば表示
- それ以外は消す

こちらの方が自然な操作になりそう。

実装

Unit1.hppはv0.1と同じ

Unit1.cpp

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

#include <vcl.h>
#pragma hdrstop

#include <DateUtils.hpp>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
	// テスト用の系列データ追加

	Chart1->Series[0]->XValues->DateTime = true;
	Chart1->BottomAxis->DateTimeFormat = L"nn:ss";

	TDateTime dt;

	dt = Now();

	double yval;
	for (int idx=0; idx < 10; idx++) {
		yval = (1+ idx) % 2;
		Series1->AddXY(dt, yval, "", clRed);
		dt = IncSecond(dt, 1);
	}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Chart1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
		  int X, int Y)
{
	int index = Series1->Clicked(X, Y);

	// A. クリックが外れていたときに消す
	if (index == -1) {
		if (Series2->Count() > 0) {
			Series2->Delete(0);
			E_xvalue->Text = L"";
			E_yvalue->Text = L"";
		}
		return;
	}

	// B. クリックが線上の時に表示

	// 既存のものは消す
	if (Series2->Count() > 0) {
		Series2->Delete(0);
	}

	// 点の追加
	double xval = Series1->XValue[index];
	double yval = Series1->YValue[index];
	Series2->AddXY(xval, yval);

	E_xvalue->Text = String().sprintf(L"%.3f", xval);
	E_yvalue->Text = String().sprintf(L"%.3f", yval);
}
//---------------------------------------------------------------------------