From bfdb2b6f42f2994915fce5efc597d2fa11afbb25 Mon Sep 17 00:00:00 2001
From: Michalis Kamburelis <michalis.kambi@gmail.com>
Date: Fri, 16 Nov 2018 07:16:42 +0100
Subject: [PATCH] Fix setting ScaleFactorMin/Max

---
 src/3d/castlecameras.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/3d/castlecameras.pas b/src/3d/castlecameras.pas
index d88a85ce26..fedbd2801c 100644
--- a/src/3d/castlecameras.pas
+++ b/src/3d/castlecameras.pas
@@ -2514,7 +2514,7 @@ procedure TExamineCamera.SetScaleFactorMin(const Value: Single);
     FScaleFactorMin := Value;
     { Correct ScaleFactor now.
       Using a property, so it causes ScheduleVisibleChange if changed. }
-    ScaleFactor := Clamped(Value, FScaleFactorMin, FScaleFactorMax);
+    ScaleFactor := Clamped(ScaleFactor, FScaleFactorMin, FScaleFactorMax);
   end;
 end;
 
@@ -2525,7 +2525,7 @@ procedure TExamineCamera.SetScaleFactorMax(const Value: Single);
     FScaleFactorMax := Value;
     { Correct ScaleFactor now.
       Using a property, so it causes ScheduleVisibleChange if changed. }
-    ScaleFactor := Clamped(Value, FScaleFactorMin, FScaleFactorMax);
+    ScaleFactor := Clamped(ScaleFactor, FScaleFactorMin, FScaleFactorMax);
   end;
 end;