gpt4 book ai didi

delphi - fmx delphi berlin 如何更改 Tgrid 行中的字体颜色

转载 作者:行者123 更新时间:2023-12-01 16:57:20 24 4
gpt4 key购买 nike

需要帮助..我正在使用delphi 10.1 berlin。与之前版本的 Embarcadero Delphy Code Gear 有一些不同。我需要更改 TGrid 行中的字体颜色。在下一个代码中,我将更改背景颜色,但我只需要更改字体颜色:

  aRowColor.Color := arSTATUS_GRID_COLOR[0];
Canvas.FillRect(Bounds, 0, 0, [], 1, aRowColor);
Column.DefaultDrawCell(Canvas, Bounds, Row, Value, State);

最佳答案

您可以在网格中使用 FMX.Graphics.TCanvas.FillText(),而不是调用 Column.DefaultDrawCell() OnDrawColumnCell() > 事件。

documentation解释了细节,但要点是在调用 Canvas.FillText()

之前将 Canvas.Fill.Color 设置为所需的颜色

示例代码:

procedure TForm28.Grid1DrawColumnCell(Sender: TObject; const Canvas: TCanvas;
const Column: TColumn; const Bounds: TRectF; const Row: Integer;
const Value: TValue; const State: TGridDrawStates);
begin
case Row of
0: Canvas.Fill.Color := TAlphaColors.Red;
1: Canvas.Fill.Color := TAlphaColors.Blue;
2: Canvas.Fill.Color := TAlphaColors.Green;
3: Canvas.Fill.Color := TAlphaColors.Blueviolet;
end;
Canvas.FillText(Bounds, Value.AsString, false, 1, [], TTextAlign.Leading, TTextAlign.Center);
end;

它的样子:

enter image description here

关于delphi - fmx delphi berlin 如何更改 Tgrid 行中的字体颜色,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/39956166/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com