Add tabbing through columns

Modifiedtrackergrid.pas +10−4

     VK_NEXT: Inc(Cursor.Y, 16);
     VK_LEFT: DecSelectionPos(Cursor);
     VK_RIGHT: IncSelectionPos(Cursor);
-    {VK_TAB: begin
+    VK_TAB: begin
-      if ssShift in Shift then Dec(Cursor.X) else Inc(Cursor.X);
+      if ssShift in Shift then  begin
-    end}
+        Dec(Cursor.X);
+        Exclude(Shift, ssShift)
+      end
+      else
+        Inc(Cursor.X);
+      Key := 0;
+    end
     else
       if (not (ssCtrl in Shift)) and (not (ssShift in Shift)) then
         case Cursor.SelectedPart of
   if not (ssShift in Shift) then
     Other := Cursor;
   Selecting := ssShift in Shift;
   ClampCursors;
   Invalidate
 end;

Commit `3a52256`