Browse Source

using WindowText color instead of clBlack to look prope on macOS dark themes

Dmitry Boyarintsev 6 years ago
parent
commit
2eef1b1abd
1 changed files with 3 additions and 3 deletions
  1. 3 3
      src/gui-classic/UGridUtils.pas

+ 3 - 3
src/gui-classic/UGridUtils.pas

@@ -651,7 +651,7 @@ begin
     C.ColumnType := act_account_number;
     C.width := -1;
   end;
-  DrawGrid.Canvas.Font.Color:=clBlack;
+  DrawGrid.Canvas.Font.Color:=clWindowText;
   if (ARow=0) then begin
     // Header
     s := CT_ColumnHeader[C.ColumnType];
@@ -1078,7 +1078,7 @@ procedure TOperationsGrid.OnGridDrawCell(Sender: TObject; ACol, ARow: Integer; R
 Var s : String;
   opr : TOperationResume;
 begin
-  DrawGrid.Canvas.Font.Color:=clBlack;
+  DrawGrid.Canvas.Font.Color:=clWindowText;
   opr := CT_TOperationResume_NUL;
   Try
   if (ARow=0) then begin
@@ -1508,7 +1508,7 @@ Var s : String;
   deviation : Real;
   hr_base : Int64;
 begin
-  DrawGrid.Canvas.Font.Color:=clBlack;
+  DrawGrid.Canvas.Font.Color:=clWindowText;
   if (ARow=0) then begin
     // Header
     case ACol of