fmx delphi berlin Tgridの行のフォントの色を変更する方法

Question

ヘルプが必要です。デルファイ10.1ベルリンを使用しています。 Embarcadero Delphy Code Gearの他のバージョンとはいくつかの違いがあります。私はTGridの行でフォントの色を変更する必要があります。この次のコード私はbackgrond色が変わりますが、私は唯一のフォントの色を変更する必要がありWhith：

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

Answer 1

代わりのColumn.DefaultDrawCell()を呼び出して、あなたはグリッドOnDrawColumnCell()イベントでFMX.Graphics.TCanvas.FillText()を使用することができます。

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; 

そして、どのように、それは次のようになります。