From 2d6a682f901816eb91ddb2dcb71386ef845953b8 Mon Sep 17 00:00:00 2001 From: blikblum Date: Sat, 18 Jun 2011 12:37:26 +0000 Subject: [PATCH] * fixed typo in T3DVector.Scale and T2DIntRect.Move git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1702 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/spktoolbar/SpkMath/SpkMath.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/components/spktoolbar/SpkMath/SpkMath.pas b/components/spktoolbar/SpkMath/SpkMath.pas index f50e76391..6efaee1a8 100644 --- a/components/spktoolbar/SpkMath/SpkMath.pas +++ b/components/spktoolbar/SpkMath/SpkMath.pas @@ -893,8 +893,8 @@ end; function T3DVector.Scale(dx, dy, dz: extended): T3DVector; begin result.x:=self.x * dx; - result.y:=self.y * dx; - result.z:=self.z * dx; + result.y:=self.y * dy; + result.z:=self.z * dz; end; function T3DVector.UpNormalTo(vector: T3DVector): T3DVector; @@ -1185,8 +1185,8 @@ procedure T2DIntRect.Move(dx, dy: integer); begin inc(left, dx); inc(right, dx); - inc(top, dx); - inc(bottom, dx); + inc(top, dy); + inc(bottom, dy); end; procedure T2DIntRect.Move(AVector: T2DIntVector);