如何在同一个 StringGrid 中自定义不同的线条颜色和不同的字体颜色？ [复制]

Question

我的目标是自定义一个带有交替颜色线条的 StringGrid；用一种颜色的字母自定义行和列标题，用另一种颜色的字母自定义其他单元格；一些单元格由于其内容而被涂成某种颜色，保持其内容不变。

我已经尝试更改以下属性设置：

TStringGrid.DefaultDrawing、TStringGrid.DrawingStyle、TStringGrid.Canvas.Brush.Color、TStrinGrid.Color、TSringGrid.Font.Color、TStringGrid.FixedColor、TStringGrig.Cells [ACol、ARow]、TStringGrid.Canvas.FillRect 和事件： TStringGrid.OnDrawCell & TForm.OnCreate。但没有一个奏效。

当我画一条线时，它们都用相同的颜色绘制，当我在一个单元格中包含文本时，其他单元格中的所有文本都用相同的颜色绘制。

我正在尝试这样做：

创建Form1时，StringGrid的设计必须具备以下特点：

• ColCount:= 32;
• 行数：= 13；
• FixedCols:= 1;
• FixedRows := 1;
• FixedColor := 深灰色（Col = 0 & Row = 0）；
• 固定 Col 填充 := Col(1) = “01”, Col(2) = “02”, Col(3) = “03”, ... Col (31) = “31” // (字体颜色 := clYellow);
• 固定行已填充：= 行 (1) = “一月”，行(2) = “二月”，行(3) = “三月”，...行(12) = “十二月” // (字体颜色 := clGreen);
• 行必须以交替颜色填充：= 奇数和偶数，例如：1、3、5、...浅蓝色 // 和：2、4、6、...浅灰色；

Form1中有一个Edit组件（Edit1）可以输入年份。输入年份时，所有单元格必须填写如下：

• 例如：2020 年：
• 一月 = Cells[1, 1] := “Wed”, Cells[2,1] := “Thu”, Cells[3,1] := “Fri”... Cells[31, 1]: = “Fri” // (字体颜色 := clWhite);
• 二月 = Cells[1, 2] := “Sat”, Cells[2, 2] := “Sun”, Cells[3, 2] := “Mon”... Cells[29, 1] : =“星期六”//（字体颜色：= clWhite）；直到 12 月...（如果更改年份 (Edit1)，那也必须更改）。
• Fixed Col 和 Fixed Row 的字体颜色必须保持为 clYellow 和 clGreen；

Form1中还有一个Edit组件（Edit2）用于输入假日日期（例如：2020年12月25日）。因此，该单元格应将其颜色更改为 clRed，并保留文本 Cell[25, 12] := “Fri”。

如果有人可以帮助我解决这个问题，我将非常高兴。我没有要显示的代码，因为我尝试了太多次，并且一直在更改我的代码，试图找到一种方法。

抱歉，我无法打印任何图片，因为这是我在 StackOverflow 中的第一个出版物。

Answer 1

在 StringGrid 单元格中使用不同颜色的小示例。您可以使用自己的规则定义颜色

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  cn: TCanvas;
begin
  cn := TStringGrid(Sender).Canvas;
  if gdFixed in State then
     cn.Brush.Color := clYellow
  else
     cn.Brush.Color := RGB(64 * ACol, 255 - 64 * ARow, Random(256));
  cn.FillRect(Rect);
  cn.TextOut(Rect.Left + 2, Rect.Top + 2, Format('%d %d', [ ACol, ARow]));
end;