paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 20:49:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix proportional scale calculation

Browse Source 
git-svn-id: trunk@27071 -
This commit is contained in:
ask 2010-08-12 12:25:06 +00:00
parent 69b2b72516
commit 79d465994c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/tagraph.pas
View File

@ -537,10 +537,10 @@ begin
FScale.X := rX.CalcScale(1);
FScale.Y := rY.CalcScale(-1);
if Proportional then begin
if FScale.X > FScale.Y then
FScale.X := FScale.Y
if Abs(FScale.X) > Abs(FScale.Y) then
FScale.X := Abs(FScale.Y) * Sign(FScale.X)
else
FScale.Y := FScale.Y;
FScale.Y := Abs(FScale.X) * Sign(FScale.Y);
end;
FOffset.X := rX.CalcOffset(FScale.X);
FOffset.Y := rY.CalcOffset(FScale.Y);