根据列名文本为 stringgrid 列着色

Question

我正在这样做：

procedure TForm1.BitBtn1Click(Sender: TObject);
 var dtStart: TDateTime;
  I: Integer;
begin
  dtStart := DateTimePicker1.Date;
  for I := 0 to 7 do
    AdvStringGrid1.Cells[I+1, 0] := uppercase(FormatDateTime('DD/MM/YYYY     DDD', dtStart + I));
   end;

有没有办法在（示例）星期日 (SUN) 出现时为列着色？我希望 SUN 栏（一直向下）以与其他栏不同的颜色显示。

Answer 1

您可以通过使用OnDrawCell 事件来做到这一点（不要不将DefaultDraw 设置为False）。这是一个带有常规 TStringGrid 的示例：

// Sample to populate the cells with the days of the week
procedure TForm1.FormShow(Sender: TObject);
var
  r, c: Integer;
begin
  StringGrid1.ColCount := 8;  // Ignore fixed column and row for this example
  StringGrid1.RowCount := 8;

  for c := 1 to StringGrid1.ColCount - 1 do
    for r := 1 to StringGrid1.RowCount - 1 do
      StringGrid1.Cells[c, r] := FormatSettings.ShortDayNames[c];
end;

// Assign this to the StringGrid's OnDrawCell using the Object Inspector 
// Events tab.
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  CellText: string;
begin
  if (ARow > 0) and (ACol > 0) then
  begin
    CellText := StringGrid1.Cells[ACol, ARow];
    if Pos('Sun', CellText) > 0 then
    begin
      StringGrid1.Canvas.Brush.Color := clRed;
      StringGrid1.Canvas.FillRect(Rect);
    end
    else
      StringGrid1.Canvas.Brush.Color := clWindow;
  end;

  // The '+ 4' is from the VCL; it's hard-coded when themes are enabled. 
  // You should probably check the grid's DrawingStyle to see if it's 
  // gdsThemed, and adjust as needed. I leave that as an exercise for you.
  StringGrid1.Canvas.TextOut(Rect.Left + 4, Rect.Top + 4, CellText);
end;

上面确切代码的示例输出：

这是第二个示例，它可以准确地输出您想要的内容（除了我没有将 SUN 转换为大写字母）：

procedure TForm1.FormShow(Sender: TObject);
var
  r, c: Integer;
begin
  StringGrid1.DefaultColWidth := 100;
  StringGrid1.ColCount := 8;
  StringGrid1.RowCount := 8;

  for c := 1 to StringGrid1.ColCount - 1 do
    for r := 1 to StringGrid1.RowCount - 1 do
      StringGrid1.Cells[c, r] := FormatDateTime('mm/dd/yyyy ddd', 
                                                Date() + c + r - 1);
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  CellText: string;
begin
  if (ARow > 0) and (ACol > 0) then
  begin
    CellText := StringGrid1.Cells[ACol, ARow];
    if Pos('Sun', CellText) > 0 then
      StringGrid1.Canvas.Brush.Color := clRed
    else
      StringGrid1.Canvas.Brush.Color := clWindow;
    StringGrid1.Canvas.FillRect(Rect);
  end;
  StringGrid1.Canvas.TextOut(Rect.Left + 4, Rect.Top + 4, CellText);
end;

这是匹配第二个样本的捕获：

Answer 2

使用 DrawCell 过程是可行的方法。此示例处理带有“Sun”的列可能位于任何列中的可能性。将 DefaultDrawing 保留为默认值 - true。

    procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
         Rect: TRect; State: TGridDrawState);
    begin
      with Sender as TStringGrid do
       if Pos('Sun', Cells[ACol, 0])>0 then begin
         Canvas.Brush.Color := clRed;
         Canvas.FillRect(Rect);
         Canvas.Font.Color := clwhite;
         Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Cells[ACol, ARow]);
       end;
      end;