paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 13:17:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Support axis transformations in TCustomChartSeries.MovePoint

Browse Source 
git-svn-id: trunk@38788 -
This commit is contained in:
ask 2012-09-21 15:15:24 +00:00
parent 54f6a99a13
commit cdecf4667d
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/tachart/tacustomseries.pas
View File

@ -1056,11 +1056,14 @@ end;
procedure TBasicPointSeries.MovePoint(
var AIndex: Integer; const ANewPos: TDoublePoint);
var
p: TDoublePoint;
begin
if not InRange(AIndex, 0, Count - 1) then exit;
p := GraphToAxis(ANewPos);
with ListSource do begin
AIndex := SetXValue(AIndex, ANewPos.X);
SetYValue(AIndex, ANewPos.Y);
AIndex := SetXValue(AIndex, p.X);
SetYValue(AIndex, p.Y);
end;
end;