Cycle through viewports, just like FreeWRL and Instant Reality

castle-engine · Jul 1, 2024 · b63807d · b63807d
1 parent 326e6e3
commit b63807d
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/code/v3dsceneviewpoints.pas b/code/v3dsceneviewpoints.pas
@@ -1,5 +1,5 @@
 {
-  Copyright 2004-2022 Michalis Kamburelis.
+  Copyright 2004-2024 Michalis Kamburelis.
 
   This file is part of "castle-model-viewer".
 
@@ -346,7 +346,7 @@ procedure TMenuViewpoints.Previous(const Viewport: TCastleViewport);
   Item: TMenuItemRadio;
 begin
   if (ViewpointsRadioGroup <> nil) and
-     ViewpointsRadioGroup.Previous(Item) then
+     ViewpointsRadioGroup.Previous(Item, true) then
   begin
     BoundViewpoint := Item as TMenuItemViewpoint;
     JumpToViewpoint(Viewport, BoundViewpoint.Viewpoint);
@@ -358,7 +358,7 @@ procedure TMenuViewpoints.Next(const Viewport: TCastleViewport);
   Item: TMenuItemRadio;
 begin
   if (ViewpointsRadioGroup <> nil) and
-     ViewpointsRadioGroup.Next(Item) then
+     ViewpointsRadioGroup.Next(Item, true) then
   begin
     BoundViewpoint := Item as TMenuItemViewpoint;
     JumpToViewpoint(Viewport, BoundViewpoint.Viewpoint);