sequencer edit refresh

Author: SuperDisk

src/tracker.lfm

@@ -62,10 +62,10 @@ object frmTracker: TfrmTracker
       Height = 684
       Top = 0
       Width = 1218
-      ActivePage = InstrumentTabSheet
+      ActivePage = PatternTabSheet
       Align = alClient
       ParentFont = False
-      TabIndex = 2
+      TabIndex = 1
       TabOrder = 0
       object GeneralTabSheet: TTabSheet
         Caption = 'General'
@@ -378,6 +378,7 @@ object frmTracker: TfrmTracker
           OnColRowExchanged = OrderEditStringGridColRowExchanged
           OnColRowInserted = OrderEditStringGridColRowInserted
           OnDblClick = OrderEditStringGridDblClick
+          OnEditingDone = OrderEditStringGridEditingDone
           OnKeyDown = OrderEditStringGridKeyDown
           OnMouseDown = OrderEditStringGridMouseDown
           OnValidateEntry = OrderEditStringGridValidateEntry

src/tracker.pas

@@ -314,6 +314,7 @@   TfrmTracker = class(TForm)
     procedure MenuItem56Click(Sender: TObject);
     procedure MenuItem57Click(Sender: TObject);
     procedure MenuItem58Click(Sender: TObject);
+    procedure OrderEditStringGridEditingDone(Sender: TObject);
     procedure OrderEditStringGridMouseDown(Sender: TObject;
       Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
     procedure RevertMenuItemClick(Sender: TObject);
@@ -2165,6 +2166,19 @@ procedure TfrmTracker.MenuItem58Click(Sender: TObject);
   end;
 end;
 
+procedure TfrmTracker.OrderEditStringGridEditingDone(Sender: TObject);
+begin
+  if OrderEditStringGrid.Row > -1 then
+    ReloadPatterns;
+
+  if (not InFDCallback) and Playing then begin // Hacky solution, but probably the best there is.
+    LockPlayback;
+    PokeSymbol(SYM_NEXT_ORDER, OrderEditStringGrid.Row);
+    PokeSymbol(SYM_ROW_BREAK, 1);
+    UnlockPlayback;
+  end
+end;
+
 procedure TfrmTracker.OrderEditStringGridMouseDown(Sender: TObject;
   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 begin