Изменить цвет шрифта ячейки TStringGrid - PullRequest
6 голосов
/ 08 ноября 2011

Мне нужно изменить цвет текста в ячейке TStringGrid в Delphi.

Просто клетка. Как я могу это сделать?

1 Ответ

12 голосов
/ 08 ноября 2011

Вы можете использовать событие DrawCell для рисования содержимого ячейки самостоятельно.

procedure TForm1.GridDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  S: string;
  RectForText: TRect;
begin
  // Check for your cell here (in this case the cell in column 4 and row 2 will be colored)
  if (ACol = 4) and (ARow = 2) then
  begin
    S := Grid.Cells[ACol, ARow];
    // Fill rectangle with colour
    Grid.Canvas.Brush.Color := clBlack;
    Grid.Canvas.FillRect(Rect);
    // Next, draw the text in the rectangle
    Grid.Canvas.Font.Color := clWhite;
    RectForText := Rect;
    // Make the rectangle where the text will be displayed a bit smaller than the cell
    // so the text is not "glued" to the grid lines
    InflateRect(RectForText, -2, -2);
    // Edit: using TextRect instead of TextOut to prevent overflowing of text
    Grid.Canvas.TextRect(RectForText, S);
  end;
end;

(Вдохновлено этим. )

...