Commit f376e09

Nick Faro committed on
sequencer edit refresh
commit f376e09063ca21fbcc87de1bdd2eb030a6cf37fd parent d33b132
2 changed files +17−2
Modifiedsrc/tracker.lfm +3−2
@@ -62,10 +62,10 @@ object frmTracker: TfrmTracker
62 Height = 684 62 Height = 684
63 Top = 0 63 Top = 0
64 Width = 1218 64 Width = 1218
65 ActivePage = InstrumentTabSheet 65 ActivePage = PatternTabSheet
66 Align = alClient 66 Align = alClient
67 ParentFont = False 67 ParentFont = False
68 TabIndex = 2 68 TabIndex = 1
69 TabOrder = 0 69 TabOrder = 0
70 object GeneralTabSheet: TTabSheet 70 object GeneralTabSheet: TTabSheet
71 Caption = 'General' 71 Caption = 'General'
@@ -378,6 +378,7 @@ object frmTracker: TfrmTracker
378 OnColRowExchanged = OrderEditStringGridColRowExchanged 378 OnColRowExchanged = OrderEditStringGridColRowExchanged
379 OnColRowInserted = OrderEditStringGridColRowInserted 379 OnColRowInserted = OrderEditStringGridColRowInserted
380 OnDblClick = OrderEditStringGridDblClick 380 OnDblClick = OrderEditStringGridDblClick
381 OnEditingDone = OrderEditStringGridEditingDone
381 OnKeyDown = OrderEditStringGridKeyDown 382 OnKeyDown = OrderEditStringGridKeyDown
382 OnMouseDown = OrderEditStringGridMouseDown 383 OnMouseDown = OrderEditStringGridMouseDown
383 OnValidateEntry = OrderEditStringGridValidateEntry 384 OnValidateEntry = OrderEditStringGridValidateEntry
Modifiedsrc/tracker.pas +14−0
@@ -317,6 +317,7 @@ type
317 procedure MenuItem56Click(Sender: TObject); 317 procedure MenuItem56Click(Sender: TObject);
318 procedure MenuItem57Click(Sender: TObject); 318 procedure MenuItem57Click(Sender: TObject);
319 procedure MenuItem58Click(Sender: TObject); 319 procedure MenuItem58Click(Sender: TObject);
320 procedure OrderEditStringGridEditingDone(Sender: TObject);
320 procedure OrderEditStringGridMouseDown(Sender: TObject; 321 procedure OrderEditStringGridMouseDown(Sender: TObject;
321 Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 322 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
322 procedure RevertMenuItemClick(Sender: TObject); 323 procedure RevertMenuItemClick(Sender: TObject);
@@ -2274,6 +2275,19 @@ begin
2274 end; 2275 end;
2275 end; 2276 end;
2276 2277
2278 procedure TfrmTracker.OrderEditStringGridEditingDone(Sender: TObject);
2279 begin
2280 if OrderEditStringGrid.Row > -1 then
2281 ReloadPatterns;
2282
2283 if (not InFDCallback) and Playing then begin // Hacky solution, but probably the best there is.
2284 LockPlayback;
2285 PokeSymbol(SYM_NEXT_ORDER, OrderEditStringGrid.Row);
2286 PokeSymbol(SYM_ROW_BREAK, 1);
2287 UnlockPlayback;
2288 end
2289 end;
2290
2277 procedure TfrmTracker.OrderEditStringGridMouseDown(Sender: TObject; 2291 procedure TfrmTracker.OrderEditStringGridMouseDown(Sender: TObject;
2278 Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 2292 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
2279 begin 2293 begin