Minor navigation fix for pattern editor

Kagamma · Apr 1, 2024 · 178f138 · 178f138
1 parent 32576a7
commit 178f138
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/edpattern.pas b/src/edpattern.pas
@@ -732,13 +732,14 @@ procedure LoopEditPattern;
               Inc(CurChannel);
               RenderInstrument;
               DisableMark;
+              Screen.SetCursorPosition(PATTERN_SCREEN_START_X + (CurChannel * PATTERN_CHANNEL_WIDE) + (CurCellPart * 5), PATTERN_SCREEN_START_Y + CurCell - Anchor);
             end;
           end else
           begin
             CurCellPart := 1;
             DisableMark;
+            Screen.SetCursorPosition(PATTERN_SCREEN_START_X + (CurChannel * PATTERN_CHANNEL_WIDE) + (CurCellPart * 5), PATTERN_SCREEN_START_Y + CurCell - Anchor);
           end;
-          Screen.SetCursorPosition(PATTERN_SCREEN_START_X + (CurChannel * PATTERN_CHANNEL_WIDE) + (CurCellPart * 5), PATTERN_SCREEN_START_Y + CurCell - Anchor);
         end;
       SCAN_DOWN:
         begin