Increment from blank in tablegrid

SuperDisk · Dec 31, 2024 · c37d933 · c37d933
1 parent bf5baca
commit c37d933
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/src/trackergrid.pas b/src/trackergrid.pas
@@ -131,7 +131,7 @@   TTrackerGrid = class(TCustomControl)
 
     function GetAt(SelectionPos: TSelectionPos): Integer;
     procedure SetAt(SelectionPos: TSelectionPos; Value: Integer);
-    procedure IncrementAt(SelectionPos: TSelectionPos; Value: Integer);
+    procedure IncrementAt(SelectionPos: TSelectionPos; Value: Integer); virtual;
     procedure ClearAt(SelectionPos: TSelectionPos);
 
     procedure InsertRowInPatternAtCursor(Pattern: Integer);
@@ -166,6 +166,7 @@   TTrackerGrid = class(TCustomControl)
   TTableGrid = class(TTrackerGrid)
     procedure RenderCell(const Cell: TCell); override;
     procedure InputVolume(Key: Word); override;
+    procedure IncrementAt(SelectionPos: TSelectionPos; Value: Integer); override;
   end;
 
 var
@@ -259,6 +260,15 @@ procedure TTableGrid.InputVolume(Key: Word);
   EndUndoAction;
 end;
 
+procedure TTableGrid.IncrementAt(SelectionPos: TSelectionPos; Value: Integer);
+begin
+  with Patterns[SelectionPos.X]^[SelectionPos.Y] do
+    if (Note = NO_NOTE) and (SelectionPos.SelectedPart = cpNote) then
+      Note := MIDDLE_NOTE;
+
+  inherited;
+end;
+
 { TSelectionEnumerator }
 
 constructor TSelectionEnumerator.Create(Grid: TPatternGrid; Cursor,