如何使用Delphi XE7更改stringgrid特定单元格的颜色

Question

我正在使用Delphi XE7开发Android应用程序。 在我已经使用TStringGrid组件，然后我已经使用StringGrid.cells[0, 0] := 'Test'和如何我可以改变我在代码已经表明，特定小区的字体颜色。 我也有此示例代码，但无法更改特定单元格的字体颜色。 请任何人向我解释如何更改特定单元格值的字体颜色。 我使用的是Delphi XE7，我的目标是Android移动版。

谢谢..

Answer 1

在FireMonkey TStringGrid中，没有每个单元格样式选项。 您将需要使用第三方网格控件或自己从TGrid中滚动内容。

在我的网站上，您可以在http://monkeystyler.com/guide上找到大量有关后者的资料。

Answer 2

最后，我找到了所需的解决方案。 请按照步骤。 我们可以在TStringGrid本身中更改字体颜色，无需使用TGrid。 请按照以下步骤操作。

首先在FormCreate事件中分配此：

  StringGrid1.DefaultDrawing := False;

然后在StringGrid DrawColumnCell事件中编写以下代码 ：

  Canvas.fill.Color := TAlphaColorRec.Green;
  Canvas.FillText(Bounds, (Value.AsString),
    false, 100, [], TTextAlign.taLeading, TTextAlign.taCenter);

Answer 3

工程在XE8以及为TStringGrid OnDrawColumnCell事件。

附带一个示例，该示例将颜色保留为黑色，但将字体样式设置为粗体。 提示，从左边缘开始为字体添加2个像素填充。

var Rect : TRectF;
begin
  Rect := Bounds;
  Rect.Left := Rect.Left + 2;
  Canvas.Font.Style := [TFontStyle.fsBold];
  Canvas.Fill.Color := TAlphaColorRec.Black;
  Canvas.FillText(Rect, (Value.AsString), false, 100, [], TTextAlign.taLeading, TTextAlign.taCenter);
end;

一开始我错过的是没有将DefaultDrawing设置为false！ 设置完之后，事件就是接受对Canvas的更改。