More color constant fixups

Modifiedtrackergrid.pas +8−5

   clLineFour = TColor($C3D1D8);
   clLineSixteen = TColor($B5C5CE);
+  clDots = clGray;
+  clDividers = TColor($ABB7BC);
   NUM_COLUMNS = 4;
   NUM_ROWS = 64;
   UNDO_STACK_SIZE = 100;
   end;
   // Draw borders between columns
-  Canvas.Pen.Color := TColor($ABB7BC);
+  Canvas.Pen.Color := clDividers;
   Canvas.Pen.Width := 2;
   R := TRect.Create(0, 0, ColumnWidth+1, Height);
   Canvas.Rectangle(R);
       TextOut(PenPos.X, PenPos.Y, NoteString);
     end
     else begin
-      Font.Color := clGray;
+      Font.Color := clDots;
       TextOut(PenPos.X, PenPos.Y, '...');
     end;
       TextOut(PenPos.X, PenPos.Y, FormatFloat('00', Cell.Instrument));
     end
     else begin
-      Font.Color := clGray;
+      Font.Color := clDots;
       TextOut(PenPos.X, PenPos.Y, '..');
     end;
     //Font.Color := clDark; //clGreen;
-    Font.Color := clGray;
+    Font.Color := clDots;
     TextOut(PenPos.X, PenPos.Y, '...');
     if (Cell.EffectCode <> 0) or (Cell.EffectParams.Value <> 0) then begin
       );
     end
     else begin
-      Font.Color := clGray;
+      Font.Color := clDots;
       TextOut(PenPos.X, PenPos.Y, '...');
     end;

Commit `7ade34c`