Increment from blank in tablegrid

Author: SuperDisk

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,