diff --git a/src/edpattern.pas b/src/edpattern.pas index 494d1d8..031b81e 100644 --- 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