Draw jump column in hex if row numbers are in hex

Modifiedsrc/tracker.pas +1−0

Modifiedsrc/trackergrid.pas +13−4

 uses
   Classes, SysUtils, Controls, Graphics, Constants, LCLType, math, LCLIntf,
   LMessages, HugeDatatypes, ClipboardUtils, gdeque, gstack, utils, effecteditor,
-  Keymap, LazLoggerBase;
+  Keymap, LazLoggerBase, hUGESettings;
 const
   UNDO_STACK_SIZE = 100;
     if Cell.Volume <> 0 then begin
       Font.Color := clTblJump;
-      TextOut(PenPos.X, PenPos.Y, 'J'+FormatFloat('00', Cell.Volume));
+      if TrackerSettings.DisplayRowNumbersAsHex then
+        TextOut(PenPos.X, PenPos.Y, 'J'+IntToHex(Cell.Volume, 2))
+      else
+        TextOut(PenPos.X, PenPos.Y, 'J'+FormatFloat('00', Cell.Volume));
     end
     else begin
       Font.Color := clDots;
   BeginUndoAction;
   with Patterns[Cursor.X]^[Cursor.Y] do begin
     if Key = VK_DELETE then Volume := 0
-    else if KeycodeToHexNumber(Key, Temp) and InRange(Temp, 0, 9) then
+    else if KeycodeToHexNumber(Key, Temp) then begin
-      Volume := ((Volume mod 10) * 10) + Temp;
+      if TrackerSettings.DisplayRowNumbersAsHex then begin
+        Volume := ((Volume mod 16) * 16) + Temp;
+        if Volume > 99 then Volume := Temp;
+      end
+      else if InRange(Temp, 0, 9) then
+        Volume := ((Volume mod 10) * 10) + Temp;
+    end;
   end;
   Invalidate;

Commit `a63622a`