Fix setting ScaleFactorMin/Max

castle-engine · Nov 16, 2018 · bfdb2b6 · bfdb2b6
1 parent 837882a
commit bfdb2b6
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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;