关于TChart缩放的问题

[wpaeng]

我现在想在TChart中实现局部放大的功能，具体如下：
点击TChart图中的某一点，图以该点为中心放大（即放大前鼠标所在点在放大后位置不变），比例暂定为120%

不知道我说清楚了没有，其实我只想能做的像一些地图软件中的缩放功能一样

[jaffy]

TChart自己有放大的功能,不过不是点击事件,好象是鼠标的拖动事件

[wpaeng]

确实有拖动放大，但我觉得很不方便，不知道能不能做成像我的要求那样放大呢？

[constantine]

好像用 ZoomPercent就可以

[constantine]

Chart1.AnimatedZoom:=True;
Chart1.ZoomPercent( 125 ); { Zoom IN 125% }
Chart1.ZoomPercent( 75 ); { Zoom OUT 75% }

[wpaeng]

用ZoomPercent确实可以实现缩放，但它是以原图的中心为新图的中心
我想要实现的是：
点击TChart图中的某一点，图以该点为中心放大（即放大前鼠标所在点在放大后位置不变），
比例暂定为120%

[勉励前行]

用.ZoomPercent 配合設定 X軸 Y軸 座標才能實現。

Chart1.ZoomPercent( 125 ); // Zoom IN 125%
然後找到點擊時的xy坐標，重設 XY軸大小即可。
void ScrollAxis(TChartAxis* Axis, const double Percent)
{
double Amount = -((Axis->Maximum-Axis->Minimum)/(100.0/Percent));
Axis->SetMinMax(Axis->Minimum-Amount,Axis->Maximum - Amount);
}

[wpaeng]

楼上说的和我想的差不多，鼠标点击时的xy坐标可以找到，关键的问题在于：怎样重设XY轴的大小可以实现 ：
点击TChart图中的某一点，图以该点为中心放大（即放大前鼠标所在点在放大后位置不变）

[wpaeng]

ok，已经搞定了

[rainv]

mark一下以后看

[wpaeng]

double tmpX, tmpY;
double IncreasePercent = 0.5;

void __fastcall TForm1::Chart1Click(TObject *Sender)
{
if (tmpX > 0 & tmpY > 0)
{
double OldXMin = Chart1->BottomAxis->Minimum;
double OldXMax = Chart1->BottomAxis->Maximum;
double NewXMin = (tmpX * IncreasePercent + OldXMin) / (1 + IncreasePercent);
double NewXMax = (tmpX * IncreasePercent + OldXMax) / (1 + IncreasePercent);
Chart1->BottomAxis->SetMinMax(NewXMin, NewXMax);
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Chart1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Series1->GetCursorValues(tmpX,tmpY); // <-- get values under mouse cursor
}
//---------------------------------------------------------------------------

以上是我具体实现的代码，这里只是实现X轴的ZoomIn（比例为150%），Y轴的同理，