소스 검색

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

Dmitry Boyarintsev 6 년 전
부모
커밋
2277f3aeab
1개의 변경된 파일3개의 추가작업 그리고 3개의 파일을 삭제
  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