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

TAChart: Invert panning direction

Browse Source 
git-svn-id: trunk@24338 -
This commit is contained in:
ask 2010-04-01 10:56:18 +00:00
parent d059542372
commit a4cc8f74aa
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/tagraph.pas
View File

@ -485,8 +485,8 @@ procedure TChart.Pan(const ADelta: TPoint);
var var
d: TDoublePoint; d: TDoublePoint;
begin begin
d.X := ADelta.X / FScale.X; d.X := -ADelta.X / FScale.X;
d.Y := ADelta.Y / FScale.Y; d.Y := -ADelta.Y / FScale.Y;
with FLogicalExtent do begin with FLogicalExtent do begin
a += d; a += d;
b += d; b += d;